|
Erstens muß es heißen
1 | If ComboBox56.ListIndex <> 1 Then
|
Das heißt nur, daß der Code nur ausgeführt werden darf, wenn in der ComboBox auch tatsächlich ein Eintrag ausgewählt ist. Ab wann gesucht wird bestimmt die Zeile
1 | lngZeile = ComboBox56.ListIndex + 3
|
Da ComboBoxen den Index mit Null beginnen, heißt der erste Eintrag hat den Index = 0, muß die Nummer der ersten zu durchsuchenden Zeile addiert werden, da eine Zeile = 0 zu einem Fehler führen würde.
Wo Du den LetzteZeile - Code brauchst kann ich nicht sagen. Was Du mir von Deinem Code geschickt hast erfordert diese Zeile überhaupt nicht, da hier die "Application.Worksheetfunction.VLookup" nicht vorkommt, die nach Deinem Post den Fehler verursacht.
Wenn Du die irgendwo hast hat der Aufruf die Form
1 | Variable = VLOOKUP(Suchkriterium, Matrix, Zielspalte, False)
|
Da übergibst Du also eine Matrix. Und dort bastelst Du dir den Bereich mit
1 2 3 4 5 6 7 8 9 10 | Dim LetzteZeile As Long
Dim SuchMatrix As String
Dim Ergebnis As String
With ThisWorkbook.Sheets("AUSWERTUNG")
LetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
End With
SuchMatrix = "A1:A" & CStr(LetzteZeile)
Ergebnis = VLOOKUP(Suchkriterium, [SuchMatrix], 3, False)
|
aber wie gesagt: Dein Code enthält SVERWEIS überhaupt nicht, deshalb weiß ich auch nicht, wo der Fehler auftritt buw. beseitigt werden muß.
Severus
|