AW: Daten Sortieren nach Kriterien
Alwin Weisangler
Hallo,
mal noch ein Weg auf die Schnelle via VBA in ein allgemeines Modul:
Option Explicit
Sub SotiertAusgeben()
Dim arrTab(), arrlist(), i&, j&, k&
arrTab = Application.Index(Tabelle2.UsedRange.Value, Evaluate("row(1:" & Tabelle2.UsedRange.Rows.Count & ")"), Array(1, 2, 5, 3, 4))
ReDim arrlist(1 To UBound(arrTab, 1), 1 To UBound(arrTab, 2))
For i = 3 To UBound(arrTab)
If InStr(1, arrTab(i, 1), "Inkassoart", vbTextCompare) = 0 And arrTab(i, 1) <> "" Then
k = k + 1
For j = 1 To UBound(arrTab, 2)
arrlist(k, j) = arrTab(i, j)
Next j
End If
Next i
With Tabelle1
.UsedRange.Offset(1).ClearContents
.Cells(2, 1).Resize(k, UBound(arrlist, 2)) = arrlist
Sortieren
End With
End Sub
Private Sub Sortieren()
Dim lz&: lz = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
With Tabelle1.Sort
.SortFields.Clear
.SortFields.Add2 Key:=Range("A1:A" & lz), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A2:E" & lz)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Aufruf kann man u.A. per Button machen.
Gruß Uwe