Überprüfung eines Codes
18.01.2019 17:28:27
Michael
Ich finde leider den Fehler nicht.
Der nachfolgende Code soll in einem Sheet überprüfen ob in Zeile 91 irgendetwas steht. Wenn dort etwas steht, dann fügt er 3 neue Zeilen ein, kopiert aus einem anderen Sheet, 3 Überschriften Zeilen und fügt diese in die neuen Zeilen ein. Dieser Vorgang wird dann alle weiteren 42 Zeilen wiederholt, solange bis der Code leere Zeilen findet.
Das Problem ist, das der Code in jedem Fall in Zeile 91 Überschriften einfügt, auch wenn dort nichts steht. Ab dem zweiten Mal Überschriften einfügen, funktioniert der Code, wie erwartet.
Vielen Dank für eure Hilfe und Gruß
Michael
Sub Überschriften()
Dim loStart As Long
Application.ScreenUpdating = False
With Worksheets("Arbeitsaufwand")
loStart = 91
If Cells(loStart, 1) = "" Then GoTo Ende
Do
If loStart > 91 Then loStart = loStart + 3
Worksheets("Tabelle1").Rows("1:3").Copy
.Rows(loStart).Insert
Application.CutCopyMode = False
loStart = loStart + 42
Loop While .Cells(loStart, 1) ""
End With
Ende:
Application.ScreenUpdating = True
End Sub