mehrere Zellen markieren verhindern
03.09.2008 22:12:34
Dirk
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen oder mit Absicht mehrere Zellen markiert landet man im Debugger, wie muss ich meinen Code abändern das dies verhindert wird?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 22 And Target.Column 11 Then
If Target.Value = "X" Then
ActiveCell.ClearContents
With Selection.Interior
.ColorIndex = 3
Selection.Font.ColorIndex = 0
End With
Else
ActiveCell.Value = "X"
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
Selection.Font.ColorIndex = 10
End With
End If
End If
End Sub
Besten Dank schon mal im Vorraus
Gruss Dirk