Vergleichen und eintragen
14.04.2005 00:35:20
Bryan
bin gerade dabei diesen code zu machen und komme nicht mehr weiter.
Ich will das Datum der Zellen (A6:A36, E6:E36 usw bis AS) mit dem Datum das in Zelle FF2:FF367 steht vergleichen. Ist das Datum dasselbe, soll 2 Spalten weiter wie A6, also in C6 der Text aus der Zelle FG ? eingetragen werden.
Beispiel: In A10 steht 05.01.05 und in FF6 steht auch der 05.01.05 dann soll in Zelle C10 der Text von FG6 geschrieben werden. Hier mein Ansatz. Kann mir jemand helfen das Ding zu vervollständigen?
Sub Schicht_Ein()
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, I, M, Q, ... , AS
If Weekday(Cells(z, s).Value) = Weekday("FF2:FF367") Then 'FF2:FF367 steht Vergleichsdatum
Cells(z, s + 2)) 'FG2:FG367 steht der Text der eingetragen werden soll
End If
Next s
Next z
End Sub
Danke und Gruss
Bryan