Beschreibung für "Mehrere Zellen"
20.12.2004 11:14:37
Andy,
ich habe eine prozedur in vba, die verlassen werden soll, wenn mehrere zellen selektiert worden sind. wie heisst denn die funktion? :-)
Gruss Andy
Hier die Prozedur:
Dim xjan As Integer
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If (Target.Column < 3 Or Target.Column > 7) Or (Target.Row > 34 Or Target.Row < 29) Then Exit Sub
xjan = ActiveSheet.Cells(16, 4).Value
Select Case Target.Interior.ColorIndex
Case 2
Selection.Interior.ColorIndex = 37
xjan = xjan + 1
Case 40
MSGBox "Feiertag !!", vbExclamation
Case Else
Selection.Interior.ColorIndex = 2
xjan = xjan - 1
End Select
Cancel = True
ActiveSheet.Cells(16, 4).Value = xjan
End Sub
Anzeige