Wie wählt man in Excel eine Spalte anhand ihrer Überschrift aus?
Angenommen, Sie arbeiten mit einem umfangreichen Arbeitsblatt, das mehrere Spalten enthält, und möchten eine bestimmte Spalte anhand ihres Überschriftsnamens auswählen. In einem großen Arbeitsblatt die passende Spalte manuell zu suchen, kostet wertvolle Zeit. In diesem Artikel zeige ich Ihnen eine schnelle Methode, um diese Aufgabe in Excel effizient zu erledigen.
Wählen Sie eine Spalte anhand des Spaltenüberschriftsnamens mit VBA-Code aus
Wählen Sie eine Spalte anhand des Spaltenüberschriftsnamens mit VBA-Code aus
Der folgende VBA-Code unterstützt Sie dabei, Spalten anhand eines bestimmten Überschriftsnamens auszuwählen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten 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 Modul-Fenster ein.
VBA-Code: Spalte anhand des Spaltenüberschriftsnamens auswählen:
Sub FindAddressColumn()
'Updateby Extendoffcie
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr = "Name"
Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A1:P1").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni = xRg
Else
Set xRgUni = Application.Union(xRgUni, xRg)
End If
Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Select
End Sub
Hinweis: Im obigen Code ist A1:P1 der Bereich der Überschriften, aus dem Sie Spalten auswählen möchten, und „Name“ im Skript xStr = „Name" der Überschriftsname, anhand dessen Sie Spalten auswählen möchten. Passen Sie diese Angaben bitte entsprechend Ihren Anforderungen an.
3. Drücken Sie nach dem Kopieren und Einfügen des Codes bitte die F5-Taste, um ihn auszuführen. Daraufhin werden alle Spalten mit dem angegebenen Überschriftsnamen sofort ausgewählt (siehe Screenshot):
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