ich habe folgendes Phänomen und zwar ich gebe über eine Userform Listfeld per Doppelklick Daten ein .
das klappt auch soweit nur wenn die Userform die Eingabezelle überlagert dann öffnet die Userform ein Eintrag daraus wird eingetragen und die User form schließt sofort wieder. ohne das ich einen Eintrag anwählen kann.
Wenn in den Eigenschaften Fenstermitte oder Bildschirmmitte eingestellt ist habe ich dieses Phänomen.
so rufe ich auf.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("d8:d45,h8:h45,m8:m45,q8:q45,v8:v45,z8:z45")) Is Nothing Then
UserForm1.Show
Cancel = True
code der Userform.
Option Explicit
Private Sub ListBox1_Click()
ActiveCell.Value = UserForm1.ListBox1.Value
Unload UserForm1
ActiveCell.Offset(0, -1).Select
End Sub
Private Sub UserForm_Activate()
ListBox1.ListIndex = -1
End Sub
wäre für Lösungsvorschläge Dankbar.lg.Ernst