c.hoppe@lamprecht-pflanzen.ch

Hallo,
ich exportiere aus unserem ERP ein Excel Dokument auf dem ich anschliessend verschiedene Datumsangaben via Makro Ändern muss. Es handelt sich um eine Angebotsliste. Die Ausgabe der einzelnen Wochentage erfolgt nach meinem Makro bei Tagen vom z.B. 1.11 - 9.11 jeweils einstellig. Mein Chef wünscht aber die Darstellung 01.11 - 09.11
1. In Zelle C3 Steht das Datum von dem ich ausgehe. z.B. "12.11.2019"
2. In Zelle E3 ziehe ich einen Tag ab dann folgt ein Bindestich und dann zähle ich wieder vier Tage hinzu.
Das ergibt dann den Zeitraum vom 11.11.2019 - 16.11.2019.
3. Hier ist das Problem: Danach muss ich in die Zellen M5 - R5 die Daten der einzelnen Tage ausgeben. also "11.11" in M5, "12.11". in N5, "13.11". in O5 etc.
Jetzt erstmal mein Code:

Sub Datum()
Dim Datum1 As Date
Datum1 = ActiveSheet.Range("C3")
ActiveSheet.Range("E3").Value = (Datum1 - 1) & " - " & (Datum1 + 4)
ActiveSheet.Range("M5").Value = Day(Datum1 - 1) & "." & Month(Datum1 - 1) & "."
ActiveSheet.Range("N5").Value = Day(Datum1) & "." & Month(Datum1) & "."
ActiveSheet.Range("O5").Value = Day(Datum1 + 1) & "." & Month(Datum1 + 1) & "."
ActiveSheet.Range("P5").Value = Day(Datum1 + 2) & "." & Month(Datum1 + 2) & "."
ActiveSheet.Range("Q5").Value = Day(Datum1 + 3) & "." & Month(Datum1 + 3) & "."
ActiveSheet.Range("R5").Value = Day(Datum1 + 4) & "." & Month(Datum1 + 4) & "."
ActiveSheet.Range("C3") = ""
End Sub

Wie erreiche ich die Datumsangabe bei Zahlen von 1 bis 9 mit einer "0" davor ohne das bei den zweistelligen Daten von 11 - 31 auch eine 0 voran gestellt wird?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datum() Dim Datum1 As Date Datum1 = ActiveSheet.Range("C3") ActiveSheet.Range("E3").Value = (Datum1 - 1) & " - " & (Datum1 + 4) ActiveSheet.Range("M5").Value = Format$(Day(Datum1 - 1), "00") & "." & _ Format$(Month(Datum1 - 1), "00") & "." ActiveSheet.Range("N5").Value = Format$(Day(Datum1), "00") & "." & _ Format$(Month(Datum1), "00") & "." ActiveSheet.Range("O5").Value = Format$(Day(Datum1 + 1), "00") & "." & _ Format$(Month(Datum1 + 1), "00") & "." ActiveSheet.Range("P5").Value = Format$(Day(Datum1 + 2), "00") & "." & _ Format$(Month(Datum1 + 2), "00") & "." ActiveSheet.Range("Q5").Value = Format$(Day(Datum1 + 3), "00") & "." & _ Format$(Month(Datum1 + 3), "00") & "." ActiveSheet.Range("R5").Value = Format$(Day(Datum1 + 4), "00") & "." & _ Format$(Month(Datum1 + 4), "00") & "." ActiveSheet.Range("C3") = "" End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread