ListBox mehrspaltig füllen
18.11.2019 20:06:31
Peer
Ich weiß, dieses Thema ist schon so oft durchgekaut worden, aber ich sitze gerade seit gefühlt 3 Stunden an ein und dem selben Problem und komme nicht weiter.
Daher kam ich auf die Idee, das Super-Forum hier zu fragen.
Ich möchte aus dem Blatt "Parameter" alle Daten auslesen und habe ein Userform erstellt.
Bei normalen TextBoxen und einem einspaltigen Liste konnte ich bis jetzt alles mit meinen bescheidenen VBA-Kenntnissen hinbekommen, aber bei einer dreispaltigen Liste komm ich einfach nicht weiter.
Bis jetzt habe ich zum Einlesen folgenden Code...
Private Sub UserForm_Activate()
Dim ListSZ1 As Range
Set ListSZ1 = Worksheets("Parameter").Range("Q3:S14")
With Worksheets("Parameter")
'Daten aus "Parameter" auslesen
Me.txt_Name.Text = .Range("A31").Text
Me.txt_Email.Text = .Range("A30").Text
Me.txt_Funktion = .Range("H30").Text
Me.txt_PersNr = .Range("H31").Text
Me.txt_Wohnort_PLZ = .Range("C18").Text
Me.txt_Wohnort_ORT = .Range("D18").Text
Me.txt_Wohnort_STRASSE = .Range("E18").Text
Me.txt_ETS_PLZ = .Range("C21").Text
Me.txt_ETS_ORT = .Range("D21").Text
Me.txt_ETS_STRASSE = .Range("E21").Text
Me.txt_FAE.Text = .Range("C4").Text
Me.txt_081.Text = .Range("J4").Text
Me.txt_091.Text = .Range("K4").Text
Me.txt_LehrTheorie = .Range("D4").Text
Me.txt_LehrPraxis = .Range("E4").Text
Me.txt_LehrFahren = .Range("F4").Text
Me.txt_LehrSonst = .Range("G4").Text
Me.txt_PTZ1 = .Range("H4").Text
Me.txt_PTZ2 = .Range("I4").Text
Me.txt_Quali2 = .Range("H6").Text
Me.txt_WD1 = .Range("L4").Text
Me.txt_WD2 = .Range("M4").Text
Me.txt_WD3 = .Range("N4").Text
Me.txt_WD4 = .Range("O4").Text
Me.txt_ZN1 = .Range("L6").Text
Me.txt_ZN2 = .Range("M6").Text
Me.txt_ZN3 = .Range("N6").Text
Me.txt_ZN4 = .Range("O6").Text
Me.lst_Verwendung.List = .Range("A2:A29").Value
With Me.lst_SZ1
'.List.RowSource = ListSZ1.Value
.ColumnCount = 3
.ColumnHeads = True
.AddItem = .Range("Q3:S14").Value
.List(.ListCount - 1, 1) = .Range("Q")
.List(.ListCount - 1, 2) = .Range("R")
End With
End With
End Sub
Private Sub btn_OK_Click()
' schreibe Wert aus UF-Textbox in Zelle von Parameter-Tabelle (CCur() = Währungsformat _
Zelle)
With Worksheets("Parameter")
.Unprotect
.Range("C4").Value = CCur(Me.txt_FAE)
.Range("D4").Value = CCur(Me.txt_LehrTheorie)
.Range("E4").Value = CCur(Me.txt_LehrPraxis)
.Range("F4").Value = CCur(Me.txt_LehrFahren)
.Range("G4").Value = CCur(Me.txt_LehrSonst)
.Range("H4").Value = CCur(Me.txt_PTZ1)
.Range("I4").Value = CCur(Me.txt_PTZ2)
.Range("J4").Value = CCur(Me.txt_081)
.Range("K4").Value = CCur(Me.txt_091)
.Range("L4").Value = CCur(Me.txt_WD1)
.Range("M4").Value = CCur(Me.txt_WD2)
.Range("N4").Value = CCur(Me.txt_WD3)
.Range("O4").Value = CCur(Me.txt_WD4)
.Range("H6").Value = CCur(Me.txt_Quali2)
.Range("L6").Value = CCur(Me.txt_ZN1)
.Range("M6").Value = CCur(Me.txt_ZN2)
.Range("N6").Value = CCur(Me.txt_ZN3)
.Range("O6").Value = CCur(Me.txt_ZN4)
.Range("A31").Value = Me.txt_Name
.Range("A30").Value = Me.txt_Email
.Range("H30").Value = Me.txt_Funktion
.Range("H31").Value = Me.txt_PersNr
.Range("C18").Value = Me.txt_Wohnort_PLZ
.Range("D18").Value = Me.txt_Wohnort_ORT
.Range("E18").Value = Me.txt_Wohnort_STRASSE
.Protect
End With
' schließe UF
Unload Me
End Sub
Wie ihr sehen könnt, habe ich schon einiges experimentiert. Aber es geht nicht weiter. Alles ohne Erfolg:
Kann mir jemand auf die Sprünge helfen, welche Gedankenfehler ich habe?
LG
Peer