Hallo liebe Leute,
Ich bin neu in VBA und versuche mich an folgendem Problem:
Ich habe eine lange Zahl in Zelle D4, die ich als Text formatiert habe. Davon möchte ich jeweils immer 7 Zeichen als eigenen Wert in die Zelle darunter packen und dann entsprechend die nächsten 7 Zeichen.
Beispiel:
D4 = 35969837255603784563648
D5 = 3596983
D6 = 7255603
Ich habe es folgendermaßen probiert, was leider nicht funktioniert:
Dim kette As String
With Sheets("Input")
kette = .Range("D1")
For h = 1 To kette.Length
If kette "" Then
.Range("D" & h).Value = Left(kette, 5)
kette = Left(kette, 5)
End If
Next h
End With
Wäre um Hilfe sehr dankbar.
Gruß,
Haiko