|
Liebe VBA'ler
ich stehe vor folgendem Problem:
Ich habe ein einspaltiges Listenfeld das ich mit folgendem Code befüllen kann.
Private Sub UserForm_Initialize()
var_LetzeZeile = tbl_alle_Daten.Cells(Rows.Count, 1).End(xlUp).Row
var_Personalnummer = Range("A3:A" & var_LetzeZeile).Value
var_Mitarbeitername = Range("B3:B" & var_LetzeZeile).Value
lst_Mitarbeiter.List = var_Personalnummer
cmd_Speichern.Enabled = False
End Sub
In diesem Beispiel habe ich mein Listenfeld mit den Personalnummern aus Spalte "A" bestückt.
Funktioniert sehr gut
Nun möchte ich aber ein zweispaltiges Listenfeld anlegen und Spalte "1" mit den Personalnummern aus Spalte "A" bestücken.
Spalte "2" des Listenfeldes möchte ich mit den Mitarbeiternamen aus Spalte "B" bestücken.
Ich weiß nicht, wie die die einzelnen Spalten des Listenfeldes ansteuern muss.
Kann mir da bitte jemand helfen.
Bin für jede Hilfe dankbar
Elen
|