VBA: Fehler bei .Find
16.04.2017 19:53:50
Markus
ich möchte gerne per VBA den letzten Wert in einer variablen Spalte finden.
Der Wert kann in diesem Fall alles sein, also Text, Zahl etc.
Danach möchte ich in die nächste Zelle darunter einen Wert schreiben.
Beispiel: Der letzte Wert in Spalte C steht in C10, dann möchte ich einen Wert in C11 schreiben.
Meine Spalten können auch zwischen den Werten leere Zellen enthalten.
Daher habe ich es nicht mit .End(xlDown) probiert, sondern statt dessen wie folgt.
Das schreibt jedoch in die Zelle mit dem letzten Wert und nicht darunter.
Kann mir jemand sagen, was ich falsche mache (oder falls es dafür noch einen besseren Weg gibt) ?
Mein Code:
With Worksheets(3).Range(varTargetColumn & ":" & varTargetColumn)
Set varTargetRange = .Find(What:="*", _
After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
varTargetRange.Offset(1, 0).Value = varTargetDate
End With
Markus
Anzeige