Thema Datum  Von Nutzer Rating
Antwort
Rot Sheet via Filter nach Monat X filtern und via Makro auf nächstes Tabellenblatt kopieren
07.03.2024 18:04:02 Richard
NotSolved
07.03.2024 22:41:35 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Richard
Datum:
07.03.2024 18:04:02
Views:
539
Rating: Antwort:
  Ja
Thema:
Sheet via Filter nach Monat X filtern und via Makro auf nächstes Tabellenblatt kopieren

Guten Tag zusammen,

ich versuche jetzt schon etwas länger ( mit google Ergebnissen ) mir ein Excell-Sheet zusammen zu bauen welche anhand der vorhandenen Monate im aktuellen Jahr (Spalte A1 - Je nach Fortschritt des Jahres werden es mehr werden)  diese filtert und die gefilterteten Daten dann jeweils in ein neues Sheet einfügt. 

 

Sprich aktuell wären es ca 150 Einträge in diesem Tabellenblatt1 welche die Monate Januar, Februar & März enthalten.

Diese sollen nun pro Monat, der Reihe nach, in ein neues Sheet kopiert werden.

 

Den code den ich bis jetzt zusammen gebastelt habe macht dies nur halb. Da er nur mit dem Autofilter xlFilterLastMonth abruft und dann in ein neues Dokument schreibt.

 

Option Explicit

Sub Filtern_Kopieren()

'Variablen dimensionieren

Dim rng As Range
Dim wb_new As Workbook

'Tabelle in Range einlesen
Set rng = Tabelle1.ListObjects("Tabelle1").Range

'Autofilter setzen
rng.AutoFilter Field:=1, Criteria1:= _
        xlFilterLastMonth, Operator:=xlFilterDynamic

'Neue Arbeitsmape erstellen
Set wb_new = Workbooks.Add

'Gefilterte Tabelle in die neue Arbeitsmappe kopieren
rng.SpecialCells(xlCellTypeVisible).Copy wb_new.Worksheets(1).Range("A5")

'Neue Arbeitsmappe speichern und schließen
wb_new.Close True, ThisWorkbook.Path & "\Ausgaben_" & Format(Now, "mm.yyyy") & ".xlsx"

End Sub
 

 

Hat jemand einen Denkanstoß wie man es machen könnte? Schleifen behersche ich leider nicht :D  und sonst sehen meine VBA Kenntnisse eher mau aus :D 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Sheet via Filter nach Monat X filtern und via Makro auf nächstes Tabellenblatt kopieren
07.03.2024 18:04:02 Richard
NotSolved
07.03.2024 22:41:35 ralf_b
NotSolved