Code erst ab 3. Zeile?

Bild

Betrifft: Code erst ab 3. Zeile?
von: Peter
Geschrieben am: 27.11.2015 08:35:56

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

Bild

Betrifft: doppelt ... owT
von: Matthias L
Geschrieben am: 27.11.2015 08:41:06


Bild

Betrifft: AW: x = 3
von: Werner
Geschrieben am: 27.11.2015 08:42:59


Bild

Betrifft: AW: x = 3
von: Peter
Geschrieben am: 30.11.2015 14:06:47
Hallo
Danke für Deine wertvolle Hilfe, wenn man's weiss ist es einfach... :-)
Viele Grüsse,
Peter

Bild

Betrifft: AW: Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 30.11.2015 14:19:39


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Code erst ab 3. Zeile?"