Hallo zusammen,
ich möchte gerne eine Zelle teilen.
Inhalt A: AB 1234
Inhalt B: AB - Teilung nach 3 Zeichen von rechts
Inhalt C: 1234 - Teilung nach 4 Zeichen von links
Folgende Formel habe ich dazu geschrieben:
Sub ZelleTeilen ()
With Worksheets("Sheet1")
Dim xxtext As String
Dim x As Long
For x = 1 To 502
xxtxt = Range(x, "CG").Value
Dim wertDE, wertDF As String
wertDE = Left$(mytxt, 3)
wertDF = Right$(mytxt, 4)
Range(x, "DE") = wertDE
Range(x, "DF") = wertDF
Next
End With
End Sub
Ich habe jetzt diverse Optionen probiert, leider finde ich den Fehler nicht.
Wäre super wenn mir jemand helfen könnte.
Danke
|