Spezialproblem 'letzte Reihe/Spalte finden'
05.08.2019 10:12:16
Jens
mit folgendem Code ermittele ich die letzte Zelie und Spalte eines Bereichs:
Sub test(rng as range)
Dim lngLastCol As Long
Dim lngLastRow As Long
With rng
lngLastCol = .Find(what:="*", after:=.Cells(.Count), LookIn:=xlValues, lookat:=xlWhole, _
searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
lngLastRow = .Find(what:="*", after:=.Cells(.Count), LookIn:=xlValues, lookat:=xlWhole, _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End With
End Sub
Rng kann ein Zellbereich, Zeilenbereich oder Spaltenbereich sein.
In dem Tabellenbereich ist es nun so, dass mittels bedingter Formatierung alle Werte über einem bestimmten Wert mittels Format("") ausgeblendet sind.
Diese Zellen werden von Find aber nicht berücksichtigt, obwohl sie einen Wert enthalten.
Der Bereich ist natürlich nicht immer bis zu den letzten Zeilen/Spalten mit Werten gefüllt:-)
Gibt es eine andere zuverlässige Methode?
Danke und Gruß,
Jens
Anzeige