Vba: so erhalten sie eindeutige werte aus einer spalte

Sie können die AdvancedFilter- Funktion in VBA verwenden, um schnell eine Liste eindeutiger Werte aus einer Spalte in Excel abzurufen.

Hier ist eine übliche Vorgehensweise:

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

Dieses spezielle Beispiel extrahiert eine Liste eindeutiger Werte aus dem Bereich A1:A11 und zeigt sie in Zelle E1 an.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Mit VBA eindeutige Werte aus einer Spalte abrufen

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der Informationen über verschiedene Basketballspieler enthält:

Nehmen wir an, wir möchten eine Liste eindeutiger Werte aus der Spalte „Team“ extrahieren.

Dazu können wir das folgende Makro erstellen:

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte E zeigt jetzt eine Liste eindeutiger Werte aus der Spalte „Team“ im Originaldatensatz an.

Beachten Sie, dass bei der AdvancedFilter- Methode die Groß-/Kleinschreibung nicht beachtet wird.

Wenn wir beispielsweise die Teamnamen „MAVS“ und „Mavs“ in derselben Spalte hätten, würde dieses spezielle Makro nur den ersten dieser beiden Werte zurückgeben, die in der Teamspalte erscheinen, da sie genau dieselben Zeichen haben.

Hinweis : Die vollständige Dokumentation der AdvancedFilter- Methode in VBA finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie Zellen mit bestimmtem Text
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So zählen Sie eindeutige Werte im Bereich