Office: Datumsbereich markieren und in anderes Blatt kopieren

Hallo,

ich bin am verzweifeln.
Suche seid einigen Stunden eine Lösung für folgendes Problem:
Ich habe eine Mappe mit einem Tabellenblatt.
Die Anordnung sieht wie folgt aus:
Spalte C = Datum
Spalte D = Belegnummer
Spalte E = Verwendungszweck
usw.

Diese Tabelle fülle ich nun mit ca. 2000 Daten, sprich Belegen.

Später möchte ich dann einen Datumsbereich per VBA Userform auswählen können z.B. 01.03.2014 bis 16.05.2014

Danach soll der gesamte Bereich, sprich Zeile x bis Zeile y kopiert werden.
Danach werden die Zeilen in ein anderes Tabellenblatt kopiert und ausgedruckt.

Kann mir da vielleicht jemand helfen???

Ich bin für jede Hilfe dankbar!!!*rolleyes.gif*

:)

 

Moin
Hier ohne Pruefung, ob wirklich Datum in Textboxen.
UF mit 2 Textboxen und einem Button.
Code in den Button:
Code:

gruss hary

 

Hallo,

erst mal sorry, dass ich mich jetzt erst melde...aber leider muss ich derzeit einige Schichten von Kollegen übernehmen...egal.
Also der Code funktioniert irgendwie nicht.

Zwar hatte ich einen Fehler bei meiner Frage festgestellt...
Die Anordnung sieht wie folgt aus:
Spalte C = Datum
Spalte D = Belegnummer
Spalte E = Verwendungszweck
usw.

Das Datum ist in Spalte D...

...den Fehler habe ich aber in der Formel geändert.

Trotzdem passiert nichts, egal was ich in die Userform (beiden Textboxen) eintrage.

Jemand ne Idee woran es liegt???

Hier mal der Code, den ich jetzt momentan in der Userform5 habe:

Private Sub CommandButton2_Click()
TextBox1 = Format(TextBox1, "DD.MM.YYYY")
TextBox2 = Format(TextBox2, "DD.MM.YYYY")

Dim rngLast As Range
Dim rngFirst As Range
With Worksheets("Auswertung-Eingabe")
Set rngLast = .Range("D*biggrin.gif*").Find(what:=CDate(TextBox1), after:=Range("D1"), Lookat:=xlPart, searchdirection:=xlPrevious)
If Not rngLast Is Nothing Then
Set rngFirst = .Range("D*biggrin.gif*").Find(what:=CDate(TextBox2), after:=rngLast, Lookat:=xlPart, searchdirection:=xlNext)
If Not rngFirst Is Nothing Then
.Range(rngFirst, rngLast).Resize(rngLast.Row, 3).Copy Worksheets("Auswertung").Range("A1")
End If
End If
End With
End Sub

 

Sorry...hier noch mal der Code, den ich mal versucht habe umzuändern...klappt trotzdem nicht!

Code:

 

Moin
Evtl. lag daran das ich einen Punkt vergessen hatte.
Teste Anhang.
gruss hary

 

Funktioniert leider auch nicht.
Wenn ich z.B. in Textbox1 05.12.2014 eingebe und in Textbox2 10.12.2014
Markiert und kopiert er die Zeilen vom 05.12.2014 bis 15.12.2014
Hmmm...?

 

Scheinbar addiert er stets die Tage dazu...
Zum Verständnis:
Textbox1 = 1.12
Textbox2 = 15.12

Bereich, der markiert und kopiert wird = 1.12 bis 16.12

Anderes Beispiel:
Textbox1 = 5.12
Textbox2 = 15.12

Bereich, der markiert und kopiert wird = 5.12 bis 20.12

Woran könnte es liegen? Ich nin am überlegen, komme aber einfach nicht drauf!

Wie würde denn der Code aussehen, wenn ich z.B. die beiden Textboxen austausche?
Sprich, dass die beiden Werte "von" und "bis" in Zellen geschrieben werden.
A1=5.5.2014
A2=7.7.2014

 

Keiner ne Idee was da nicht stimmen könnte???

 

Moin
So passt es kommt davon wenn man zwischen Tuer und Angel schreibt.
Code:

gruss hary