Userform ließt nicht alle Informationen aus der Tabelle

Spygod

Banned
Registriert
Feb. 2005
Beiträge
762
Excel bei der Userform in der letzten Textbox (NWartung) keine Werte an?

Private Sub LB_FahrzeugBearbeiten_Click()
Dim auswahl As Double
auswahl = Me.LB_FahrzeugBearbeiten.ListIndex
With Me
.TB_Fahrzeugnummer = [a2].Offset(auswahl, 1)
.TB_Autotyp = [a2].Offset(auswahl, 2)
.TB_Stundentarif1 = [a2].Offset(auswahl, 3)
.TB_Stundentarif2 = [a2].Offset(auswahl, 4)
.TB_Stundentarif3 = [a2].Offset(auswahl, 5)
.TB_Tagestarif = [a2].Offset(auswahl, 6)
.TB_Wochenendgutschrift = [a2].Offset(auswahl, 7)
.TB_Kilometertarif = [a2].Offset(auswahl, 8)
.TB_Anschaffungspreis = [a2].Offset(auswahl, 9)
.TB_Anschaffungsdatum = [a2].Offset(auswahl, 10)
.TB_NaechsteHU = [a2].Offset(auswahl, 11)
.TB_NWartung = [a2].Offset(auswahl, 12)
End With
End Sub
 

Ähnliche Themen

Zurück
Oben