Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro automatisch ausführen

Forumthread: Makro automatisch ausführen

Makro automatisch ausführen
21.05.2014 17:25:01
Stephan

Liebe community,
ich habe folgendes Makro (nicht von mir) dass die Umlaute ändert.
ich würde es gerne so abändern, dass es etwaige Umlaut sofort nach Eingabe ändert.
Wie müsste ich es ergänezen?

Sub Umlaute()
Dim Zelle As Range
With Application.WorksheetFunction
For Each Zelle In Selection
Zelle.Value = .Substitute(.Substitute(.Substitute(.Substitute( _
.Substitute(.Substitute(.Substitute(Zelle.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Next Zelle
End With
End Sub

Vielen Dank vorab,
Stephan

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro automatisch ausführen
21.05.2014 17:30:11
Hajo_Zi
Hallo Stephan,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_nChange(ByVal Target As Range)
With Application
.EnableEvents = False
Tartget = Target.Substitute(.Substitute(.Substitute(.Substitute( _
.Substitute(.Substitute(.Substitute(Zelle.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
.EnableEvents = True
End With
End Sub

Anzeige
AW: Makro automatisch ausführen
21.05.2014 17:45:59
Daniel
Hi
probiers mal so, der Code muss ins Modul des betroffenen Arbeitsplatzes.
diese Code funktioniert auch, wenn du mehrere Zellen gleichzeitig änderst (Einfügen mit Copy-Paste, Löschen von Zellen usw) 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const txt = "ÄAeÖOeÜUeäaeöoeüueßss"
Dim i As Long
Application.EnableEvents = False
Set rng = Target
If rng.Cells.CountLarge = 1 Then Set rng = Target.Resize(2, 1)
For i = 1 To Len(txt) Step 3
rng.Replace Mid(txt, i, 1), Mid(txt, i + 1, 2), lookat:=xlPart, MatchCase:=True
Next
Application.EnableEvents = True
End Sub
Gruß Daniel

Anzeige
AW: Makro automatisch ausführen
22.05.2014 10:34:42
Stephan
Hallo Hajo_Zi, Hallo Daniel,
leider habe ich es nicht geschafft die Makros einzubinden. Ich habe wie gesagt 0 VBA Erfahrung und tu mir eben dabei schon schwer. Könntet ihr mich mit einer Klick-by-Klick Anleitung unterstützen (Hajo_zi, deine Beschreibung hat leider auch nicht geklappt)
Danke vorab,
Stephan

Anzeige
AW: Makro automatisch ausführen
22.05.2014 10:42:20
Stephan
Hallo nochmals,
also den Ansatz von Daniel habe ich geschafft einzubinden.
ABER (und das habe ich vergessen zu sagen). In dem Arbeitsblatt wo ich das anwenden möchte, erfolgen Einträge mittels Verbindung zu anderen Zellen in anderen Arbeitsblättern. Dann funktioniert es nicht, nur bei direkteingaben.
Was könnte hier helfen?
Danke vorab.
Stephan

Anzeige
AW: Makro automatisch ausführen
22.05.2014 12:26:28
Daniel
Hi
warum kommen solche wichtigen Infos immer hinterher?
wenn du mit Formeln arbeitest, dann kannst du das Problem auch nur mit Formeln lösen.
Ansonsten müsstest du die Quellzelle dauerhaft ändern.
dh du musst die Formel mit der Verbindung zu anderen Arbeitsblättern
=Tabelle1!A1
so erweitern:
=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(Tabelle1!A1;"Ü";"Ue");"Ö";"Oe");"Ä";"Ae");"ü";"ue");"ö";"oe");"ä";"ae");"ß";"ss")
Gruß Daniel

Anzeige
AW: Makro automatisch ausführen
22.05.2014 14:17:14
Stephan
Hallo Daniel,
verstehe das es ärgerlich ist, aber es funktioniert jetzt bestens.
Und: ich habe was dazu gelernt :-)
Danke nochmal,
lg Stephan

AW: Makro automatisch ausführen
22.05.2014 16:50:42
Stephan
Hallo Daniel,
verstehe das es ärgerlich ist, aber es funktioniert jetzt bestens.
Und: ich habe was dazu gelernt :-)
Danke nochmal,
lg Stephan

Anzeige
;

Forumthreads zu verwandten Themen

Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Anzeige
Blatt öffnen - Makro ausführen
Frank

Hallo Zusammen!
Meine Frage: Wenn ich z.B. in einer Arbeitsmappe Tabelle5 öffne soll ein Makro ausgeführt werden. Wie muss die Befehlzeile hierfür aussehen?
Ich hoffe, es weiß jemand Rat!!! Danke!!!
Gruß Frank H.
10.09.2009 09:49:43
Thread-ID: 1101676
3 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Anzeige
Datei mit bestimmten Namen öffnen
Holla

Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn m...
13.11.2009 12:40:42
Thread-ID: 1116875
6 Beiträge
Anzeige
VBA-Code ausführen bei Änd. v. Pivotabellen | Herbers Excel-Forum
Al
Hallo,
ich möchte VBA-Code ausführen lassen, wenn in einer Pivotabelle ein Zeilen-,Spalten oder Seiten-Feld verändert/ausgewählt wird.
Worksheet_Calculate kann ich nicht nutzen, da der Code selbst im Worksheet Änderungen durchführt, die wieder Worksheet_Calculate aufrufen.
Worksheet_Ch...
15.01.2010 15:04:20
Thread-ID: 1130302
4 Beiträge
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Makro beim beim Öffnen von .xls autmatisch starten
Andi

hallo zusammen,ich habe schon recherchiert, aber leider nichts gefunden.deshalb wende ich michdirekt an die spezis.
wie kann ich ein makro automatisch beim start einer excel-datei starten und wo muß ich das makro plazieren??dank im voraus
mfg
11.04.2002 09:59:08
Thread-ID: 112333
4 Beiträge
Makro beim Öffnen starten
Hajo
Hallo Mikeschreibe Dein Makro in DieseArbeitsmappe unter
Private Sub Workbook_Open()
Gruß Hajo
15.04.2002 20:57:39
Thread-ID: 113531
11 Beiträge
Makro starten nach Öffnen der Arbeitsmappe
meixner

Hallo zusammen,
ich möchte das unteres Makro nach Eröffnen der Excel - Arbeitsmappe automatisch ausgeführt wird.
Was muss ich da machen?
Vielen Dank für Tips.
Dani.
Sub Update_bestände() 'Fondsbestände werden aktualisiert Range("B23").Select Sheets("AlleBestände_alleFonds")....
01.02.2010 11:23:24
Thread-ID: 1134745
6 Beiträge
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige