Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vorheriger Tag

Vorheriger Tag
18.05.2023 10:37:30
chris58

Hallo !
Ich habe dieses Makro hier gefunden und will fragen, ob man den Tag den man dann angezeigt bekommt um einen Tag rückversetzen kann.
Also statt der Anzeige Mittwoch soll Dienstag eingetragen werden.
Danke für die Hilfe

Sub aa()
Dim r As Range
For Each r In Range(Cells(21, 1), Cells(Rows.Count, 1).End(xlUp))
r.Offset(, 9) = Format(r, "DDDD")
Next r
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorheriger Tag
18.05.2023 10:43:32
Oberschlumpf
Hi,

mach aus...
Format(r, "DDDD")
...das hier...
Format(r - 1, "DDDD")
...hilfts?

Ciao
Thorsten


AW: Vorheriger Tag
18.05.2023 11:35:39
GerdL
Moin,

eine Plausibilität könnte man vorsehen.
If IsDate(r) Then r.Offset(0, 9) = Format(r - 1, "DDDD")
Beachte: Der Wochentag des Vortags steht so aber auch im Zellenwert, nicht dessen Datum.

Gruß Gerd


AW: Vorheriger Tag
18.05.2023 14:44:24
chris58
Hallo !
Ich habe beides probiert, doch es geht keine Änderung von beiden. Noch eine Idee ?
lg chris


Anzeige
AW: Vorheriger Tag
18.05.2023 15:33:56
GerdL
Hallo Chrsi,

klar doch.

Zeige eine Mustertabelle mit deinen Daten in Spalte A u. schreibe in Spalte K, welche Einträge du daraus in Spalte J haben möchtest.

Gruß Gerd


AW: Vorheriger Tag
18.05.2023 16:05:28
chris58
Hallo !
Ich habe ein Makro aufgezeichnet, dieses soll IMMER von Zelle A der Zeile das Datum nehmen und von da den Vortag) in Zelle J der jeweiligen Zeile eintragen.
Das passt ja, wenn ich das mit dem Makro mache, nur wenn es die nächste Zeile ist......dann funkt das nicht mehr.....
Das wäre besser, als das andere, mit dem ich nun seit langem beschäftige.
Kannst mir bittie, bitte helfen...
Danke

Sub F()
    Range("J2399").Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-9]-1,""TTTT"")"
End Sub


Anzeige
AW: Vorheriger Tag
18.05.2023 16:16:14
GerdL
Hallo,

hast du verstanden, was ich geschrieben habe?

Gruß Gerd


AW: Vorheriger Tag
18.05.2023 17:48:23
chris58
Hallo !
Ich habe hier eine Datei hochgeladen, wie die im Endzustand aussieht. Ich habe das schon verstenden, jedoch dachte ich, es genügt das Makro.
Danke für deine Geduld
chris

https://www.herber.de/bbs/user/159239.xls


AW: Vorheriger Tag
18.05.2023 17:56:56
chris58
Danke nochmals...
Ich habe nun selbst gelöst.
Hier die Formel für das Makro
chris58

' Formel in Spalte J
TB.Cells(sMaxZeile, 10).FormulaR1C1 = "=TEXT(RC[-9]-1,""TTTT"")"

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige