Daten export nach Kriterium Überschrift und Datum

Guten Morgen liebe VBA-Experten :-),
vielleicht hat jemand einen passenden Codeschnipsel für mich. Würde mich sehr freuen wenn sich mein Problemchen automatisiert lösen könnte. Da ich diese Probelm oft habe werde ich auch versuchen den Code zu verstehen ;-)....
Also ich habe eine Datei mit 2 Tabellenblätter: Übersicht und Export tab
Hier das Template:
https://www.herber.de/bbs/user/70609.xls
In Zelle N3 kann ein Datum ausgewählt werden und mit der Zelle P3 soll dann der Export angestoßen werden. In das Tab Export sollen nun alle Daten aus Übersicht von dem ausgewählten Monat übertragen werden. z.B. Wenn ich 2010-06 wähle dann sollen die Werte A7:P15 rüberkopiert werden. Zu beachten ist das sich die Anzahl der Spalten in dem Export tab von dem in der Übersicht unterscheiden jede sind die Inhalte der Überschriften gleich... bin mir nicht sicher ob man hier einen Vergleich starten muß...
Kann mir jemand bei diesem Exportproblem helfen? Würde mich sehr freuen!!!!
Viele Grüße
Maris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
ok versuche es mal mit dieser Version.

Sub Export_Data(Datum As Date)
Dim rngDate As Range, rngTotal As Range

With Tabelle1
    Set rngDate = .Columns(1).Find(What:=Format(Datum, "yyyy-mm"), After:=.Cells(1, 1), LookIn:=xlValues, _
                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
    
    If Not rngDate Is Nothing Then
    Set rngTotal = .Columns(1).Find(What:="Total*", After:=rngDate, LookIn:=xlValues, _
                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
    End If

End With

If Not rngDate Is Nothing And Not rngTotal Is Nothing Then
        With Range(rngDate, rngTotal.Offset(1, 0)).Resize(, 16)
            Tabelle2.Range("A5").Resize(.Rows.Count, 5).Value = .Columns("A:E").Value
            Tabelle2.Range("F5").Resize(.Rows.Count, 1).Value = .Columns("G:G").Value
            Tabelle2.Range("G5").Resize(.Rows.Count, 2).Value = .Columns("J:K").Value
            Tabelle2.Range("I5").Resize(.Rows.Count, 1).Value = .Columns("M:M").Value
            Tabelle2.Range("J5").Resize(.Rows.Count, 1).Value = .Columns("P:P").Value
        End With
        Tabelle2.Columns("A:J").AutoFit
        MsgBox "Export erfolgreich"
Else
        MsgBox "Daten nicht gefunden"
End If

End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Daten export nach Kriterium Überschrift und Datum

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten export nach Kriterium Überschrift und Datum

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread