Hintergrundfarbe ändern, aktuelle Zelle hervorheben, unterschiedliche Farben (Excel 2019)

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    Hintergrundfarbe ändern, aktuelle Zelle hervorheben, unterschiedliche Farben (Excel 2019)

    Hallo zusammen,

    habe für einen Freund folgende Lösung geschrieben (ist eine Art Tätigkeitsbericht mit 6 Bereichen). Jeder Bereich ist unterschiedlich breit und durch verschiedene Farben von einander getrennt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Reihe As Integer
    2. Public Spalte As Integer
    3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    4. ' Exit Sub
    5. Dim AktuellerTag As Integer
    6. Dim Markierungsfarbe As Integer
    7. Dim Neutral As Integer
    8. Dim Morgens As Integer
    9. Dim Nachmittags As Integer
    10. Dim Abends As Integer
    11. Dim Haushaltsdame As Integer
    12. Dim Sonstges As Integer
    14. ' Einige Werte festlegen bzw. aktuell ermitteln
    15. AktuellerTag = 33
    16. Markierungsfarbe = 50
    17. Neutral = 0 ' Weiss
    18. Morgens = Range("D1").Interior.ColorIndex ' Orange
    19. Nachmittags = Range("M1").Interior.ColorIndex ' Hellgrün
    20. Abends = Range("Q1").Interior.ColorIndex ' Hellblau
    21. Haushaltsdame = Range("Y1").Interior.ColorIndex ' Grün Akzent 6, heller 60%
    22. Sonstges = Range("AF1").Interior.ColorIndex ' Orange Akzent 2, heller 60%
    23. Reihe = ActiveCell.Row
    24. Spalte = ActiveCell.Column
    26. ' Wenn die Überschriftenzeile überschritten wird nach oben, dann nichts unternehmen
    27. If Reihe < 3 Or Spalte < 3 Then
    28. Exit Sub
    29. End If
    31. ' Die Zeilen einfärben
    32. ' Spalte 1 - 3
    33. Call Grundfarben_einstellen(1, 3, Neutral)
    35. ' Spalte 4 - 12
    36. Call Grundfarben_einstellen(4, 12, Morgens)
    38. ' Spalte 13 - 16
    39. Call Grundfarben_einstellen(13, 16, Nachmittags)
    41. ' Spalte 17 - 24
    42. Call Grundfarben_einstellen(17, 24, Abends)
    44. ' Spalte 25 - 31
    45. Call Grundfarben_einstellen(25, 31, Haushaltsdame)
    47. ' Spalte 32 - 35
    48. Call Grundfarben_einstellen(32, 35, Sonstges)
    50. ' Spalte 36 - 256
    51. Call Grundfarben_einstellen(36, 256, Neutral)
    53. ' Aktuelle Zelle markieren
    54. Range(Cells(Reihe, 1), Cells(Reihe, 1)).Interior.ColorIndex = AktuellerTag
    55. Range(Cells(Reihe, Spalte), Cells(Reihe, Spalte)).Interior.ColorIndex = Markierungsfarbe
    57. End Sub
    58. Public Sub Grundfarben_einstellen(Anfang As Integer, Ende As Integer, Farbe As Integer)
    59. ' Generell die aktuelle Reihe, drüber und drunter wieder auf Standard stellen
    60. If Reihe > 1 Then
    61. Range(Cells(Reihe - 1, Anfang), Cells(Reihe - 1, Ende)).Interior.ColorIndex = Farbe
    62. End If
    63. Range(Cells(Reihe, Anfang), Cells(Reihe, Ende)).Interior.ColorIndex = Farbe
    64. Range(Cells(Reihe + 1, Anfang), Cells(Reihe + 1, Ende)).Interior.ColorIndex = Farbe
    65. End Sub


    Hiermit kann man ab dem Bereich C3 schön sehen, wo sich die aktuelle Zelle befindet.
    (Ja, wenn man mehre Zellen mit der Maus markiert funktioniert dies nicht und bei anspringen mit der Maus bleiben auch die alten Markierungen sichtbar)
    Mein Freund soll aber sich mit den Pfeiltasten von Zelle zu Zelle sich bewegen und dann funktioniert meine Lösung soweit ganz gut.

    Was ich aber nicht verstehe bzw. ich ein kleines optisches Problem habe ist folgendes:
    Wie man sieht hole ich die aktuelle Hintergrundfarbe der einzelnen Spaltenbereiche aus den jeweiligen ersten Zeilen. Damit kann ich mal eben schnell die Optik anpassen. Das Einfärbe mache ich ganz normal mit der Füllfarbe im Reiter Start, Schriftart.
    Wenn ich jetzt aber meinen Code benutze, dann werden leicht andere Werte eingestellt.

    Kennt jemand hier die Lösung bzw. kann mir erklären, warum das so ist?

    Gruß

    Volker

    Hallo Zusammen,

    so, habe es gerade doch noch selbst hinbekommen.

    Hier noch die verbesserte Lösung. In Zelle A1 kann jetzt die Hintergrundfarbe für den aktuellen Tag hinterlegt werden und in B1 kann die Zelle so formatiert werden, wie die aktuelle Zelle aussehen soll. Hintergrundfarbe, Schriftgröße und Schriftfarbe werden übernommen. D2 ist für den normalen Zustand zuständig.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Reihe As Double
    3. Public Spalte As Double
    4. Public AktuellerTag As Double
    5. Public MarkierungsHintergrundfarbe As Double
    6. Public MarkierungsTextfarbeAktuell As Double
    7. Public MarkierungsTextfarbeStandard As Double
    8. Public MarkierungsTextSchriftgroesseAktuell As Integer
    9. Public MarkierungsTextSchriftgroesseStandard As Integer
    10. Public Neutral As Double
    11. Public Morgens As Double
    12. Public Nachmittags As Double
    13. Public Abends As Double
    14. Public Haushaltsdame As Double
    15. Public Sonstges As Double
    16. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    17. ' Einige Werte festlegen bzw. aktuell ermitteln
    18. AktuellerTag = Range("A1").Interior.Color
    19. MarkierungsHintergrundfarbe = Range("B1").Interior.Color
    20. MarkierungsTextfarbeAktuell = Range("B1").Font.Color
    21. MarkierungsTextfarbeStandard = Range("D1").Font.Color
    22. MarkierungsTextSchriftgroesseAktuell = Range("B1").Font.Size
    23. MarkierungsTextSchriftgroesseStandard = Range("D2").Font.Size
    24. Neutral = Range("A2").Interior.Color
    25. Morgens = Range("D1").Interior.Color
    26. Nachmittags = Range("M1").Interior.Color
    27. Abends = Range("Q1").Interior.Color
    28. Haushaltsdame = Range("Y1").Interior.Color
    29. Sonstges = Range("AF1").Interior.Color
    31. Reihe = ActiveCell.Row
    32. Spalte = ActiveCell.Column
    34. ' Wenn die Überschriftenzeile überschritten wird nach oben, dann nichts unternehmen
    35. If Reihe < 3 Or Spalte < 3 Or Range(Cells(Reihe, 1), Cells(Reihe, 1)).Value = "" Then
    36. Exit Sub
    37. End If
    39. ' Generell die aktuelle Reihe, die drüber und drunter normal
    40. ' Spalte 1 - 3
    41. Call Grundfarben_einstellen(1, 3, Neutral)
    43. ' Spalte 4 - 12
    44. Call Grundfarben_einstellen(4, 12, Morgens)
    46. ' Spalte 13 - 16
    47. Call Grundfarben_einstellen(13, 16, Nachmittags)
    49. ' Spalte 17 - 24
    50. Call Grundfarben_einstellen(17, 24, Abends)
    52. ' Spalte 25 - 31
    53. Call Grundfarben_einstellen(25, 31, Haushaltsdame)
    55. ' Spalte 32 - 35
    56. Call Grundfarben_einstellen(32, 35, Sonstges)
    58. ' Spalte 36 - 256
    59. Call Grundfarben_einstellen(36, 256, Neutral)
    61. ' Aktuelle Zelle markieren
    62. Range(Cells(Reihe, 1), Cells(Reihe, 1)).Interior.Color = AktuellerTag
    63. Range(Cells(Reihe, Spalte), Cells(Reihe, Spalte)).Interior.Color = MarkierungsHintergrundfarbe
    64. Range(Cells(Reihe, Spalte), Cells(Reihe, Spalte)).Font.Color = MarkierungsTextfarbeAktuell
    65. Range(Cells(Reihe, Spalte), Cells(Reihe, Spalte)).Font.Size = MarkierungsTextSchriftgroesseAktuell
    67. End Sub
    68. Public Sub Grundfarben_einstellen(Anfang As Double, Ende As Double, Farbe As Double)
    69. If Reihe > 1 Then
    70. Range(Cells(Reihe - 1, Anfang), Cells(Reihe - 1, Ende)).Interior.Color = Farbe
    71. Range(Cells(Reihe - 1, Anfang), Cells(Reihe - 1, Ende)).Font.Color = MarkierungsTextfarbeStandard
    72. Range(Cells(Reihe - 1, Anfang), Cells(Reihe - 1, Ende)).Font.Size = MarkierungsTextSchriftgroesseStandard
    73. End If
    74. Range(Cells(Reihe, Anfang), Cells(Reihe, Ende)).Interior.Color = Farbe
    75. Range(Cells(Reihe, Anfang), Cells(Reihe, Ende)).Font.Color = MarkierungsTextfarbeStandard
    76. Range(Cells(Reihe, Anfang), Cells(Reihe, Ende)).Font.Size = MarkierungsTextSchriftgroesseStandard
    78. Range(Cells(Reihe + 1, Anfang), Cells(Reihe + 1, Ende)).Interior.Color = Farbe
    79. Range(Cells(Reihe + 1, Anfang), Cells(Reihe + 1, Ende)).Font.Color = MarkierungsTextfarbeStandard
    80. Range(Cells(Reihe + 1, Anfang), Cells(Reihe + 1, Ende)).Font.Size = MarkierungsTextSchriftgroesseStandard
    81. End Sub


    Gruß

    Volker

Facebook
Telefonspende