Agenda / Wochenplan programmieren

[matthias wehrli]

Eben meinen Eintrag überarbeitet...

[Kuwer]

Hallo,

If Weekday(Range("B18").Value) = 2 Then

  Worksheets(Range("B18").Text).Activate

Else

  MsgBox "Heute ist " & Format(Range("B18").Value, "dddd")

End If

Gruß Uwe

[matthias wehrli]

Und wenn der Inhalt der Zelle nicht ein Montag ist (wie z.B. B3, B4, B6) in meinem Beispiel?
Wie schreibe ich, dass er vom Zelleninhalt 2, 4, 1 Tag zurückzählen soll und dann die se Tabelle öffnet?

Deine Antwort ist super, hab wirklich vielen Dank.
Allerdings bezieht sie sich auf meine erste Frage. Ich habe vorhin eine neues Beispiel hochgeladen. Da sind mehrere Beipieldaten drin, die man sicher mit einer "for x=0 to 4"-Schlaufe angeht. Wäre sehr froh, wenn du mir zeigen könntest, wie das dort geht.

[Kuwer]

Hallo,

z.B. so:

Sub Dateneingabe()

  Dim i As Long

  Dim datD As Date

  For i = 2 To 6

    datD = Cells(i, 2).Value

    Worksheets(CStr(datD - Weekday(datD, vbMonday) + 1)).Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = datD

  Next i

End Sub

Gruß Uwe

[matthias wehrli]

Holy sh*
Bist du schnell..... Werd mir das heute Nacht genauer anschauen... Danke schonmal im Voraus.