Wie ändert man die Zeilenhöhe / Spaltenbreite abwechselnd in Excel?
Angenommen, Sie haben ein großes Arbeitsblatt mit mehreren Spalten oder Zeilen, deren Breite oder Höhe abwechselnd angepasst werden muss. Wenn es nur wenige Spalten oder Zeilen gibt, können Sie die Zeilenhöhe oder Spaltenbreite manuell eine nach der anderen ändern. Aber wie könnten Sie die Höhe von mehreren Zeilen oder die Breite von mehreren Spalten auf einmal in Excel ändern?
Ändern Sie jede zweite Zeilenhöhe mit der Filterfunktion
Ändern Sie jede zweite Zeilenhöhe / Spaltenbreite mit VBA-Code
Ändern Sie jede zweite Zeilenhöhe / Spaltenbreite mit Kutools für Excel
Ändern Sie jede zweite Zeilenhöhe mit der Filterfunktion
Durch die Verwendung der Filterfunktion müssen Sie zuerst eine Hilfsspalte erstellen und dann die Filterfunktion anwenden, um die gewünschten Zeilen zu filtern und alle gefilterten Zeilenhöhen auf einmal anzupassen. Bitte gehen Sie wie folgt vor:
1. Neben Ihren Daten geben Sie bitte in einer leeren Zelle die Zahl 0 und 1 getrennt in die erste und zweite Zeile ein, und wählen Sie sie aus, ziehen Sie den Ausfüllknauf über den Bereich der Zellen, die Sie anpassen möchten, und aktivieren Sie „Zellen kopieren“ im Ausfüllknauf-Menü, und Sie erhalten das Ergebnis wie im folgenden Screenshot:
2. Wählen Sie dann die Hilfsspalte aus und klicken Sie auf Daten > Filter, und klicken Sie dann auf und wählen Sie 0 oder 1 aus der Dropdown-Liste aus. In diesem Beispiel werde ich 0 auswählen, siehe Screenshot:
3. Klicken Sie auf OK, alle Zeilen, die die Zahl 0 enthalten, wurden gefiltert. Wählen Sie dann diese gefilterten Zeilen aus und klicken Sie auf Start > Format > Zeilenhöhe, siehe Screenshot:
4. Geben Sie im Dialogfeld Zeilenhöhe die gewünschte Zeilenhöhe ein, siehe Screenshot:
5. Klicken Sie dann auf OK, um dieses Dialogfeld zu schließen, und Ihre ausgewählte gefilterte Zeilenhöhe wurde angepasst. Klicken Sie abschließend auf Daten > Filter, um die Filterfunktion zu deaktivieren, und Ihre Zeilenhöhe wurde abwechselnd geändert. Siehe Screenshot:
Hinweise:
1. Sie können die Zeilenhöhe abwechselnd beginnend bei der ersten Zeile ändern.
2. Diese Methode ist nicht anwendbar, um die Spaltenbreite zu ändern.
3. Nachdem Sie das Verfahren abgeschlossen haben, können Sie die Hilfsspalte bei Bedarf löschen.
Ändern Sie jede zweite Zeilenhöhe / Spaltenbreite mit VBA-Code
Wenn Sie sowohl die Zeilenhöhe als auch die Spaltenbreite ändern müssen, kann Ihnen der folgende VBA-Code helfen.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Ändern Sie jede zweite Zeilenhöhe in einem Arbeitsblatt
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 dann die Taste F5, um diesen Code auszuführen, und ein Hinweisfenster wird erscheinen, um Sie daran zu erinnern, den Bereich auszuwählen, dessen Zeilenhöhe Sie anpassen möchten, siehe Screenshot:
4. Klicken Sie dann auf OK, ein weiteres Hinweisfenster wird erscheinen, in dem Sie die gewünschte Zeilenhöhe eingeben können, siehe Screenshot:
5. Klicken Sie dann auf OK, die Zeilenhöhe Ihres ausgewählten Bereichs wurde abwechselnd ab der ersten Zeile geändert. Siehe Screenshot:
Hinweise:
1. Wenn Sie jede zweite Spaltenbreite anpassen möchten, wenden Sie bitte den folgenden VBA-Code an:
VBA-Code: Ändern Sie jede zweite Spaltenbreite in einem Arbeitsblatt
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 / Spalte ändern möchten, müssen Sie einfach den Datenbereich ab der zweiten Zeile / Spalte auswählen.
Ändern Sie jede zweite Zeilenhöhe / Spaltenbreite mit Kutools für Excel
Wenn Sie Kutools für Excel installiert haben, kann Ihnen auch sein Hilfsprogramm „Intervallzeilen & -spalten auswählen“ helfen, zuerst jede zweite Zeile oder Spalte auszuwählen und dann gleichzeitig die Zeilenhöhe und Spaltenbreite zu ändern.
Kutools für Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos 30 Tage lang ohne Einschränkungen testen.Jetzt herunterladen.
1. Wählen Sie den Datenbereich aus, den Sie verwenden möchten.
2. Gehen Sie zu Kutools > Auswählen > Intervallzeilen & -spalten auswählen, siehe Screenshot:
3. Aktivieren Sie im Dialogfeld „Intervallzeilen & -spalten auswählen“ die Option Zeilen oder Spalten im Abschnitt Auswählen, je nach Wunsch, und geben Sie dann im Abschnitt Optionen den Abstand und die Anzahl der Spalten oder Zeilen ein. In diesem Beispiel wähle ich Spalten, siehe Screenshot:
4. Klicken Sie dann auf OK, jede zweite Spalte wurde im Abschnitt ausgewählt, siehe Screenshot:
5. Klicken Sie dann auf Start > Format > Spaltenbreite und geben Sie die gewünschte Spaltenbreite in das Dialogfeld Spaltenbreite ein, siehe Screenshots:
![]() | ![]() | ![]() |
6. Klicken Sie dann auf OK, und die Spaltenbreite wurde abwechselnd ab der ersten Spalte geändert.
Hinweise:
1. Um jede zweite Zeile auszuwählen, aktivieren Sie bitte Zeilen im Dialogfeld „Intervallzeilen & -spalten auswählen“ in Schritt 3.
2. Wenn Sie die Zeilenhöhe oder Spaltenbreite ab der zweiten Zeile / Spalte ändern möchten, müssen Sie einfach den Datenbereich ab der zweiten Zeile / Spalte auswählen.
Verwandte Artikel:
Wie färbe ich jede zweite oder alternative Zeile in Excel ein?
Wie lösche ich schnell jede zweite Zeile in Excel?
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!