In Spalte A1 stehen bei mir Kontonummern. Beispiel: 30-185013-1
Jetzt möchte ich die Sache auftrennen. So nachher sollte es aussehen:
C1 = 30
D1 = 185013
E1 = 1
Kann ich so etwas in VB lösen?
Danke für einen Tipp
Gruss
Ron
Sub test()
Dim z As Long, x As String
'Zeile setzen
z = 1
'Auftrennen
x = Cells(z, 1)
Cells(z, 3) = CLng(Left(x, InStr(x, "-") - 1))
x = Mid(x, InStr(x, "-") + 1)
Cells(z, 4) = CLng(Left(x, InStr(x, "-") - 1))
Cells(z, 5) = Mid(x, InStr(x, "-") + 1)
End Sub