Datum suchen
24.10.2004 11:41:33
Uwe
wer kann mein VBA so verändern, dass es nach der Monatsabkürzung in einer Spalte sucht.
Erklärung:
ich gebe in einer Zelle ( F6 ) einen Monat mittels Gültigkeit vor
( z.B. Feb. ) und mein VBA soll im Datenblatt " Daten " in Spalte
( T1:T1001 ) diesen Monat suchen und ins Datenblatt " Kundenbesuche "
kopieren. Die Zellen T1:T1001 sind aber als Datum ( 15.Feb.02 )
formatiert um KW zu berechnen.
Kann jemand mein VBA modifizieren oder ist diese Suche gar nicht möglich ?
Hier mein VBA zum besseren Verständnis :
Sub Kunden_Monat()
Dim zelle As Range
Dim zielzeile As Integer
Range("a10:u1000").ClearContents ' bereich löschen
For Each zelle In Worksheets("daten").Range("T1:T1001")
zielzeile = Worksheets("Kundenbesuche").Range("a65536").End(xlUp).Row + 1 'einfügezeile bestimmen
If zelle.Value = Worksheets("Kundenbesuche").Range("f6").Value Then 'jede zelle in T1:T1001 abfragen
Worksheets("daten").Range("a" & zelle.Row).Copy _
Destination:=Cells(zielzeile, 1) 'jede relevante zelle kopieren und einfügen
Worksheets("daten").Range("d" & zelle.Row).Copy _
Destination:=Cells(zielzeile, 2)
Worksheets("daten").Range("e" & zelle.Row).Copy _
Destination:=Cells(zielzeile, 3)
Worksheets("daten").Range("h" & zelle.Row).Copy _
Destination:=Cells(zielzeile, 4)
Worksheets("daten").Range("m" & zelle.Row).Copy _
Destination:=Cells(zielzeile, 5)
Worksheets("daten").Range("p" & zelle.Row).Copy _
Destination:=Cells(zielzeile, 6)
End If
Next
End Sub
Danke im Vorraus
Gruß
Uwe R.