Makro abändern
30.08.2013 20:58:39
mike49
ich habe ein kleines Makro, das ich wie folgt abändern möchte:
Es soll bei Rechtsklick in Column 5 (Spalte E) "Urlaub" eingetragen werden. Bei erneutem Rechtsklick auf "Urlaub" soll das wieder gelöscht werden.
Das gleiche soll in Column 6 (Spalte F) bei "1/2 Urlaub" bei Rechtsklick geschehen.
Wie sieht das geänderte Makro aus?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E7:E41"), Range("F7:F41"))) Is Nothing Then
Cancel = True
If Target = "" And Cells(Target.Row, 2).Value "00:00:00" Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
Else
Target = ""
End If
End If
End If
End Sub
Gruß
mike49
Anzeige