08.09.2020, 18:42
08.09.2020, 18:43
Hallo,
If Weekday(Range("B18").Value) = 2 ThenGruß Uwe
Worksheets(Range("B18").Text).Activate
Else
MsgBox "Heute ist " & Format(Range("B18").Value, "dddd")
End If
08.09.2020, 19:53
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.
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.
08.09.2020, 20:44
Hallo,
z.B. so:
z.B. so:
Sub Dateneingabe()Gruß Uwe
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
08.09.2020, 21:05
Holy sh*
Bist du schnell..... Werd mir das heute Nacht genauer anschauen... Danke schonmal im Voraus.
Bist du schnell..... Werd mir das heute Nacht genauer anschauen... Danke schonmal im Voraus.