Letzte gefüllte Zeile finden, wenn filter an
17.11.2015 13:14:07
Chris
ich filtere per VBA nach eine in einem Label stehendem Kriterium. Das funktioniert
soweit ohne Probleme.
Wenn nun Excel die letzte gefüllte Zelle in einer bestimmten Spalte des gefilterten Bereichs suchen soll, um anschließend einen Kopiervorgang durchzuführen, erhalte ich immer den Wert 1. Bei ausgeschaltetem Filter ist die Variable ende unterschiedlich - so wie es sein sollte.
Wo liegt der Fehler?
Sub filternKopieren()
Set Liste = Sheets("ML").Range("A1:S2000")
Liste.AutoFilter
Liste.AutoFilter Field:=11, Criteria1:=UserForm1.Label126.Caption
Application.DisplayAlerts = False
Application.CutCopyMode = False
ende = Sheets("ML").Range("K:K").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
MsgBox ende ' hier immer Wert = 1
With Sheets("LB")
.Range("A:Q").HorizontalAlignment = xlCenter
.Range("C:C").NumberFormat = "0.0"
.Range("F:F").NumberFormat = "m/d/yyyy"
.Range("J:J").NumberFormat = "hh:mm:ss"
End With
Sheets("ML").Range("J1:S" & ende).Copy
Sheets("LB").Range("A1").PasteSpecial Paste:=xlValues
Sheets("ML").Range("I1:I" & ende).Copy
Sheets("LB").Range("K1").PasteSpecial Paste:=xlValues
Liste.AutoFilter
UserForm4.Show
End Sub