| |
 | Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs
|
Autor
|
Thema: Excel-Frage (automatisches Ersetzen) (713 mal gelesen)
|
smb Plauderprofi V.I.P. h.c.

 Beiträge: 2976 Registriert: 02.08.2001 zu viele
|
erstellt am: 14. Nov. 2006 15:17 <-- editieren / zitieren -->
Hallo, gibt es in Excel die Möglichkeit, dass ich "S+Return" tippe und die Zellen wird z.B.: mit SMB "ersetzet" bzw. ergänzt oder ausgefüllt? Ich denke nicht an "AutoVervollständigen" oder die Korrekturoption. Die Information soll in Excel eingebettet sein und Rechner unabhängig funktionieren! AutoVervollständigen und Korrekturoptionen sind immer Rechner spezifisch. Gruß und Dank ------------------ www.smb-net.de.vu www.cad-team-saar.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zioba Mitglied Bauingenieur
 
 Beiträge: 166 Registriert: 04.06.2004
|
erstellt am: 14. Nov. 2006 15:27 <-- editieren / zitieren -->
Da hilft meiner Meinung nur eine Bittschreiben an BillGates, daß er diese Funktion für Dich einbinden lässt. Woher soll sonst der "fremde" Rechner wissen, was er mit S+Return machen soll, wenn man es ihm nicht vorher sagt (durch Autokorrekturoption z.B.) Gruß zioba
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Frank88 Mitglied
 Beiträge: 7 Registriert: 11.10.2004 Civil3D 2018
|
erstellt am: 14. Nov. 2006 16:06 <-- editieren / zitieren -->
Ja, gibt es schon. Mit einem Makro. Dieses Makro in der 'Personal.xls' abgespeichert, bewirkt, daß es bei jeder neu geöffneten Mappe schon enthalten ist. Um es auf einen anderen Rechner zu bekommen, mußt Du den Besitzer des Rechners überzeugen, die 'Personal.xls' ins entsprechende Verzeichnis zu kopieren. Noch ein Nachteil: Du kannst nie wieder in einer Zelle nur das eine Zeichen eingeben (z.B. als Spaltenüberschrift), es wird immer ersetzt. Gruß, Frank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Frank88 Mitglied
 Beiträge: 7 Registriert: 11.10.2004
|
erstellt am: 14. Nov. 2006 16:19 <-- editieren / zitieren -->
Hallo nochmal, ich muß mich etwas korrigieren. Das klappt nur für's Blatt und sähe dann so aus Private Sub Worksheet_Change(ByVal Ziel As Range) If Ziel.Value = "S" Then Ziel.Value = "SMB" End Sub Du müsstest das dann für alle Blätter vorgeben und ggf. das Neuanlegen von Blättern nur mittels Kopieren vorhandener erlauben. Da bin ich dann aber überfragt. Vielleicht hilft Dir das ja schon. Gruß, Frank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Plauderprofi V.I.P. h.c. Arbeiter ツ

 Beiträge: 3015 Registriert: 06.07.2001 |ænn| We work in the dark. We do what we can. We give what we have. Our doubt is our passion and our passion is our task. The rest is the madness of art.
|
erstellt am: 14. Nov. 2006 19:33 <-- editieren / zitieren -->
ich habe sowas in meiner Fräsdokumentation drinnen, da es mir immer zu müssig ist, die Beschreibungen auszufülllen, rennt beim Mappenöffnen dieser Code Code: Sub Autokorrektur() Dim akorr As Variant akorr = Array("tr", "Terassenfrässen", "o/", "Ø", "slb", "Sticheln Lochbild 5X", "ste", "Sticheln Teilende 5X", _ "sr", "Schruppen", "sl", "Schlichten", "r3", "Radius 3 Nachholen", "r2", "Radius 2 Nachholen", "sl", "Schlichten") For D = 0 To 14 Step 2 a = akorr(D) Application.AutoCorrect.AddReplacement What:=akorr(D), Replacement:=akorr(D + 1) Next End Sub
Als Schmakerl ist als Txtbox, leicht schwebend oben rechts, in der Dokumentation noch jenes vorhanden:Abkürzungen: tr = Terassenfräsen sr=Schruppen sl=Schlichten r3=Radius R3 nachholen r2=Radius R2 nachholen o/ = Ø slb = Sticheln Lochbild 5X ste = Sticheln Teilende 5X damit die Anwender, wenn sie lesen können, Vorteile haben :-) und mancheiner hatte nach Jahren sein Heureka! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
smb Plauderprofi V.I.P. h.c.

 Beiträge: 2976 Registriert: 02.08.2001 zu viele
|
erstellt am: 15. Nov. 2006 07:34 <-- editieren / zitieren -->
|
A_Balou Plauderprofi V.I.P. h.c.

 Beiträge: 5231 Registriert: 26.04.2005 Hier wird ab sofort ohne System und Zusatz gearbeitet ;-)
|
erstellt am: 15. Nov. 2006 10:25 <-- editieren / zitieren -->
Zitat: Original erstellt von Thomas Harmening: [i]ich habe sowas in meiner Fräsdokumentation drinnen, da es mir immer zu müssig ist, die Beschreibungen auszufülllen, rennt beim Mappenöffnen dieser Code [code]Sub Autokorrektur() Dim akorr As Variant akorr = Array("tr", "Terassenfrässen", "o/", "Ø", "slb",
Na dann mal guten Appetit ------------------ Ob man seine Kinder gut erzogen hat, erkennt man am Verhalten seiner Enkelkinder. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
smb Plauderprofi V.I.P. h.c.

 Beiträge: 2976 Registriert: 02.08.2001 zu viele
|
erstellt am: 15. Nov. 2006 11:01 <-- editieren / zitieren -->
|
Thomas Harmening Plauderprofi V.I.P. h.c. Arbeiter ツ

 Beiträge: 3015 Registriert: 06.07.2001 |ænn| We work in the dark. We do what we can. We give what we have. Our doubt is our passion and our passion is our task. The rest is the madness of art.
|
erstellt am: 15. Nov. 2006 12:39 <-- editieren / zitieren -->
|
Bene Moderator ich putz' hier nur
       

 Beiträge: 5994 Registriert: 10.04.2002 ich hatte mal Inventor...
|
erstellt am: 16. Nov. 2006 09:23 <-- editieren / zitieren -->
|