|
Hallo nochmal
Ich habe es dann doch mal nachgebaut
Dabei ist mir aufgefallen, dass du KM und FZ vertauscht verwendest
- Die Rückgabe- Spalte KM muss zuerst stehen, dann die Such-Spalte FZ, dann das Suchwort
- Ausserdem fehlt vor dem 2. Parameter der Punkt
Also Me.TextBox33.Value = WorksheetFunction.MaxIfs(.Columns(KM), .Columns(FZ), SuchFZ)
'letzter KM-Stand pro Fahrzeug
Dim FZ As Integer, KM As Integer
Dim SuchFZ As String
FZ = 9 'Ist die Spalte, in der die Fahrzeuge stehen
KM = 16 'Ist die Spalte, in der die KM dazu stehen
SuchFZ = Me.ComboBox21
With Sheets("Fahrtenbuch")
Me.TextBox33.Value = WorksheetFunction.MaxIfs(.Columns(KM), .Columns(FZ), SuchFZ)
End With
So klappt es bei mir
LG UweD
|