Wie kann man in Excel abwechselnd die Zeilenhöhe und Spaltenbreite anpassen?
Angenommen, Sie arbeiten mit einem umfangreichen Arbeitsblatt, dessen Spaltenbreiten oder Zeilenhöhen abwechselnd angepasst werden müssen. Bei nur wenigen Spalten oder Zeilen können Sie diese manuell einzeln anpassen – doch wie gelingt es Ihnen, mehrere Zeilenhöhen oder Spaltenbreiten in Excel gleichzeitig zu ändern?
Jede zweite Zeilenhöhe mithilfe der Filterfunktion ändern
Jede zweite Zeilenhöhe / Spaltenbreite mithilfe von VBA-Code ändern
Jede zweite Zeilenhöhe / Spaltenbreite mit Kutools für Excel ändern
Jede zweite Zeilenhöhe mithilfe der Filterfunktion ändern
Mithilfe der Filter-Funktion erstellen Sie zunächst eine Hilfsspalte, wenden dann die Filterfunktion an, um die gewünschten Zeilen zu filtern, und passen schließlich die Höhe aller gefilterten Zeilen gleichzeitig an. Gehen Sie dazu wie folgt vor:
1. Geben Sie neben Ihren Daten zunächst die Zahl 0 in eine leere Zelle der ersten und die Zahl 1 in eine leere Zelle der zweiten Zeile ein. Markieren Sie anschließend beide Zellen und ziehen Sie das Ausfüllkästchen über den Zellbereich, dessen Zeilenhöhe Sie anpassen möchten. Wählen Sie dabei im Kontextmenü des Ausfüllkästchens Zellen kopieren, um das Ergebnis wie im folgenden Screenshot zu erhalten:
2. Markieren Sie nun die Hilfsspalte und klicken Sie auf Daten > Filter. Klicken Sie anschließend auf die 
-Schaltfläche und wählen Sie „0“ oder „1“ aus der Dropdown-Liste aus. In diesem Beispiel wähle ich „0“ (siehe Screenshot):
3. Klicken Sie auf OK. Alle Zeilen, die die Zahl 0 enthalten, wurden gefiltert. Markieren Sie diese gefilterten Zeilen und klicken Sie auf Start > Format > Zeilenhöhe (siehe Screenshot):
4. Geben Sie im Zeilenhöhe-Dialogfeld die gewünschte Zeilenhöhe ein (siehe Screenshot):
5. Klicken Sie anschließend auf OK, um das Dialogfeld zu schließen. Ihre ausgewählten gefilterten Zeilenhöhen wurden angepasst. Klicken Sie abschließend auf Daten > Filter, um die Filterfunktion aufzuheben. Ihre Zeilenhöhen wurden nun abwechselnd angepasst (siehe Screenshot):
Hinweise:
1. Sie können die Zeilenhöhe abwechselnd anpassen – beginnend mit der ersten Zeile.
2. Diese Methode eignet sich nicht zur Anpassung der Spaltenbreite.
3. Nach Abschluss des Vorgangs können Sie die Hilfsspalte bei Bedarf einfach löschen.
Jede zweite Zeilenhöhe / Spaltenbreite mithilfe von VBA-Code ändern
Wenn Sie sowohl die Zeilenhöhe als auch die Spaltenbreite anpassen möchten, unterstützt Sie der folgende VBA-Code.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfensterein.
VBA-Code: Jede zweite Zeilenhöhe in einem Arbeitsblatt ändern
Sub RowHeight()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Row height", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Rows.Count Step 2
WorkRng.Rows(i).RowHeight = xInput
Next
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie den Bereich auswählen sollen, dessen Zeilenhöhe Sie anpassen möchten (siehe Screenshot):
4. Klicken Sie danach auf OK. Daraufhin erscheint ein weiteres Eingabefeld, in dem Sie die gewünschte Zeilenhöhe eingeben können (siehe Screenshot):
5. Klicken Sie anschließend auf OK. Die Zeilenhöhe Ihres ausgewählten Bereichs wurde abwechselnd ab der ersten Zeile geändert (siehe Screenshot):
Hinweise:
1. Möchten Sie jede zweite Spalte automatisch anpassen, verwenden Sie bitte den folgenden VBA-Code:
VBA-Code: Jede zweite Spaltenbreite in einem Arbeitsblatt ändern
Sub CloumnWidth()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Cloumn width", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Columns.Count Step 2
WorkRng.Columns(i).ColumnWidth = xInput
Next
End Sub
2. Wenn Sie die Zeilenhöhe oder Spaltenbreite ab der zweiten Zeile bzw. Spalte anpassen möchten, markieren Sie einfach den gewünschten Datenbereich ab dieser Stelle.
Jede zweite Zeilenhöhe / Spaltenbreite mit Kutools für Excel ändern
Falls Sie Kutools für Excel installiert haben, unterstützt Sie dessen Zeilen/Spalten in Intervallen auswählen-Funktion ebenfalls dabei, zunächst jede zweite Zeile oder Spalte auszuwählen und anschließend Zeilenhöhe und Spaltenbreite gleichzeitig anzupassen.
Kutools für Excel bietet über 300 praktische Excel-Tools – testen Sie es jetzt kostenlos und ohne Einschränkungen für 30 Tage!Jetzt herunterladen.
1. Markieren Sie den gewünschten Datenbereich.
2. Klicken Sie auf Kutools > Auswählen > Zeilen/Spalten in Intervallen auswählen (siehe Screenshot):
3. Aktivieren Sie im Zeilen/Spalten in Intervallen auswählen-Dialogfeld unter dem Abschnitt „Auswählen“ entweder Zeilenoder Spalten, je nachdem, was Sie benötigen. Geben Sie anschließend im Abschnitt „Optionen“ das Intervall sowie die Anzahl der Spaltenoder Zeilenein. In diesem Beispiel wähle ich Spalten (siehe Screenshot):Spaltenoder Zeilen
4. Klicken Sie anschließend auf OK. Jede zweite Spalte wurde im markierten Bereich ausgewählt (siehe Screenshot):
5. Klicken Sie danach auf Start > Format > Spaltenbreite und geben Sie die gewünschte Spaltenbreite in das Spaltenbreite-Dialogfeld ein (siehe Screenshots):
 |  |  |
6. Klicken Sie anschließend auf OK. Die Spaltenbreite wurde abwechselnd ab der ersten Spalte angepasst.
Hinweise:
1. Um jede zweite Zeile auszuwählen, aktivieren Sie im Schritt 3 im Zeilen-Abschnitt des Zeilen/Spalten in Intervallen auswählen-Dialogfelds die Option „Zeilen“.
2. Wenn Sie die Zeilenhöhe oder Spaltenbreite ab der zweiten Zeile bzw. Spalte anpassen möchten, markieren Sie einfach den entsprechenden Datenbereich ab dieser Stelle.
Verwandte Artikel:
Wie färbt man jede zweite bzw. abwechselnde Zeile in Excel farblich hervor?
Wie löscht man schnell jede zweite Zeile in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins