Thema: Zellen in Abhängigkeit des Summen-Teilergebnisses markieren

Home

Gruppe

Feature

Problem

Alle Werte in Spalte B, bei denen das Summen-Teilergebnis größer/gleich 5 ist, sollen farblich hervorgehoben werden.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.

ClassModule: Tabelle1

Private Sub Worksheet_Calculate()
   Select Case Hour(Time)
      Case 22 To 24, 0 To 6
         With Range("A1")
            .Borders(xlDiagonalDown).Weight = xlThin
            .Borders(xlDiagonalUp).Weight = xlThin
         End With
         With Range("B1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
         With Range("C1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
      Case 6 To 14
         With Range("B1")
            .Borders(xlDiagonalDown).Weight = xlThin
            .Borders(xlDiagonalUp).Weight = xlThin
         End With
         With Range("A1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
         With Range("C1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
      Case 14 To 22
         With Range("C1")
            .Borders(xlDiagonalDown).Weight = xlThin
            .Borders(xlDiagonalUp).Weight = xlThin
         End With
         With Range("A1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
         With Range("B1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
   End Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt

Bedingte Formatierung vor Copy/Paste schützen	Bedingte Formatierung per VBA mit Schleife
bedingte Formatierung	Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung	Bedingte Formatierung mit UND Verknüpfung
Bedingte Formatierung Frage	bedingte Formatierung mit mehreren Bedingungen
Bedingte Formattierung	Bedingte Formatierung - kleiner als Fehler
bedingte formatierung per VBA	Bedingte Formatierung bezogen auf 2. Zelle
bedingte Formatierung	Bedingte Formatierung
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung	wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
bedingte Formatierung für zellenbereich	Bedingte Formatierung mit 2 Bedingungen
Bedingte Formatierung	bedingte Formatierung bei 15 Kriterien
Bedingtes Nummernformat.	Bedingte Formatierung
Bedingte Format. oder VBA?	Bedingte Formatierung für gesamte Zeile?
Bedingte Formatierung-VBA?	Bedingte Formatierung?!
bedingte formatierung per Makro	Bedingte Formatierung
bedingte Formatierung sowie mit Datumsfeld	Bedingte Formatierung - Zeilen gruppieren
Bedingte Formate	Bedingte Formatierung mit Formel
Bedingte Codeausführung per Attribut	bedingte Formatierung
Bedingte Formatierung anhalten	Bedingte Formatierung - Dringend
Bedingte Formatierung	Nach bestimmter bedingter Formatierung suchen
Bedingte Formatierung	Automatisch schliessen ohne Speichern, bedingt
Bedingte Formateierung	Bedingte Formatierungen - Datenbalken
Kompatibilität -Bedingte Formatierung	NUR bedingte Formate übertragen
mehr als 3 bedingte formatierungen	Bedingte Formatierung - gantt Diagramm
Bedingte Formatierung in Pivot_NICHT in SubTotals?	Dreifach Bedingte Formatierung über VBA in Pivot
bedingte Formatierung und Formeln