Eigentlich richte ich mich direkt an Nepumuk, weil der Code von ihm ist.
In Deinem Code ist noch ein kleiner Fehler, und zwar wenn ich mehrere Zeilen in den Spalten aktiviere, kommt immer der Fehler
Laufzeitfehler '13' Typen unverträglich
und die Codezeile wird angezeigt
If Weekday(Target.Offset(0, -2).Value) = vbThursday Then
Hier der gesamte Code von Dir.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Select Case Target.Column
Case 3, 7, 11, 15, 19, 23 'spalten ansprechen
If Weekday(Target.Offset(0, -2).Value) = vbThursday Then
With UserForm1
.StartUpPosition = 0
.Left = Target.Left
.Top = Target.Top - ActiveWindow.VisibleRange.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
Es wäre nett wenn Du nochmals darüber schauen könntest um den Fehler zu entfernen.
Vielen Dank im Voraus dafür.
Gruß
dieter