Hallo zusammen,
ich bin dabei einen Urlaubplan zu erstellen.
Nun will ich über eine ListBox (die Einträge für die Listbox stehen im Tabellenblatt Listen "E1:E5", die ich in Userform erstellt habe durch einen Doppelklick, dass die Werte in die aktive Zelle eingetragen werden (zulässiger Bereich Tabellenblat 2015, "J:NK200")
Mein Problem ist, dass die Werte meim Doppelklick leider nicht eingetragen werden.
Könnt ihr mir bitte helfen, Was mache ich falsch.
Das habe ich bis jetzt:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim rLaubt As Range
'Definition des Bereiches, in dem Änderungen erlaubt sind
Set rLaubt = Range("J:NK200")
'Überprüfe, ob erlaubter Bereich und aktive Zelle eine Schnittmenge haben
If Not Intersect(rLaubt, ActiveCell) Is Nothing Then
'schreibe Inhalt der ListBox in die aktive Zelle
ActiveCell.Value = ListBox1.Value
End If
|