Wie wählt man in Excel jede n-te Spalte aus?
Angenommen, Sie haben ein großes Arbeitsblatt mit Hunderten von Datenspalten und müssen die Daten jeder dritten Spalte in ein neues Arbeitsblatt kopieren. Wäre es nicht viel effizienter, als jede n-te Spalte manuell auszuwählen – gibt es eine einfachere Möglichkeit?
Jede n-te Spalte mit VBA auswählen
Jede n-te Spalte mit Kutools für Excel auswählen
Jede n-te Spalte mit VBA auswählen
Es scheint keine einfache Lösung außer einem VBA-Code zu geben. Gehen Sie wie folgt vor:
1. Markieren Sie den Bereich, aus dem Sie jede n-te Spalte auswählen möchten.
2. Klicken Sie auf Entwicklertools > Visual Basic oder drücken Sie Alt+F11. Es öffnet sich ein neues Fenster von Microsoft Visual Basic for Applications. Klicken Sie auf Einfügen > Modul, um den folgenden Code in das Modul einzufügen:
Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = „KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox(„Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox(„Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
Set rng = InputRng.Cells(1, i)
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
Next
OutRng.EntireColumn.Select
End Sub3. Klicken Sie dann auf die 
-Schaltfläche, um den Code auszuführen. Daraufhin erscheint eine Eingabeaufforderung, in der Sie aufgefordert werden, einen Bereich zur Verarbeitung auszuwählen. Siehe Screenshot:
4. Klicken Sie auf OK und geben Sie anschließend die Intervallzahl in das nächste erscheinende Dialogfeld ein. In diesem Fall tragen Sie „3“ in das Feld ein. Siehe Screenshot:
5. Klicken Sie auf OK. Jetzt wird jede dritte Spalte im markierten Bereich ausgewählt. Siehe Screenshot:
Hinweis: Sie können die Zahl im zweiten Kutools for Excel-Dialogfeld entsprechend Ihren Anforderungen festlegen.
Manchmal müssen Sie jedoch zwei Spalten mit jeweils zwei Intervallen auswählen – in diesem Fall funktioniert der obige Code nicht. Was können Sie tun?
Jede n-te Spalte mit Kutools für Excel auswählen
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins – 30 Tage lang kostenlos und uneingeschränkt testen.Jetzt herunterladen.
Mit Kutools für Excel können Sie eine bestimmte Anzahl von Spalten in festgelegten Intervallen auswählen. Gehen Sie wie folgt vor:
1. Klicken Sie auf Kutools > Auswählen > Zeilen/Spalten auswählen.
2. Es erscheint das Dialogfeld Zeilen/Spalten auswählen. Klicken Sie dann auf die 
-Schaltfläche, um den gewünschten Bereich auszuwählen, wählen Sie Spalten unter Auswahlbereich, und geben Sie die gewünschte Zahl in das Feld Intervall von sowie Spalten in der Dropdown-Liste ein. In diesem Beispiel wählen wir zwei Spalten aus jeder dritten Spalte aus. Siehe Screenshot:
3. Klicken Sie auf OK. Es werden nun zwei Spalten mit jeweils einem Intervall im markierten Bereich ausgewählt. Siehe Screenshot:
Hinweis: Wenn Sie im erscheinenden Dialogfeld Gesamte Spalte auswählen aktivieren, werden beim Sortieren die gesamten Spalten im Arbeitsblatt ausgewählt. Siehe Screenshot:
Verwandte Artikel:
- Jede zweite oder n-te Zeile in Excel auswählen
- Jede zweite Zeile kopieren
- Jede zweite Zeile löschen
- Jede zweite Zeile ausblenden
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