Zwischensummen hervorheben

Bei meiner Arbeit habe ich mit Zwischensummen in Excel-Tabellen zu tun. Ich m÷chte die Zeilen mit diesen Zwischensummen durch eine andere Farbe oder fette Schrift hervorheben, ohne dass ich dafⁿr alle Zeilen einzeln markieren und bearbeiten muss - bei 8.000 Zeilen wΣre das ziemlich mⁿhsam. Gibt es eine andere M÷glichkeit?

Hier bietet sich ein Makro an. Allerdings besteht eine Schwierigkeit darin, die Zeilen mit den Zwischensummen in der Tabelle zu finden. Die L÷sung: In Ihrer Tabelle steht die Bezeichnung ╗Zwischen-Summe½ in der Zeile. Dies erkennt auch das Makro.
Fⁿhren Sie den Befehl ╗Extras | Makro | Makros½ aus. Geben Sie dort als Makronamen ╗Hervorheben½ ein und klicken Sie auf ╗Erstellen½. Nun geben Sie im VBA-Editor folgende Anweisungen ein oder holen sich das Listing von der Heft-CD: CHIP-Code HERVORHE 

Sub Hervorheben
Cells.Find(What:="Zwischen-Summe", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= False).Activate
Do Until ActiveCell.Row < X
    X = ActiveCell.Row
    ActiveCell.EntireRow.Activate
    Selection.Font.Bold = True
    Cells(X + 1, 1).Activate
    Cells.FindNext(After:=ActiveCell ).Activate
Loop
End Sub


Danach wΣhlen Sie ╗Datei | Schlie▀en und zurⁿck zu Microsoft Excel½. So funktioniert das Makro:Der erste Befehl definiert die Suche nach der Bezeichnung ╗Zwischen-Summe½ beginnend von der aktiven Zelle in Richtung zum Tabellenende. Bei erfolgreicher Suche aktiviert der Befehl die Zelle mit dem Begriff. Die folgenden Kommandos laufen in einer Schleife, bis sie das Tabellenende erreichen. Fⁿr die Auswertung der Bedingung merkt sich das Makro die aktive Zeile und markiert diese. Hier k÷nnen Sie verschiedene Formatierungen fⁿr die Zeile vornehmen. Danach setzt das Makro den Cursor auf den Anfang der nΣchsten Zeile und setzt die Suche fort.
Anstelle der Formatierung in Fettschrift mit der Anweisung ╗Selection. Font.Bold = True½ k÷nnen Sie die Schriftfarbe durch 

With Selection.Font
  .ColorIndex = 3
End With


etwa auf Rot Σndern. In der Excel-Tabelle setzen Sie nun die Markierung an den Anfang und fⁿhren ╗Extras | Makro | Makros½ aus. In der Liste wΣhlen Sie ╗Hervorheben½ und klicken auf ╗Ausfⁿhren½. Das Makro hebt dann sofort alle Zwischensummen hervor.