Microsoft Excel

Herbers Excel/VBA-Archiv

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

aktive Zelle farbig Cursor geht vertikal

Betrifft: aktive Zelle farbig Cursor geht vertikal von: ralf
Geschrieben am: 12.10.2020 15:10:21

Hallo Liebes Forum,

leider kann ich den Beitrag von Juni nicht mehr ergänzen;
https://www.herber.de/forum/archiv/1764to1768/1764877_aktive_Zelle_farbig_Cursor_geht_vertikal.html

meine Beitrag bezieht sich aber auf die Antwort von: Hajo_Zi
Geschrieben am: 11.06.2020 14:25:47.

Leider konnte ich die von Dir erstellten Arbeitsmappen nicht in meine Datei einbauen. Ich habe aber aber einen anderen Beitrag gefunden.
https://www.herber.de/forum/archiv/1324to1328/1325374_aktive_Zelle_in_Farbe.html

Darauf aufbauend habe ich dann ein Modul erstellt und für meine entsprechenden Tabellenblätter den Code abgeändert.

Public Sub farbe()
With ThisWorkbook.Worksheets("Tabelle1")
        .Unprotect Password:="??"
            On Error GoTo Fehler
                Cells.FormatConditions.Delete
                Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
                    Formula1:="="
                     Selection.FormatConditions(1).Interior.Color = RGB(255, 255, 153)
                Err.Clear
                
Fehler:
'                If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err. _
Description: Err.Clear
        .Protect Password:="??"
    End With
End Sub
Danke trotzdem für die Unterstützung.

MfG Ralf