ich doktere an einer Funktion rum, die mir die rechte Seite einer Zeichenkette abschneiden und in die benachbarte Spalte schreiben soll.
Das sind die Gegebenheiten:
GJHAN:GJ8AT005
WMW:EP8HP012
WMW:EP8KS026
soll werden:
GJ8AT005
EP8HP012
EP8KS026
So sieht das bisher aus:
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
'
Range("A1").Select
'
Do While ActiveCell.Value <> ""
If InStr(ActiveCell.Value, ":") > 0 Then
ActiveCell.Offset(0, 1).Value = Right(ActiveCell.Value, _
InStr(ActiveCell.Value, ":") + 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
Klappt aber nicht, er schneidet mir nie das ab, was ich möchte.
Hat vielleicht jemand einen Tip, was da nicht stimmt?
Gruß,
Petra