folgendes Problem:
Ich versuche den Text vor einem bestimmten Zeichen zu löschen. Es geht sich um Telefonlisten. Nummern sind wie folgt aufgebaut:
+49 (0000) 0000 - 00
Nun möchte ich alles vor dem "-" löschen, und nur die Durchwahl stehen lassen.
Folgendes Makro habe ich gebaut: Application.ScreenUpdating = False start = 3 letzte = ActiveSheet.Range("E65536").End(xlUp).Row For lngZ = letzte To start Step -1 strW = Cells(lngZ, 5).Value If InStr(2, strW, "-", vbTextCompare) > 0 Then Cells(lngZ, 5) = Right(strW, InStr(2, strW, "-", vbTextCompare) - 1) End If Next Application.ScreenUpdating = True
Es klappt teilweise. Es nimmt das erste Zeichen, was es findet. und nicht das "-". Kann mir jemand verraten, wo der Fehler liegt?
Vielen Dank im voraus und liebe Grüße,
Matthias K.