Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zellfarbe beim aktivieren der Zelle auslesen

Betrifft: Zellfarbe beim aktivieren der Zelle auslesen von: Hartmut_M
Geschrieben am: 02.09.2014 17:06:22

Hallo, ist es möglich beim anklicken der Zelle die aktuelle Hintergrundfarbe auszulesen und in einer Variablen zu speichern?

Hintergrund:
In meiner Tabelle soll ein anderer User die Farbe einer Zelle auf grün ändern können aber nicht auf rot oder gelb.

Wenn er also ein rote Zelle mit Format übertragen gelb machen will, soll eine msgbox kommen, die ihm sagt "Unberechtigt" und anschließend soll die Farbe wieder rot werden.

Habt ihr eine Idee?

Gruß Hartmut

  

Betrifft: AW: Zellfarbe beim aktivieren der Zelle auslesen von: Hartmut_M
Geschrieben am: 02.09.2014 17:17:17

Habe es jetzt so gelöst.

If VBA.Environ("username") = "xyz" Then

        If Target.Column >= 28 And Target.Row > 1 And Target.Row < 5 Then
        
            If Target.Interior.Color <> 3407718 Then MsgBox ("Sie sind für die Farben 'rot' und  _
'gelb' nicht berechtigt!" _
                & vbCrLf & "Bitte genehmigen Sie oder sprechen Sie Ihren Mitarbeiter an.")
        End If
        
    End If
    
    ActiveSheet.Protect Password:="xxx", AllowFormattingCells:=False
Gibt es noch eine andere Möglichkeit?


 

Beiträge aus den Excel-Beispielen zum Thema "Zellfarbe beim aktivieren der Zelle auslesen"