Suche nach Zelle leer oder Blank
13.04.2020 16:04:09
Die
in der aktiven Zeile durchsuche ich einen Bereich nach der letzten gefüllten Zelle. Hierzu verwende ich einen hier gefundenen und angepassten Code:
Dim LCol As Integer, myCol As Integer, i As Integer
Dim myRow As Long
myRow = ActiveCell.Row
With Application
LCol = Cells(myRow, 558).End(xlToLeft).Column
myCol = .Max(LCol, 460)
.Goto Cells(ActiveCell.Row, myCol)
End With
Klappt super. Nun ergibt sich allerdings, dass etliche der leeren Zellen ein Blank als Inhalt haben. In diesen Fällen wird also das Leerzeichen als Inhalt gefunden.
Gibt es eine Möglichkeit, den Code so zu erweitern, dass der Cursor in die letzte Zelle springt, in der Inhalt vorhanden ist? Also Zellen mit einem Blank ebenfalls als leer ansieht?
Herzlichen Dank und ein schönes Rest-Ostern
Die Johanna