Sortieren der Worksheet Daten von Spalte Werte mit Excel-VBA

Hab ich nächste userform entwickelt, in vba, nimmt die info aus einem Arbeitsblatt für die Anzeige von info

Möchte ich, um all die Infos, die aphabetically von einem Segment, das ist der code:

Function llenarDatosTabla()

    Dim vList As Variant
    Dim ws As Worksheet: Set ws = Worksheets(BD_PRODXSIST)

    ListBox1.Clear

    With ws
        If (IsEmpty(.Range("AA2").Value) = False) Then

            Dim ultimoRenglon As Long: ultimoRenglon = devolverUltimoRenglonDeColumna("A1", BD_PRODXSIST)

            vList = ws.Range("AA2:AA" & ultimoRenglon & ":AL2").Value

            If IsArray(vList) Then
                Me.ListBox1.List = vList
            Else
                Me.ListBox1.AddItem (vList)
            End If

        End If

        Me.ListBox1.ListIndex = -1

    End With




    Set vList = Nothing
    Set ws = Nothing
End Function

wie man es bestellt hat " AD " (SEGMENTO) - Spalte???

InformationsquelleAutor Jesus | 2014-12-19

11

Können Sie Sortieren Sie Ihre Excel-Arbeitsblatt in aufsteigender Reihenfolge mithilfe von VBA-Anweisung wie die folgende:
```
Columns("A:XFD").Sort key1:=Range("AD:AD"), order1:=xlAscending, Header:=xlYes
```
Hinweis: in der Spalte Auswahl Columns("A:XFD") statt XFD geben Sie die Letzte verwendete Spalte relevant, um Ihren Fall, z.B. Columns("A:DD").

Hoffe, das wird helfen.
- es hat funktioniert!!! Dank
- Sie sind herzlich willkommen! Viel Glück mit Ihrem Projekt! Mit freundlichen GRÜßEN,
- Hey manchmal bekomme ich diesen Fehler: 1004 Ausführungszeit Sortieren-Verweis ist nicht gültig
- und jetzt weiß ich auch warum, da bin ich dem Aufruf dieser Funktion aus dem anderen Arbeitsblatt, muss ich hinzufügen "." vor Range in Spalten, my bad
InformationsquelleAutor Alexander Bell
5

So Sortieren Sie eine Tabelle mit Daten, verwenden Excel-Namen in Verbindung mit der CurrentRegion Funktion. Dies ist weniger riskant als der harte Codierung Spalte Verweise und getan werden kann in zwei einfachen Schritten.

Dem Grund ist es vorzuziehen, die Angabe von Spalten ist, dass wenn Sie die Spalten falsch oder Sie zu einem späteren Zeitpunkt ändern, werden Sie stellen Sie Ihre Daten! Wenn Sie die Art, die Zellen in jeder Spalte weggelassen(s) bleiben wo Sie sind, zu einem Teil die falschen Zeilen. Und das ist genau das, was passieren wird, wenn Sie fügen Sie weitere Spalten später, es sei denn, Sie daran zu erinnern, aktualisieren Sie Ihre VBA.

Hier sind die zwei einfache Schritte für die Verwendung dieses Ansatzes. Für dieses Beispiel habe ich gewählt, Daten einer Tabelle mit vier Spalten und vier Zeilen:

Werden wir zum Sortieren von COL3 absteigend. Die Zellen in den anderen drei Spalten identische Werte, so dass wir leicht überprüfen, ob Sie alle bleiben mit den richtigen Zeilen.

Schritt 1: wählen Sie eine Zelle in der Datentabelle, wird kaum je wieder entfernt werden, wie die Kopfzeile einer Spalte, die Sie machen wollen, permanent, und definieren Sie einen Namen für diese Zelle. Sie können den Namen anzugeben, indem Sie die Zelle und die Eingabe direkt in Excel den Namen dropdown über dem Arbeitsblatt. Hier habe ich die Namen RegionTag:

Sofort, CurrentRegion verweisen können die gesamten Daten der Tabelle nur aus dieser. Sie können ihn in Aktion zu sehen, wenn Sie den code eine Zeile VBA um die Tabelle auszuwählen:
```
Range("RegionTag").CurrentRegion.Select
```
Dies ist das Ergebnis:

Das ist nur eine illustration, zeigt die macht der Namen/CurrentRegion Kombination. Wir brauchen nicht zu wählen Sie die Tabelle, um zu Sortieren.

Schritt 2: definieren Sie einen zweiten Namen für die Spalte, die Sie Sortieren möchten:

Stellen Sie sicher, dass der Name bezieht sich auf die gesamte Spalte ausgewählt, indem Sie auf die Kopfzeile der Spalte, anstatt einfach nur eine Reihe von Zellen in der Spalte.

Das ist es! Mit diesen zwei Namen definiert, Sortieren wir die Daten der Tabelle ohne über uns mit seinen Zeilen und Spalten, auch wenn Sie mehr sind später Hinzugefügt:
```
Range("RegionTag").CurrentRegion.Sort _
    key1:=Range("SortCol"), order1:=xlDescending, Header:=xlYes
```
Hier ist unsere Daten-Tabelle sortiert mit der obigen Aussage:

InformationsquelleAutor Reg Edit

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.