---

Hallo zusammen

Ich habe zwei Tabellenblätter:
1) Parameter
2) Daten

Im Tabellenblatt "Daten" habe ich diverse Einträge, wobei in der Spalte A Daten aufgelistet werden und in Spalte B Kommentare dazu stehen.

Ich möchte nun im Tabellenblatt "Parameter" im Feld B1 "Datum-ab" eingeben (bspw. 15.01.2013) und im Feld B2 das "bis-Datum" (bspw. 31.03.2013). Nach Ausführen des Makros sollte dann im Tabellenblatt "Daten" der Spezialfilter angewendet werden, wobei nur die Einträge angezeigt werden sollen, die im angegebenen Zeitraum liegen (also grösser oder gleich 15.01.2013 sowie kleiner oder gleich 31.03.2013).

Ich möchte das mithilfe eines Makros machen, sodass meine Tabelle dynamisch wird und ich ohne grossen Aufwand nur im Blatt "Parameter" zwei Daten für den Zeitraum eingeben muss.

Habe bereits länger recherchiert und mit Makro aufnehmen und bearbeiten probiert, aber kriege keine passende Lösung hin.

Danke vielmals für Eure Unterstützung!

Liebe Grüsse
Darksidy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Darksidy,

meine automatische Makro - Aufzeichnung von Excel sagt mir folgendes:

Code:

---

ActiveSheet.Range("$B$3:$B$19").AutoFilter Field:=1, Criteria1:=">17.01.2013", Operator:=xlAnd, Criteria2:="<19.01.2013"

---

Sicherlich musst du die variablen Parameter jetzt noch aus deinen Eingabezellen auslesen und die Range entsprechend selbst ermitteln, aber das solltest du mit dem WBF hier schon gut hinbekommen... 
Grüße und HTH

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tobias

Danke für Deine rasche Antwort.
Bei den variablen Parametern habe ich Mühe - mit welcher Formel greife ich auf das Feld B1 im Tabellenblatt "Parameter"? Parameter!B1 wird ja normalerweise für das verwendet.

Die Datumstypen sind "TT.MM.JJJJ" - benötigt man allenfalls in der Makro-Sprache "TT/MM/JJJJ" ? Muss ich das also erst noch konvertieren, damit der Filter im Makro die Einträge als Datum erkennt?

Grüsse
Darksidy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

so geht das:

Code:

---

Public Sub test()

    Dim strDateFrom As String, strDateTo As String

    With Worksheets("Parameter")
        strDateFrom = CStr(CLng(.Range("B1").Value))
        strDateTo = CStr(CLng(.Range("B2").Value))
    End With

    Worksheets("Daten").Rows(1).AutoFilter Field:=1, Criteria1:=">" & strDateFrom _
        , Operator:=xlAnd, Criteria2:="<" & strDateTo

End Sub

---

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Nepumuk

Herzlichen Dank - klappt einwandfrei so!

Grüsse
Darksidy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP