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: hCHIP-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.