Ich habe diesen Code vom Internet, dieser erstellt eine Teilstring von Links bis zum ersten Leerzeichen. Jedoch möchte ich erst ab 3. Zeile (ab A3) beginnen und dann ab B3 einfügen. Und könnte man noch zuvor Zeile B (auch ab B3) löschen.
Wie müsste ich den Code anpassen?
Sub TeilenLinks() ' In Spalte A die Adressen reinkopieren
Dim x As Integer, tmp_pos As Integer, string_a As String
x = 1
Do Until Range("A" & x).Value = ""
tmp_pos = InStr(1, (Range("A" & x).Value), " ")
string_a = Mid(Range("A" & x).Value, 1, tmp_pos - 1)
' Spalte B der erste Teil
Range("B" & x).Value = string_a
x = x + 1
Loop
End Sub
Bin dankbar für jede HilfeViele Grüsse,
Peter