Office: Listbox beim start der Userform füllen

Hallo,

ich bin total am verzweifeln und hoffe das mir hier jemand helfen kann.

Ich habe den Auftrag von meinen Chef bekommen ein Toll zusammen zu bauen, womit jeder einzelne Mitarbeiter seine Arbeitszeit einem jeweiligen Projekt zuweisen kann.

Jetzt habe ich eine Tabelle mit 2 Registern einmal mit Daten und einmal mit den Einträgen.
Dann habe ich einmal eine UserForm zusammengewürfelt in der der Name, die Personalnummer, die Projektnummer usw. angegeben werden muss.

Mein Problem ist aber, dass ich beim starten der UserForm gerne in den Listenfeld alle Projektnummern aus dem Register Daten mit dem dazugehörigen Projekt aufgelistet bekommen möchte. Diese Daten möchte ich dann durch ein dopppelklick in den dazugehörigen Textboxen tranzportieren.

Die Daten die ich in die Listbox haben möchte befinden sich in E:E und jeweils ddazugehörig F:F
ich hoffe es kann mir wer helfen

Mit freundlichen Gruß
Rapunzell

:)

 

Hallo,
Listbox heißt lbxProjekte.
Code:

Gruß
Rudi

 

HAllo

Ich habe nicht verstanden was wo steht, und was wann wohin geschrieben werden soll.

Das hier:

habe ich verstanden.
Tetste mal:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Activate()
Dim arr As Variant
With Sheets("Daten")
arr = Intersect(.Range("E:F"), .Range("E1").CurrentRegion)
End With
With ListBox1
.ColumnCount = 2
.List = arr
End With
End Sub


ransi

 

Super auf dieses Forum ist einfach verlass. habe beide ausprobiert, dass zweite funktioniert tadellos.
Das erste Beispiel bekomme ich bei
With lbxProjekte
immer eine Fehlermeldung

aber wie bekomme ich bei der zweiten Lösung es hin, das wenn ich auf eine der nun auftauchenden Zeilen einen Doppelklick mache das diese zwei Werte dan jeweil in Textbox12 und Textbox2 geschrieben werden

 

Habs hinbekommen