Ich glaube musste nochmal neu aufmachen den Thread vom 8.8.22
Sorry das ich mich jetzt erst melde, hatte aber viel zu tun.
Nochmal Danke für Deinen Code der soweit nach vielem Testen gut läuft.
Eine Sache hätte ich noch, und zwar wenn ich die Tabelle runter scrolle
sehe ich die UF und Combobox nicht mehr, ( sehe nur alles wenn Tabelle ganz oben ist )
Ginge das auch eventuell noch anders ? das ich alles sehen kann ?
Dachte so wenn ich Zelle anklicke das dann daneben oder direkt auf der Zelle die UF mit Combo auf geht.
Schau mal bitte über Deinen Code ob sich da noch was ändern lässt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Select Case Target.Column
Case 3, 6, 9, 12
If Weekday(Target.Offset(0, -2).Value) = vbThursday Then
With Userform1
.StartUpPosition = 0
.Left = Target.Left
.Top = Target.Top
Call .ComboBox1.DropDown
Call .Show(vbModeless)
End With
End If
Case Else
Call Unload(Object:=Userform1)
End Select
Else
Call Unload(Object:=Userform1)
End If
End Sub
Vielen Dank im vorausGruß
Dieter