AW: Checklistenproblem
28.01.2015 12:19:44
Klaus
Hi Philipp,
F9:I9 sind aber vier Zellen! Seis drum, in den Code der Tabelle (rechtsclick auf den Tabellenreiter, Code Anzeigen, in das große weiße Fenster rechts reinkopieren) kommt folgendes:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const xMark As String = "x"
Dim rLaubt1 As Range, rLaubt2 As Range, rLaubt3 As Range
Set rLaubt1 = Range("F9:I9")
Set rLaubt2 = Range("F11:I11")
Set rLaubt3 = Range("A1:A3")
Dim DoX As Boolean
DoX = False
If Not Intersect(Target, rLaubt1) Is Nothing Then
rLaubt1.Cells.ClearContents
DoX = True
End If
If Not Intersect(Target, rLaubt2) Is Nothing Then
rLaubt2.Cells.ClearContents
DoX = True
End If
If Not Intersect(Target, rLaubt3) Is Nothing Then
rLaubt3.Cells.ClearContents
DoX = True
End If
If DoX Then
Target.Value = xMark
Cancel = True
End If
End Sub
Die Bereiche kannst du bestimmt selber anpassen. Wenn es mehr als drei werden sollen, einfach den Not-Intersect Block kopieren und die Variable anpassen.
Grüße,
Klaus M.vdT.