Excelwerte in VBA Label übertragen. Wie mach ich das?
Der Inhalt, der in der Combobox ausgewählt wird, erscheint im Labelfeld. Und je nachdem, was jetzt im Label steht wird in die Excel Tabelle geschaut und die "Straße" ausgewählt und dann in ein anderes Labelfeld übertragen. Auf dem gleichem Userform.
Meine Frage ist jetzt: wie hole ich die Werte aus der ExcelTabbelle nach der Auswahl?
(Unten habe ich meinen gescheiterten Versuch aufgelistet)
Danke schon mal im voraus.
Private Sub comSuchen_Click()
Dim wksTab1 As Worksheet
Dim anmiet As Byte
Dim ausgabean As String
anmiet = comAnmietstation.ListIndex
Set wksTab1 = Sheets("Tabelle1")
If anmiet = 0 Then
ausgabean = Tabelle1.Range("D7").Value2
ElseIf anmiet = 1 Then
ausgabean = Tabelle1.Range("D8").Value2
ElseIf anmiet = 2 Then
ausgabean = Tabelle1.Range("D9").Value2
End If
lblAn.Caption = ausgabean
End Sub