Makro funktioniert nicht richtig

Bild

Betrifft: Makro funktioniert nicht richtig
von: mike49
Geschrieben am: 24.04.2015 17:10:19

Hallo Leute,
ich möchte erreichen, dass bei Rechtsklick im Bereich E8:E38 das Wort Urlaub und im Bereich F8: _ F38 das Wort 1/2 Urlaub rot eingetragen wird. Mit meinem kleinen Makro funktioniert's nicht:


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E8:E38"), Range("F8:F38"))) Is Nothing Then
         Cancel = True
         If Target = "" Then
             Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
             Target.Font.Color = -16776961
         Else
             Target = ""
         End If
     End If
End Sub

Kann jemand helfen?
Gruß
mike49

Bild

Betrifft: AW: Makro funktioniert nicht richtig
von: Nepumuk
Geschrieben am: 24.04.2015 17:46:05
Hallo,
was funktioniert nicht? Bei mir macht es was es soll.
Gruß
Nepumuk

Bild

Betrifft: AW: Makro funktioniert nicht richtig
von: mike49
Geschrieben am: 24.04.2015 18:08:54
Hallo Nepomuk,
habe gerade bemerkt, dass es erst funktioniert, wenn ich den Blattschutz aufhebe.
Kann man das im Makro berücksichtigen?
Gruß
mike49

Bild

Betrifft: AW: Makro funktioniert nicht richtig
von: Nepumuk
Geschrieben am: 24.04.2015 18:17:33
Hallo,
ich würde das so machen:

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim objRange As Range, objCell As Range
    Set objRange = Intersect(Target, Union(Range("E8:E38"), Range("F8:F38")))
    If Not objRange Is Nothing Then
        Unprotect Password:="Geheim"
        For Each objCell In objRange
            If IsEmpty(objCell.Value) Then
                objCell.Value = IIf(objCell.Column = 5, "Urlaub", "1/2 Urlaub")
                objCell.Font.Color = vbRed
            Else
                Target.Value = Empty
            End If
        Next
        Protect Password:="Geheim"
        Cancel = True
        Set objRange = Nothing
    End If
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Makro funktioniert nicht richtig
von: mike49
Geschrieben am: 24.04.2015 18:25:29
So klappt's prima.
Danke für deine Hilfe.
Gruß
mike49

 Bild

Beiträge aus den Excel-Beispielen zum Thema "SVERWEIS Ersatz"