Targetbereich
23.07.2003 16:12:50
Peter
ich bitte um Hilfe da ich meinen Fehler nicht finde.
Wieso kann ich außerhalb des "Targetbereiches" vorhandene Einträge löschen?
Danke Peter
~begin~
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = 1
Select Case Worksheets("Start").Range("A30")
'#### zur Arbeit
Case Is = 1
If Target.Row > 4 And Target.Row < 55 And _
Target.Column > 3 And Target.Column < 35 And _
Target.Value = "" Then
Target.Value = "/"
Else: Target.Value = ""
End If
With Target.Font
.Superscript = False
.Name = "Arial"
.Size = 10
.ColorIndex = 1
.Bold = True
End With
With Target
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
'Beenden der Sub
Case Is = 0
Exit Sub
End Select
End Sub
~end~