Datumsfilter über ADO u.Spezialfilter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich will versuchen das Übersichtsblatt nur zum Betrachten und prüfen der Daten zu nutzen und gegebenen falls zur der einen Tabelle die ich ändern muss wechseln, zwecks Ergänzung, Änderung, hinzufügen der Datensätze : Mein Problem ist aber folgendes.
Ich möchte Datensätze anhand von Datumsangaben welche in zwei Textboxen Eingegeben werden umsortieren so das die benötigten Daten Sätze am Ende der Intelligenten Tabelle sind: (Mit dem Normalen Auto Filter bekomme ich das leider nicht hin). Anschließend nach der ersten Spalte sortiert. Die nicht benötigte Datensätze müssten ausgeblendet und schreibschützen werden so das die sichtbaren Daten nicht durch ausgeblendete Zeilen unterbrochen sind.
Anschließend müssten die Sichtbaren Daten in die Intelligente Tabelle auf dem Tabellenblatt Zeitraum übernommen werden wo sie mit sehr Vielen Formeln (S verweisen usw.) und bedingten Formatierungen ergänzt und hervorgehoben werden. Die bedingten Formatierungen und Formeln bzw was da sonst noch sein soll bekomm ich hin. Aber die Datums Sortierung und übertragen leider nicht.
Bsp. Datumsvariationen für Zeitraum 12.07 20.07.19 den ich sehen will.
Innerhalb des angegeben Zeitraums . bsp.16.07 bis 17.07 (das ist klar)
Zeitraum schneiden bsp. 02.06 bis 25.08
Kein Enddatum haben bsp 11.07 bis (besonders Tückisch)
Gar keine Datumsangaben haben
Im Prinzip würde ich sowohl die ADO abfrage für die Ziel Tabelle als auch den Advanced Filter für die quell Tabelle brauch. Nur ich hab bei beiden jeweils ein Problem. Ich will für die Ziel Tabelle deswegen die ADO Abfrage nutzen und nicht die Kopierfunktion des Advanced Filter weil ich diese ev. Später noch andere quellen erweitern werde. Aber Dafür muss ich mich wohl längere zeit mit SQL beschäftigen.
Meine Fragen:
Beim Advancefilter benötigt man ja einen .Range für die Kriterien ich hab aber zwei Textboxen. Ich hab da wie blöd gegoogelt und einfach keine Lösung gefunden, wie ich das hinbekomme die Textboxen in den Filter einzubinden. Das einzige was es zum funktionieren gebracht hat. Ist ein Umweg über die Tabelle indem ich dort den Kriterien Bereich erstelle und wider lösche. Geht das auch irgendwie anders also ich meinen direkt aus Listbox in Advancefilter? Gibt es einen weg trotz des Advancefilters die Autofilter noch zu benutzen?
Bei der ADO Abfrage habe ich die Verbindung hinbekommen aber den abfrage String nicht. Außerdem ändert mir die Abfrage aus irgendeinem Grund die Datumsformatierung in der Quellmappe kommt aber richtig in der Zieltabelle an. Könnte wir dabei jemand helfen.
Test Datei: https://www.herber.de/bbs/user/131165.xlsm
Ich wäre echt sehr dankbar, wenn mir jemand bei den zwei Problemen helfen könnte. Natürlich bin ich auch für weitere alternative Ansätze dankbar.
Grüße Andreas

Das ist mein ADO Code da hab ich das problem das mir der SQL befehl fehlt. Und das ich nicht weis wie ich das Lesen und die ausgabe auf die jeweiligen Inteligenten Tabellen beschränke.
ADO

Public Sub LateAdoTest()
Dim Von As Date
Dim Bis As Date
Dim wsZeitraum As Worksheet
Dim wsDaten As Worksheet
Dim iTabZeitraum As ListObject
Dim iTabDaten As ListObject
Set wsZeitraum = ThisWorkbook.Worksheets("Zeitraum")
Set wsDaten = ThisWorkbook.Worksheets("Daten")
Set iTabZeitraum = wsZeitraum.ListObjects("Zeitraum_IntelligenteTabelle")
Set iTabDaten = wsDaten.ListObjects("Daten_IntelligenteTabelle")
Von = wsZeitraum.OLEObjects("TextBox1").Object.Value 'Von
Bis = wsZeitraum.OLEObjects("TextBox2").Object.Value 'Bis
'*******AB Hier ADO ********
Dim oAdoConnection As Object, oAdoRecordset As Object
Dim sAdoConnectString As String, sPfad As String
Dim sQuery As String
On Error GoTo Fehler
sPfad = ThisWorkbook.FullName
Set oAdoConnection = CreateObject("ADODB.CONNECTION")
sAdoConnectString = _
"Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties='Excel 12.0 Xml;HDR=YES';Data Source=" & _
sPfad
oAdoConnection.Open sAdoConnectString
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")
sQuery = "SELECT * FROM [Daten$]"
With oAdoRecordset
.Source = sQuery
.ActiveConnection = oAdoConnection
.Open
ThisWorkbook.Worksheets("Zeitraum").Range("B3").CopyFromRecordset oAdoRecordset
End With
Aufraeumen:
On Error Resume Next
oAdoRecordset.Close
oAdoConnection.Close
Set oAdoRecordset = Nothing
Set oAdoConnection = Nothing
Exit Sub
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub

Und das ist der Spezialfilter Code. Bei dem ich gerne die Filterkriterien direkt an den Spezialfilter übergeben will ohne den derzeitigen Umweg über das Tabellenblatt.
Spezialfilter

Sub SpezialfilterDatum()
Dim Von As Date
Dim Bis As Date
Dim wsZeitraum As Worksheet
Dim wsDaten As Worksheet
Dim iTabZeitraum As ListObject
Dim iTabDaten As ListObject
Set wsZeitraum = ThisWorkbook.Worksheets("Zeitraum")
Set wsDaten = ThisWorkbook.Worksheets("Daten")
Set iTabZeitraum = wsZeitraum.ListObjects("Zeitraum_IntelligenteTabelle")
Set iTabDaten = wsDaten.ListObjects("Daten_IntelligenteTabelle")
Von = wsDaten.OLEObjects("TextBox1").Object.Value 'Von
Bis = wsDaten.OLEObjects("TextBox2").Object.Value 'Bis
'Filter Löschen
If wsDaten.AutoFilterMode = True Then If wsDaten.FilterMode = True Then wsDaten.AutoFilter. _
ShowAllData
'Provisorischen Kriterien bereich erstellen und Werte zuweisen
wsDaten.Range("AF23:AG23").Value = "Von"
wsDaten.Range("AH23:AI23").Value = "Bis"
wsDaten.Range("AF24,AH24").Value = ">=" & CLng(Von)
wsDaten.Range("AG24").Value = "=" & CLng(Bis)
wsDaten.Range("AH25").Value = "="
Application.CutCopyMode = False
Range("Daten_IntelligenteTabelle[#All]").AdvancedFilter Action:= _
xlFilterInPlace, CriteriaRange:=Range("AF23:AI25"), Unique:=False
'Columns("AF:AI").Delete Shift:=xlToLeft
End Sub

Bin für jeden Tipp und hinweis Dankbar
Grüße Andreas

sQuery = "SELECT * From [" & wsDaten.Name & "$" & sRange & "] As Daten " & _ "Where (Daten.Von >= " & sFilter1 & " And Daten.Von = " & sFilter1 & " And Daten.Bis >= " & sFilter2 & ") " & "Order By Daten.[Name] ASC, Daten.[Von];"

VonSQL = CDateSQL(Von) BisSQL = CDateSQL(Bis) sQuery = "SELECT * From [" & wsDaten.Name & "$" & sRange & "] As Daten " & _ "Where (Daten.[Bis] Is Null OR Daten.Von >= " & VonSQL & _ " And Daten.Von = " & VonSQL & " And Daten.Bis >= " & _ BisSQL & _ " OR Daten.Von >= " & VonSQL & " And Daten.Bis = " & _ VonSQL & ") " & _ "Order By Daten.[Name] ASC, Daten.[Von];"

Beliebteste Forumthreads (12 Monate)

Datumsfilter über ADO u.Spezialfilter

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumsfilter über ADO u.Spezialfilter

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread