Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Daten aus einem Zeitraum filtern & kopieren

VBA Daten aus einem Zeitraum filtern & kopieren
03.04.2013 18:56:38
Karsten
Hallo zusammen,
ich habe folgendes Problem.
In einer Tabelle befindet sich in Spalte A fortlaufend ein Datum.In den Spalten B-G befinden sich Daten.Ich möchte nun mittels zweier inputboxen ein Anfang und Enddatum eingeben. Dann sollen die Datensätze in dem Zeitraum kopiert und in einem neuen Sheet eingefügt werden. Kann mir da jemand helfen?
Grüße schon mal an die Excel Gemeinde

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

Betreff
Datum
Anwender
Anzeige
Und nur Filtern & kopieren willst Du nicht ?
03.04.2013 19:56:13
Matthias
Hallo
Tabelle1
Userbild
Dann den Bereich kopieren und in Zieltabelle einfügen
Tabelle2

 ABCDEFG
1DatumDaten(B)Daten(C)Daten(D)Daten(E)Daten(F)Daten(G)
201.05.20122645959727336199889325
302.05.2012633917077777100271076810
403.05.2012110388656117456660392214
504.05.2012862639649417130964637296
605.05.2012776255048792233426095116
706.05.2012767842566008173970501925
807.05.2012347091785184369924711482
908.05.201299146781481447794863720
1009.05.2012492425973794522493356508
1110.05.2012594285849871706173826176
1211.05.201244748437753973533492914
1312.05.2012269391845084984693718402
1413.05.2012194717408256732922098052
1514.05.201215594784694198923432156
1615.05.2012256835808205587657663933


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
AW: VBA Daten aus einem Zeitraum filtern & kopieren
03.04.2013 20:20:26
Karsten
Hallo Matthias,
danke für die schnelle Antwort aber ich habe schon eine größere User Form in dem ein Button Zeitraum auswerten rein soll. Deswegen benötige ich einen VBA Ausweg.
Vielleicht fällt dir ja dazu auch was ein...
Gruß
Karsten

AW: VBA Daten aus einem Zeitraum filtern & kopieren
04.04.2013 07:58:30
hary
Moin Karsten
Versuch mal so. Dim rngLast As Range Dim rngFirst As Range Dim start As Date Dim ende As Date start = Application.InputBox("Format: TT.MM.JJ", "Startdatum eingeben", Type:=1) ende = Application.InputBox("Format: TT.MM.JJ", "Enddatum eingeben", Type:=1) Set rngLast = Range("A:A").Find(what:=ende, after:=Range("A1"), searchdirection:=xlPrevious) Set rngFirst = Range("A:A").Find(what:=start, after:=rngLast, searchdirection:=xlNext) Cells(rngFirst.Row, 2).Resize(rngLast.Row - rngFirst.Row + 1, 6).Copy 'wohin du willst Set rngLast = Nothing Set rngFirst = Nothing
gruss hary

Anzeige
AW: VBA Daten aus einem Zeitraum filtern & kopieren
04.04.2013 20:54:14
Karsten
Hallo Hary,
das ist super, das funzt....
erstklssige Arbeit
Kannst du mir noch verraten was das Type:=1 macht?
Danke & Gruß
Karsten

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige