Leerzeilen Löshen
11.01.2015 23:09:09
Dom-Kam
ich möchte mit einem makro Leerzeilen löschen, das geht auch super aber ich möchte das makro gerne von tab2 auslösen und in tab1 soll es ausgeführt werden.
makro aktuell
Dim lngLetzte As Long
Dim lngZeile As Long
Application.ScreenUpdating = False
lngLetzte = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row + 1, 65536)
For lngZeile = lngLetzte To 13 Step -1
If Cells(lngZeile, 2) = "" Then
Cells(lngZeile, 1).Resize(1, 8).Delete xlShiftUp
End If
Next
Application.ScreenUpdating = True
Anzeige