Auf Englisch lesen

Teilen über

Verwenden eines Makros zum Anwenden des Zellenschattierungsformats auf jede andere Zeile in einem ausgewählten Bereich in Excel

  • Artikel
  • Gilt für:
    Microsoft Excel

Zusammenfassung

Microsoft Excel formatiert neue Daten, die Sie am Ende einer Liste eingeben, automatisch so, dass sie mit den vorherigen Zeilen übereinstimmen. Sie können eine Liste auch programmgesteuert formatieren. Dieser Artikel enthält ein Microsoft Visual Basic for Applications-Beispielverfahren zum Schattieren jeder anderen Zeile in einer Auswahl.

Weitere Informationen

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.

Um die in Microsoft Office Excel 2003 und früheren Versionen verfügbaren Muster anzuzeigen, klicken Sie im Menü Format auf Zellen und dann auf die Registerkarte Muster .

Führen Sie die folgenden Schritte aus, um die in Microsoft Office Excel 2007 verfügbaren Muster anzuzeigen:

  1. Klicken Sie auf der Registerkarte Start in der Gruppe Zellen auf Format. Klicken Sie dann auf Zellen formatieren..
  2. Klicken Sie im Dialogfeld Zellen formatieren auf die Registerkarte Füllung .

In der Dropdownliste Muster werden die verfügbaren Muster angezeigt. Das Muster, das im folgenden Makro verwendet wird, auf das durch den Konstantennamen xlGray16 verwiesen wird, ist das fünfte Muster von rechts in der ersten Zeile.

Das folgende Makro legt das Muster in jeder anderen Zeile der aktuellen Auswahl auf xlGray16 fest.

Beispiel für eine Visual Basic-Prozedur

VB 
Sub ShadeEveryOtherRow()
    Dim Counter As Integer

   'For every row in the current selection...
    For Counter = 1 To Selection.Rows.Count
        'If the row is an odd number (within the selection)...
        If Counter Mod 2 = 1 Then
            'Set the pattern to xlGray16.
            Selection.Rows(Counter).Interior.Pattern = xlGray16
        End If
    Next

End Sub

Hinweis

Dieses Makro wird nur für die Zeilen des ausgewählten Bereichs ausgeführt. Wenn Sie nach dem Ausführen des Makros neue Datenzeilen hinzufügen, müssen Sie das Makro erneut ausführen, wobei alle neuen Datenzeilen ausgewählt sind.

Dieser Prozess kann auch manuell mithilfe der bedingten Formatierung durchgeführt werden.

Weitere Informationen zum Formatieren jeder anderen Zeile mit bedingter Formatierung finden Sie unter Anwenden von Schattierung auf alternative Zeilen in einem Arbeitsblatt.

Sie können eine Liste auch mithilfe des Menübefehls Autoformatieren formatieren. In Excel 2003 und Microsoft Excel 2002 befindet sich der Menübefehl Autoformatieren im Menü Format . In Excel 2007 müssen Sie der Symbolleiste für den Schnellzugriff den Menübefehl Autoformatieren hinzufügen. Gehen Sie dazu wie folgt vor:

  1. Klicken Sie auf die Microsoft Office-Schaltfläche und dann auf Excel-Optionen.
  2. Klicken Sie auf Entwurfsanpassung.
  3. Klicken Sie auf diese Option, um unter Befehle auswählen aus die Option Alle Befehle auszuwählen.
  4. Klicken Sie auf Automatisch formatieren, klicken Sie auf Hinzufügen, und klicken Sie dann auf OK.