Doppelklick
19.05.2007 16:22:10
Roger
hab schon wieder eine kleine Frage:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Set Bereich = Range("B1:B100")
If Target.Value = "O" Then
Target.Value = ""
Target.Font.Name = "Calibri"
Else
Target.Value = "O"
Target.Font.Name = "Wingdings 2"
End If
Cancel = True
End Sub
Mit diesem Code ist es möglich im ganzen Arbeitsblatt, durch Doppelklick ein Löschsymbol zu setzen.
Das ist genau das Problem:
Ich möchte das ganze nur im Bereich B1 bis B100 nutzen.
Wie kann ich diesen Bereich setzen?
Würde mich über eine Antwort freuen.
Gruss Roger
Anzeige