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.