Hallo,
ich habe zwei Excel Dateien. In Datei1 ist ein CommandButton der in Datei2 den unten aufgeführten Coden in Tabelle "Calculation" ausführen soll.
Bekomme das irendwie nicht gebacken. Wer kann mir helfen ?
Sub löschen()
Dim intRow As Integer, intLastRow As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow
End Sub
|