Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Autokorrektur in bestimmter Zeile per VBA

Autokorrektur in bestimmter Zeile per VBA
22.08.2006 13:57:34
Düppi
Liebe VBA-Profis,
folgender VBA-Code ändert die Eingabe von ä, ö, ü, ss entsprechend in ae, oe, ue, ss ab. Wie sage ich dem VBA, dass er nur in Zeile H nachsehen soll - um die geht es nämlich (... zur Generierung eines Dateinamens, weil PCs ja keine Umlaute mögen). Dank vorab und Gruß aus Oelde, Düppi

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Replace What:="ä", Replacement:="ae", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:="ü", Replacement:="ue", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:="ö", Replacement:="oe", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:="ß", Replacement:="ss", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:=" ", Replacement:="_", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autokorrektur in bestimmter Zeile per VBA
22.08.2006 14:09:31
Ingo
hallo Düppi
ist wirklich zeile H oder vielleicht Spalte H gemeint.
Bei Spalte geht es folgendermaßen:
ungetestet:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.column = 8 Then
Target.Replace What:="ä", Replacement:="ae", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:="ü", Replacement:="ue", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:="ö", Replacement:="oe", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:="ß", Replacement:="ss", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Target.Replace What:=" ", Replacement:="_", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End if
End Sub

mfG
Ingo Christiansen
Anzeige
AW: Autokorrektur in bestimmter Zeile per VBA
22.08.2006 14:15:22
Düppi
Hallo Ingo,
Zeile war gemeint - das passiert, wenn man immer ohne Spalten- und Zeilenüberschriften arbeitet. Habe es mir aber mit Target.Row passend gebastelt - vielen Dank also, Düppi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige