Sverweis auf dynamischen bereich
28.10.2014 14:57:31
Renner
Ich habe einen Sverweis der mir Daten aus einem Datenblatt "Stammdaten" ausliest und in eine _
Textbox wiedergibt. Das Suchkriterium befindet sich in dem Datenblatt "Eingabe"
Nun möchte ich den Suchbereich dynamisch gestalten, da die Stammdaten nach und nach erweitert _
werden.Hier liegt das Problem.
Ich habe versucht die Vorgehensweise aus einer anderen dynamischen Funktion zu übernehmen, doch das klappt nicht.
Dieser Ausdruck funktioniert wie es sein soll
f_ausgabe.tb_Ferigungsanlage_ausgabe.Value = WorksheetFunction.VLookup(Eingabe.Cells(3, 1), _
Stammdaten.Range("A3:BA19"), 24, False)
Doch die Dynamisierung klappt nicht.
Private Sub _Click()
Dim lza As Integer
With Worksheets("Stammdaten")
'letzte Zeile bestimmen
lza = Cells(Rows.Count, "BA").End(xlUp).Row
'laden der Daten in die Ausgabemaske
f_ausgabe.tb_einlegeteil_ausgabe.Value = WorksheetFunction.VLookup(Eingabe.Cells(3, 1), _
Stammdaten.Range(Cells(3, 1), Cells(lza, 19)), 15, False)
End With
End Sub
Ich bekomme immer einen "Fehler 9" bei With.. weiß aber nicht was ich beim Kopieren falsch _
gemacht habe.
Kann mir einer sagen was da falsch ist?
Vielen Dank für eure Mühen
Gruß
Dima
Anzeige
