Code Bedingung hinzufügen
16.11.2018 08:02:19
Michael
Beschreibung: Der Code fügt in Regelmäßigen Abständen einen Adresskopf in eine Liste ein. Er beginnt in Zeile 91 (loStart = 91) fügt 3 Zeilen Adresse ein und wiederholt das, solange er Text vorfindet. Lief auch bisher super.
Nun wurde die Tabelle aber dahingehend geändert, das der erste Adresskopf, bereits
in der Tabelle vorhanden ist.
Was ich benötige ist eine weitere Bedingung, die folgendes ausführt/abfragt:
Wenn nichts in Zeile 91 steht, dann soll nichts gemacht werden.
Nur wenn in Zeile 91 Text vorhanden ist soll der Code wie er unten steht ausgeführt werden.
Habe selbst versucht die Bedingung zu formulieren: If loStart = "" Then Exit Sub. Wenn ich das aber vor die If loStart Anweisung in den Code einfüge, wird der Code leider auch beendet wenn in Zeile 91 noch Text vorhanden ist.
Bin für jede Hilfe Dankbar
Viele Grüße
Michael
Sub Lieferschein()
Dim loStart As Long
Application.ScreenUpdating = False
With Worksheets("Hamburg")
loStart = 91
Do
If loStart > 91 Then loStart = loStart + 3
Worksheets("IDHamburg").Rows("1:3").Copy
.Rows(loStart).Insert
Application.CutCopyMode = False
loStart = loStart + 42
Loop While .Cells(loStart, 1) ""
End With
Application.ScreenUpdating = True
End Sub