Hallo zusammen
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 Hilfe
Viele Grüsse,
Peter