Autokorrektur in bestimmter Zeile per VBA
22.08.2006 13:57:34
Düppi
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