Hallo,
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