Datum für jedes Tabellenblatt eintragen lassen!
21.11.2004 14:38:24
Andreas
ich habe mir 4 Kalender erstellt, die jeweils in einem Tabellenblatt
sind.Über diesen Code kann ich über eine Datumsangabe( von - bis) den Begriff(hier im Bsp. Hallo) eintragen lassen.
Nun meine Frage bis jetzt muss ich in jedes Blatt einzeln gehen und dort jeweils die Datumsangabe machen.
Ich hätte es aber gern, wenn ich dass nur noch vom ersten Blatt machen muss und er sich dann automatisch in die jeweils anderen Blätter einträgt.
Zum Beispiel:
Blatt 1 hat das Kalenderjahr 2003
Blatt 2 hat das Kalenderjahr 2004
Nun gebe ich im ersten Blatt von 20.10.2003 bis 25.05.2004 ein und er soll dann Blattübergeifend bis zum 20.05.2004 eintragen also vom ersten Blatt ins zweite Blatt springen.
Gibt es da eine Möglichkeit.
Sub Bereiche_über_Datum_eintragen()
On Error Resume Next
Dim Zelle As Range
Dim s As Integer, z As Long
Dim a As Integer, b As Long, c As Integer
Dim d As Integer, e As Long
For s = 4 To 26 Step 2
For z = 3 To 33
For a = 1 To 1
For b = 23 To 23
For c = 2 To 2
For Each Zelle In ActiveSheet.Cells(z, s)
If Cells(z, s + 1).Value = "Schule" Then
Cells(z, s + 1).End
Else
If Cells(z, s) >= Cells(b, a) And Cells(z, s) <= Cells(b, c) Then
Cells(z, s + 1).Value = "Hallo"
cells(z, s + 1).Interior.ColorIndex = 38
If Weekday(Cells(z, s), 2) = 6 Then
Cells(z, s + 1).Clear 'säubert die Zelle wenn der Wochentag "Samstag" erscheint'
Cells(z, s + 1).Borders.LineStyle = 1 'stellt den Rahmen wieder her'
Else
If Weekday(Cells(z, s), 2) = 7 Then
Cells(z, s + 1).Clear 'säubert die Zelle wenn der Wochentag "Sonntag" erscheint'
Cells(z, s + 1).Borders.LineStyle = 1
Else
If Cells(z, s).Interior.ColorIndex = 33 Then 'löscht auch die Tage, wo ein Feiertag vor-
Cells(z, s + 1).Clear 'handen ist. Aufgrund der Farbe'
Cells(z, s + 1).Borders.LineStyle = 1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
End Sub