Vlookup verursacht überlaufen+ unverträglichkeit
26.04.2019 15:06:01
Luca
folgendes Problem, möchte Vlookup nutzen funktioniert aber leider nicht wie gewollt.
Habe eine Userform angelegt, mit dieser kann man Rechnungen schreiben.
Wenn man in eine ComboBox die Artikel Nummer auswählt, sollen in den TextBoxen direkt Artikel Name und Preis erscheinen.
Das klappt aber nur wenn die Artikel Nr. rein nummerisch ist, sobald zwischen den Nummer Buchstaben sind funktioniert es nicht, oder wenn die Artikel Nr. mehr als 10 Zahlen enthält.
Würde gern wissen was ich ändern muss.
Unten der Code.
Private Sub ComboBox2_AfterUpdate()
'Lookup um Infos in TextBoxen anzuzeigen
With Me
.PreisListe_1 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox2), Tabelle5.Range("A2: _
C300"), 3, 0)
.Name1 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox2), Tabelle5.Range("A2:C300"), 2, _
_
0)
End With
End Sub
Vielen Dank und Lieben Gruß
Luca