Wie wähle ich eine Spalte basierend auf der Spaltenüberschrift in Excel aus?
Angenommen, Sie haben ein großes Arbeitsblatt, das mehrere Spalten enthält, und möchten nun die spezifische Spalte basierend auf einem Spaltenkopfnamen auswählen. Um die Spalte für Spalte in einem großen Arbeitsblatt zu finden, wird viel Zeit verschwendet. In diesem Artikel werde ich eine schnelle Methode vorstellen, um diesen Job in Excel zu lösen.
Wählen Sie eine Spalte basierend auf dem Spaltenkopfnamen mit VBA-Code aus
Wählen Sie eine Spalte basierend auf dem Spaltenkopfnamen mit VBA-Code aus
Der folgende VBA-Code kann Ihnen bei der Auswahl der Spalten anhand eines bestimmten Headernamens helfen. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Wählen Sie die Spalte basierend auf dem Namen der Spaltenüberschrift aus:
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
Note: Im obigen Code, A1: P1 ist der Bereich der Überschriften, aus denen Sie Spalten auswählen möchten, und “Name und Vorname”Im Skript xStr = "Name" ist der Headername, auf dessen Grundlage Sie Spalten auswählen möchten. Bitte ändern Sie sie nach Ihren Wünschen.
3. Nach dem Kopieren und Einfügen des Codes drücken Sie bitte F5 Schlüssel zum Ausführen dieses Codes, und alle Spalten mit dem spezifischen Headernamen wurden gleichzeitig 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!