Suchen Sie die nächste leere Zelle in einem Bereich?

Question

Ich versuche die nächste leere Zelle in einem Bereich zu finden, ausgehend von einer bestimmten Spalte und dann versuche, das heutige Datum einzugeben.

Code:

ThisWorkbook.ActiveSheet.Cells(ThisWorkbook.ActiveSheet.Rows.Count, "U").End(xlLeft).Offset(0, 1).Value = Now() 

Mein Bereich für leere Zellen zu überprüfen, ist V

So zum Beispiel auf X, wenn ich eine Tabelle habe, die wie unten sah:

Column U                 Column V               Column W             Column X 
Start checking blanks from here but don't check this column itself  I'm Not a blank Cell so move to the next cell and check   I'm a blank cell. Put value here       I am a blank cell. I will have a value placed in me next time 

Bei der Moment, in dem mein Code das Datum in die erste leere Zelle in einer Reihe setzt, beginnend mit Spalte A. Das ist offensichtlich nicht korrekt.

Kann mir bitte jemand zeigen, wo ich falsch liege?

Answer 1

ändern xlleft zu xlToLeft

Ich empfehle Usedrange Reihen zählen als einfache sheet.rows.count für Ihre Anforderung verwendet.

ThisWorkbook.ActiveSheet.Cells (ActiveSheet.UsedRange.Rows.Count, "U"). End (xlToLeft) .Offset (0, 1)