Daten mittels Kalender markieren

31/05/2008 - 14:08 von Manzenreiter Gerhard | Report spam
Hallo
Hàtte wieder mal Hilfe gebraucht.
Ich möchte mittels Userform und mit 2 Kalender ( DTPicker) einen
Datenbereich markieren.
In Spalte A steht das Datum für das ganze Jahr und in Spalte B,C,D,E
befinden sich die Daten
Jetzt möchte ich mittels den 2 Kalendern mit Anfangsdatum und Enddatum einen
Bereich markieren und kopieren.
So suche ich das Datum.Wie kann man diesen Bereich markieren ?????

Dim zelle As Range
Dim zelle2 As Range

Set zelle = Sheets("Tabelle1").Columns(1) _
.Find(UserForm1.DTPicker1_von, lookat:=xlWhole)

Set zelle2 = Sheets("Tabelle1").Columns(1) _
.Find(UserForm1.DTPicker2_bis, lookat:=xlWhole)

Dank im Voraus

Manzenreiter Gerhard
 

Lesen sie die antworten

#1 Wolfgang Habernoll
31/05/2008 - 16:12 | Warnen spam
Hallo Gerd

"Manzenreiter Gerhard" schrieb im Newsbeitrag
news:%
Hallo
Hàtte wieder mal Hilfe gebraucht.
Ich möchte mittels Userform und mit 2 Kalender ( DTPicker) einen Datenbereich
markieren.
In Spalte A steht das Datum für das ganze Jahr und in Spalte B,C,D,E befinden
sich die Daten
Jetzt möchte ich mittels den 2 Kalendern mit Anfangsdatum und Enddatum einen
Bereich markieren und kopieren.
So suche ich das Datum.Wie kann man diesen Bereich markieren ?????

Dim zelle As Range
Dim zelle2 As Range

Set zelle = Sheets("Tabelle1").Columns(1) _
.Find(UserForm1.DTPicker1_von, lookat:=xlWhole)

Set zelle2 = Sheets("Tabelle1").Columns(1) _
.Find(UserForm1.DTPicker2_bis, lookat:=xlWhole)



eine Möglichkeit

Sheets("Tabelle2").Range(zelle, "E" & zelle2.Row).Copy

du solltest aber sicherstellen bzw. prüfen ob Find auch wirklich ein Datum
findet und in zelle/zelle2 schreibt.

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen