13.06.2020, 17:46
Hallo zusammen,
ich bin ein kompletter Neuling im VBA-Programmieren und muss für ein Studienprojekt eine Verleihdatenbank programmieren. Es wächst mir etwas über den Kopf und ich habe schon mehere Seiten durchsucht, aber nichts funktionierendes gefunden. Nun bitte ich innständig um eure Hilfe. Ich erkläre mal kurz um was es bei meiner Frage geht. Und zwar möchte ich in eine Textbox den Preis aus einer Spalte aus einem Excel-Sheet suchen/auslesen und danach in die Textbox ausgeben. Jedoch muss ich diesen Wert vorher mit einem SVerweis über die Gerätenummer suchen. Die Gerätenummer habe ich bereits in einer Textbox ausgegeben.
Kann mir wer helfen?
Anbei mein Code bisher..
Private Sub tb_deviceno_AfterUpdate()
Me.tb_price = Application.WorksheetFunction.VLookup(Val(tb_deviceno), Worksheets("Geraeteverwaltung").Range("A:H"), 9, False)
End Sub
Danke schon mal im Voraus
ich bin ein kompletter Neuling im VBA-Programmieren und muss für ein Studienprojekt eine Verleihdatenbank programmieren. Es wächst mir etwas über den Kopf und ich habe schon mehere Seiten durchsucht, aber nichts funktionierendes gefunden. Nun bitte ich innständig um eure Hilfe. Ich erkläre mal kurz um was es bei meiner Frage geht. Und zwar möchte ich in eine Textbox den Preis aus einer Spalte aus einem Excel-Sheet suchen/auslesen und danach in die Textbox ausgeben. Jedoch muss ich diesen Wert vorher mit einem SVerweis über die Gerätenummer suchen. Die Gerätenummer habe ich bereits in einer Textbox ausgegeben.
Kann mir wer helfen?
Anbei mein Code bisher..
Private Sub tb_deviceno_AfterUpdate()
Me.tb_price = Application.WorksheetFunction.VLookup(Val(tb_deviceno), Worksheets("Geraeteverwaltung").Range("A:H"), 9, False)
End Sub
Danke schon mal im Voraus