Wie fügt man in Excel eine bestimmte Anzahl von Spalten in regelmäßigen Abständen ein?
Bei der täglichen Arbeit mit Excel kommt es häufig vor, dass Sie zusätzliche Spalten zwischen bestehende einfügen müssen. Zwar können Sie dies manuell über die „Einfügen“-Funktion erledigen – doch sobald Sie große Datenmengen bearbeiten und beispielsweise alle zwei oder jede n-te Spalte drei neue Spalten einfügen möchten, stößt diese Methode schnell an ihre Grenzen. Wie meistern Sie diese Aufgabe also effizient? In diesem Tutorial zeigen wir Ihnen zwei einfache Methoden, um genau das zu bewältigen.
Verwenden Sie VBA-Code, um eine bestimmte Anzahl von Leere Spalten in Datenbereich in festen Abständen einzufügen
Mit dem folgenden VBA-Code können Sie nach jeder n-ten Spalte eine bestimmte Anzahl leerer Spalten einfügen. Gehen Sie dazu wie folgt vor:
1. Drücken Sie in Excel die Tastenkombination „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie das folgende Makro in das Modulfenster ein.
Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. Drücken Sie die Taste „F5“, um den Code auszuführen. Es erscheint ein Eingabefeld, das Sie auffordert, den „Datenbereich“ auszuwählen, in den leere Spalten eingefügt werden sollen.
4. Klicken Sie auf „OK“. Es erscheint ein weiteres Eingabefeld – geben Sie dort die gewünschte „Anzahl der Spaltenabstände“ in das Feld „Spaltenabstand eingeben“ ein.
5. Klicken Sie erneut auf „OK“. Es erscheint ein drittes Eingabefeld – geben Sie hier die „Anzahl der Spalten an, die Sie bei jedem Abstand einfügen möchten“.
6. Klicken Sie auf „OK“, um Ihr Ergebnis zu erhalten.
Verwenden Sie Kutools für Excel, um eine bestimmte Anzahl von Leere Spalten in Datenbereich in festen Abständen einzufügen
Wenn Sie auf die VBA-Code-Methode verzichten möchten, ist die Funktion „Leere Zeilen/Spalten einfügen“ von Kutools für Excel genau das Richtige für Sie: Fügen Sie mit nur wenigen Klicks die gewünschte Anzahl von Spalten in Ihren Datenbereich ein – und das in regelmäßigen Abständen.
1. Wählen Sie zunächst den vorhandenen Datenbereich aus, und klicken Sie anschließend auf „Kutools“ > „Einfügen“ > „Leere Zeilen/Spalten einfügen“.
2. Das Dialogfeld „Leere Zeilen/Spalten einfügen“ wird geöffnet. Im Bereich „Bereich“ sehen Sie den Datenbereich, den Sie in Schritt 1 ausgewählt haben. Wählen Sie im Abschnitt „Einfügetyp“ die Option „Leere Spalten“ aus. Geben Sie zudem die „Anzahl der Spaltenabstände“ sowie die „Anzahl der Spalten, die bei jedem Abstand eingefügt werden sollen“, an. In diesem Beispiel geben Sie 1 und 3 ein.
3. Klicken Sie auf „OK“, um die Einstellung abzuschließen und Ihr Ergebnis zu erhalten.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Wie fügt man schnell eine Zeile basierend auf dem aktuellen Datum in Excel ein?
Angenommen, Ihr Arbeitsblatt enthält eine Zeile mit Datumsangaben, und Sie möchten täglich beim Öffnen der Arbeitsmappe automatisch eine neue Zeile direkt neben dem aktuellen Datum einfügen. Gibt es einen cleveren Weg, dies in Excel umzusetzen?
Wie fügt man in Excel immer eine leere Zeile darunter statt darüber ein?
Wie allgemein bekannt ist, wird beim Einfügen einer leeren Zeile in ein Arbeitsblatt diese stets oberhalb der ausgewählten Zeile oder Zelle eingefügt. Manchmal möchten Sie die neue Zeile jedoch unterhalb der ausgewählten Zelle oder Zeile einfügen. Wie lässt sich diese Aufgabe in Excel lösen?
Wie fügt man per Befehlsschaltfläche automatisch eine leere neue Zeile in Excel ein?
In vielen Fällen müssen Sie möglicherweise eine leere neue Zeile an einer bestimmten Position Ihres Arbeitsblatts einfügen. In diesem Artikel zeigen wir Ihnen, wie das mit nur einem Klick auf eine Befehlsschaltfläche automatisch funktioniert.
Wie fügt man eine leere Zeile nach einem bestimmten Text in Excel ein?
Wenn Sie leere Zeilen nach einem bestimmten Text einfügen möchten – wie im folgenden Screenshot dargestellt –, wie können Sie das schnell und einfach erledigen, ohne sie manuell einzeln einzufügen?
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