|
Hallo Zusammen!
Ich weiß die Frage ist peinlich einfach, ich bin komplette Anfängerin und habe seit Stunden dieses Problem. Ich habe 4 Zahlen in Spalte A:
123456789
3456789123
5678924578
86123127356
Und ich möchte, dass hier (bzw. die noch darunter kommen, also es soll dynamisch sein) nur die ersten 8 Zahlen stehen, alle anderen können gelöscht werden (oder in Spalte B, das ist egal).
Ich habe dieses Makro geschrieben (SO steht für die Zahlen):
-------------------------------------------------------------
Sub so_zerlegen()
Dim so As String, so_neu As String
Dim zeile As Integer
Dim i As Integer
Worksheets("Tabelle1").Activate
Range("A" & i).Value = so
so_neu = Left(so, 8)
For zeile = 3 To Worksheets("Tabelle1").UsedRange.Rows.Count
Range("b" & i).Value = so_neu
Next zeile
End Sub
----------------------
Ich vermute, mein Fehler ist, dass ich einen string als range definiere - aber ich habe keine Ahnung, wie kann ich es sonst dynamisch lösen, damit er das bei jeder Zeile macht in der Tabelle 1?
Ich habe nichts hierzu gefunden...
Vielen Dank euch!
|