habe eine Datei, in der gem. folgendem Code bei Doppelklick in bestimmte Feldern (hier: Bereich I4 bis AL2000) ein "X" erscheint.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set SMenge = Application.Intersect(Range("I4:AL2000"), Range(Target.Address))
If SMenge Is Nothing Then Exit Sub
Target.Value = "X"
End Sub
Nun ist es notwendig, dass dieser Code in den gewählten Spalten nur dann läuft, wenn Zeile 2 der entsprechenden Spalte mit einem Wert gefüllt ist.
Bsp. 1: J2 = "" : es sollen keine "X" via Doppelklick in dieser Spalte gesetzt werden können
Bsp. 2: K2 "" : es sollen "X" via Doppelklick in dieser Spalte gesetzt werden können
Hoffe, Ihr könnt mir wieder mal weiterhelfen! :-)
VG u vielen Dank im Voraus,
Micha