ich hätte da noch eine Frage wie man verhindern kann dass zwei oder mehrere Zellen markiert werden.
So dass der Benutzer immer nur eine Zelle auswählen kann.
Besten Dank
Badi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then ActiveCell.Select
'... und hier der Rest von Deinem bisherigen Code(den kennt ja keiner)
End Sub
Gruß MatthiasPrivate Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:=""
Cells.Interior.ColorIndex = xlNone
Cells(Target.Row, 2).Interior.ColorIndex = 37
Cells(Target.Row, 1).Interior.ColorIndex = 3
Cells(Target.Row, 35).Interior.ColorIndex = 3
Cells(1, Target.Column).Interior.ColorIndex = 3
ActiveSheet.Protect Password:=""
End Sub
Ich werde dann mal versuchen die zwei zu vereinigen ;-)