"freie Zelle" finden
22.10.2018 16:53:21
Vic
ich versuche ziemlich erfolglos in D8:K8 die erste "freie" (die Formatierungen sollten erhalten _ bleiben) Zelle zu ermitteln. Mit
intLastS = Range("D8:K8").End(xlToRight).Offset(0, 1).Address
wird mir M8 als Ergebnis ausgeworfen. Das ist die erste unformatierte Zelle. Es erschließt sich mir aber nicht, warum sie trotz Eingrenzung auf D8:K8 ausgegeben wird.
Gibt es eine Möglichkeit, in formatierten Zellen die erste ohne Wert anzusteuern? Im Ergebnis soll dann dort ein Datum eingetragen werden (So ist diese Zelle auch formatiert. Hier könnte ich zur Not das Format auch per VBA beim transponieren mitgeben).
Hintergrund: In D8:K8 stehen Datumswerte. Diese will ich ergänzen, ohne eventuell bestehende Einträge zu überschreiben. Daher der Ansatz über die freie Spalte. Wenn es andere Lösungsansätze gibt, bin ich dafür auch dankbar.
Vorab schon mal wie immer Danke für die Hilfe!
Vic