|
also die letzte zeile suche ich so hier.
1 2 | 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.
1 2 3 4 5 6 7 8 | Dim intSpalte As Integer
Dim i As Long
Dim j As Long
intSpalte = 2
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
|