Makro wird beim 2. mal nicht richtig ausgeführt
03.01.2018 14:15:12
Lily
ich habe ein Problem mit meinem Makro und kann es leider mithilfe von Foren etc. nicht selber lösen. Vielleicht kann es ein geschultes Auge?
Es geht um einen Code der eine Tabelle aus einem Tabellenblatt ins andere übertragen soll und dann die Leerzeilen die mit übertragen wurden rauslöschen soll.
Den Teil des Übertragens habe ich als Makro "aufgenommen" und dann in den anderen Teil (den ich im Internet gefunden habe) eingefügt. Nun ist das Problem, dass das Makro jedes 2. Mal des Ausführens ein paar Leerzeilen am Ende übrig lässt, obwohl er das eigentlich nicht soll.
Weiß jemand Rat? Ich füge mal den Code hier ein:
Public Sub Zeilen_loeschen()
' Zeilen_loeschen Makro
' Tastenkombination: Strg+g
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 2).End(xlUp).Rows.Row
Range("B4:ADD4").Select
Selection.AutoFill Destination:=Range("B4:ADD200"), Type:=xlFillDefault
Range("B4:ADD300").Select
'** Durchlauf aller Zeilen
For t = lz To 4 Step -1 'Zählung rückwärts bis Zeile 4
If Cells(t, 5).Value = "" Then 'Abfragen, ob in der ersten Spalte nichts steht
Rows(t).Delete Shift:=xlUp 'wenn nichts drin steht, wird die Zeile gelöscht und nach _
oben verrückt
End If
Next t
End Sub
Ich wäre super dankbar wenn jemand helfen kann! :)