also die letzte zeile suche ich so hier.
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox letztezeile
aber dann geht schon mein Problem los
zum prüfe habe ich die MsgBox mal drin gelassen aber egal was ich versuche, er erkennt die leeren Zeilen der intelliegenten tabelle als Zelle mit in halt
und das obwohl ab zeile 6 nichts drin steht.
Als ausgabe bekomme ich dann 55, das ist genau da, wo die tabelle aufhört.
und dann wollte ich es gerne, wie in dem gut erklärten script hier abarbeiten lassen.
außer, dass ich es noch auf Spalte abändere.
Dim intSpalte As Integer ' Spalte aus der die 1. leere Zelle von unten gesucht wird
Dim i As Long ' Zeilennummer dieser Zelle
Dim j As Long ' letzte Zeilennummer in der aktuellen Tabelle überhaupt
intSpalte = 2 ' letzte Zeile wird aus Spalte B bestimmt
i = IIf(Len(Cells(Rows.Count, intSpalte)), Rows.Count, Cells(Rows.Count, intSpalte).End(xlUp).Row) + 1
j = Cells.SpecialCells(xlCellTypeLastCell).Row
If i <= j Then Rows(i).Resize(j - i + 1).Delete
aber egal, was ich versuche oder welchen fertigen code ich nutze, ich scheitere an der tabelle.
das ist zum Haareraufen
|