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.