Sortieren: Eingeblendete Zeilen unter ausgeblendet

Hallo Liebe Forumsmitglieder
Jetzt brauch ich doch wider eure Hilfe.
Könnt mir bitte sagen/Zeigen wie ich per VBA die Ausgeblendeten Zeilen innerhalb einer Intelligenten Tabelle nach ober über die eingeblendeten sortieren kann. Bzw (umgekehrt Falls das einfacher ist) die sichtbaren Zeilen sollen so umsortiert werden das sie unterhalb der ausgeblendeten sind.
Ich verwende einen Advanced Filter um Daten in einer Intelligenten Tabelle auszufiltern, allerdings brauche ich diese Datenzeilen dann später für etwas anderes am Ende der Intelligenten Tabelle.
Ev. falls das Überhaupt möglich ist, wüsste ich gern ob jemand einen weg wüsste. Nach der umsortieren die eingeblendeten und ausgeblendeten nochmal separat zu sortieren. Sagen wir zbsp nach Spalte 1 Absteigend
Danke und Grüße
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZeilenUmsortieren() Dim wsDaten As Worksheet Dim iTabDaten As ListObject Set wsDaten = ThisWorkbook.Worksheets("Daten") Set iTabDaten = wsDaten.ListObjects("Daten_IntelligenteTabelle") Dim i As Integer Dim LetzteS As Long Dim LetzteZ As Long LetzteS = iTabDaten.ListColumns.Count LetzteZ = wsDaten.ListObjects("Daten_IntelligenteTabelle").ListRows.Count Call SpezialfilterDatum For i = (LetzteZ + 1) To 2 Step -1 If iTabDaten.Range.Rows(i).Hidden = True Then wsDaten.Cells(i, LetzteS + 2).Value = "y" Next ActiveSheet.ShowAllData 'Jetzt Sortieren Range("Daten_IntelligenteTabelle[#All]").Select With iTabDaten .Sort.SortFields.Clear .Sort.SortFields.Add2 Key:=Range("Daten_IntelligenteTabelle[S12]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Sort.Header = xlYes .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply End With iTabDaten.ListColumns(LetzteS + 1).Delete Call SpezialfilterDatum End Sub

Hallo
Ich hätte doch noch eine Frage. Das Macro Funktionier aber hättest du vielleicht einen Vorschlag wie ich das Macro schneller machen könnte (also abgesehen von .ScreenUpdating =false usw.) Es brauch zum verarbeiten 70 000 Datensätzen etwas zu lange. Ich glaub das liegt am Schreiben der Hilfsspalte.
https://www.herber.de/bbs/user/131297.xlsm


Option Explicit
Sub ZeilenUmsortieren()
Dim wsDaten As Worksheet
Dim iTabDaten As ListObject
Set wsDaten = ThisWorkbook.Worksheets("Daten")
Set iTabDaten = wsDaten.ListObjects("Daten_IntelligenteTabelle")
Dim iDatenLZ As Long, iDatenLS As Long 'letzte zeile u. Spalte v. ListObjekt
Dim i As Integer
iDatenLS = iTabDaten.ListColumns.Count
iDatenLZ = wsDaten.ListObjects("Daten_IntelligenteTabelle").ListRows.Count + 1
Call SpezialfilterDatum1(True)
For i = iDatenLZ To 2 Step -1
If iTabDaten.Range.Rows(i).Hidden = True Then wsDaten.Cells(i, iDatenLS + 1).Value = "Z"
Next
If wsDaten.FilterMode = True Then wsDaten.ShowAllData
'Jetzt Sortieren
Range("Daten_IntelligenteTabelle[#All]").Select
With iTabDaten
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("Daten_IntelligenteTabelle[S11]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=Range("Daten_IntelligenteTabelle[S1]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.Header = xlYes
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With
'iTabDaten.ListColumns(LetzteS).Delete
iTabDaten.DataBodyRange.Columns(iDatenLS).ClearContents
Call SpezialfilterDatum1
Range("A1").Select
End Sub


Sub SpezialfilterDatum1(Optional Kriterien As Boolean)
Dim Von As Date, Bis As Date
Dim wsDaten As Worksheet
Dim iTabDaten As ListObject
Set wsDaten = ThisWorkbook.Worksheets("Daten")
Set iTabDaten = wsDaten.ListObjects("Daten_IntelligenteTabelle")
'Filter Löschen
If wsDaten.AutoFilterMode = True Then If wsDaten.FilterMode = True Then wsDaten.AutoFilter. _
ShowAllData
If Kriterien Then 'Wenn True Übergeben dann Kriterien bereich erstellen
Von = wsDaten.OLEObjects("TextBox1").Object.Value 'Von
Bis = wsDaten.OLEObjects("TextBox2").Object.Value 'Bis
wsDaten.Range("AF23:AG23").Value = "Von"
wsDaten.Range("AH23:AI23").Value = "Bis"
'1 Kriterienzeile
wsDaten.Range("AF24").Value = ">=" & CLng(Von)
wsDaten.Range("AH24").Value = ">=" & CLng(Von)
wsDaten.Range("AG24").Value = "=" & CLng(Bis)
'2 Kriterienzeile
wsDaten.Range("AG25").Value = ">=" & CLng(Von)
wsDaten.Range("AH25").Value = "=" & CLng(Von)
wsDaten.Range("AG26").Value = "=" & (Von)
wsDaten.Range("AG30,AH31,AG32").Value = "=" & (Bis)
wsDaten.Range("AF32").Value = "

Danke und Grüße
Andreas

Beliebteste Forumthreads (12 Monate)

Sortieren: Eingeblendete Zeilen unter ausgeblendet

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortieren: Eingeblendete Zeilen unter ausgeblendet

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread