Hallo,
ich habe mal wieder ein kleines Problem:
Ich suche in einer Tabelle die letzte beschriebene Zeile aller Spalten. Mit
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
fuktioniert es nicht richtig, da in der Tabelle immer wieder Zeilen gelöscht werden und diese dann aber noch als beschrieben erkannt werden. Bei folgenden Code werden die gelöschten Zellen zwar nicht mehr erkannt:
Dim LastRowAll As Integer
LastRowAll = Cells.Find(What:="*", _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
aber in der letzte gefundene Zeile sind verbundene Zellen die auch noch weitere Zeilen füllen und ich benötige jedoch die Zeilennummer nach diesen.
Hat eventuell jemand eine Idee wie ich diese auslesen kann?
Viele Grüße
Andreas