ein X mit Klick zulassen zeilebereich
08.11.2008 16:00:31
Karel
ich unterstehenden code kann ich ein X im bereich Klicken vorherige wird dan gelöst im betreffende Bereich
aber statt Zellbereich hat ich das gerne dass gleiche bereich aber nur ZEILENWEISEN als Markierung zulassen. also eine "X" je Zeilebereich zulassen.
z.B.
Bereich B2 - C2 - D2 nur eine "X" Zeilenweise zulassen zB D2
Bereich B4 - C4 - D4 nur eine "X" Zeilenweise zulassen zB B4
etc
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:D11")) Is Nothing Then
Range("B2:D11").ClearContents
ActiveCell = "X"
End If
If Not Intersect(Target, Range("J2:L11")) Is Nothing Then
Range("J2:L11").ClearContents
ActiveCell = "X"
End If
End Sub
Grüße
Kare
Anzeige