.End(xlUp).Row addiert jedesmal +1
04.06.2024 10:26:56
JozefV
ich habe Schwierigkeiten es zu verstehen, dass
unterezeile = Worksheets("DataTabellen").Cells(Rows.Count, tbl.Range.Column).End(xlUp).Rowbei jedem durchlauf eins hochzählt, obwohl sich in den betroffennen Zellen nichts ändert. Hätte jemand eine Erklärung für mich?
hier ist die ganze Sub:
Sub ResizeOBjTabelle()
Dim tbl As ListObject
Dim unterezeile As Long
Set tbl = Worksheets("DataTabellen").ListObjects("TabAlleObjekte")
unterezeile = 0
unterezeile = Worksheets("DataTabellen").Cells(Rows.Count, tbl.Range.Column).End(xlUp).Row
MsgBox (tbl.Range.Column)
'tbl.DataBodyRange.Delete
With tbl.Range
tbl.Resize .Resize(unterezeile)
End With
End Sub
Anzeige