Office: (Office 2013) Datum und Tag in Tabellenreiter einragen VBA

Ich habe ein VBA das mir im Tabellenblatt das Format zB. "08.08.2023" auswirft.

Sub BlätterEinfügen()
Dim Last As Integer, i As Integer

Application.ScreenUpdating = False
With ActiveSheet
Last = Day(Application.EoMonth(.Range("B2"), 0))
.Name = .Range("B2")
End With

For i = 2 To Last
Sheets(i - 1).Copy after:=Sheets(i - 1)
ActiveSheet.Range("B2") = Sheets(i - 1).Range("B2") + 1
ActiveSheet.Name = Range("B2")
Next
Application.ScreenUpdating = True
End Sub


Ich sollte aber als Ergebnis das Format z.B.: "Di. 08.08.2023" haben. Kann mir bitte jemand die besehende Formal ergänzen? Ich komm als Laie hier nicht weiter. Habe Tabelle als Muster hinzugefügt. Danke

 

Hallo Andy,

bei deinem Projekt erkenne ich einen Grundsätzlichen Fehler: man legt nicht für jeden Tag ein Blatt an, sondern erfasst alle relevanten Daten mit einer Datentabelle. Von dort überträgt man die Tagesdaten auf das Formular, um sie zum Beispiel auszudrucken.

 

Es gibt für die Vorlage Textfelder die ich individuell verschieben kann (Namen und Fahrzeuge). es gibt auch eine Grundvorplanung, weshalb ich einige Tage vorplanen musss. Bisher habe ich immer Kopiert und die Tabelle manuell ausgefüllt. Jetzt habe ich dieses VBA gefunden. Datum alleine ist ja ok, aber mit den dazugehörigen Tag wäre es halt besser. Wenn es keine solche Funktion gibt, auch Ok. Fragen kost nix ;-)

gruß Andy

 

Hallo Andy,

in deinem Projekt kommen mehrere Makros vor, (warum?). Das Makro im Modul des Tabellenblattes vom 01.12.2023 macht genau das, was du haben möchtest.

 

Hi Andi,

hier VBA Hilfe Berteff Autotabelle | HERBERS Excel Forum hast du doch bereits die Antwort erhalten - weshalb dann nochmal dieselbe Frage in einem anderen Forum? Und weshalb hast du in dem anderen Forum keine Rückmeldung gegeben?

---

 

Hallo Beverly. Sorry aber von den Varianten hat leider keine funktioniert. es kommt leider immer nur Datum ohne Tag raus.

 

Sorry, dann mache ich etwas falsch... Bei mir kommt immer nur das Datum ohne Tag

 

Und weshalb schreibst du das dann nicht in dem anderen Forum?!?!? Außerdem musst du die vorgeschlagenen Änderungen auch in den Code einbauen...:

Code:

Sub BlätterEinfügen()
    Dim Last As Integer, i As Integer
   
    Application.ScreenUpdating = False
    With ActiveSheet
        Last = Day(Application.EoMonth(.Range("B2"), 0))
        .Name = Format(.Range("B2"), "ddd, dd.mm.yyyy")
    End With
   
    For i = 2 To Last
        Sheets(i - 1).Copy after:=Sheets(i - 1)
        ActiveSheet.Range("B2") = Sheets(i - 1).Range("B2") + 1
        ActiveSheet.Name = Format(ActiveSheet.Range("B2"), "ddd, dd.mm.yyyy")
    Next
    Application.ScreenUpdating = True
End Sub

---

 

Ich habe auch deine Code versucht, aber ich hab leider auch damit nur das Ergebnis ohne Tag hinbekommen. Sorry. Scheinbar mache ich etwas falsch. Aber danke für deine Hilfe.

 

Im Anhang die Mappe, deren Blätter mit meinem Code erstellt wurden - sie haben alle die gewünschte Bezeichnung..

---

 

Vielen lieben Dank, scheint ich habe etwas falsch gemacht oder etwas nicht verstanden. Ich lasse ab jetzt lieber meine Finger von dingen die ich nicht kann und bleib bei den Basics.
Danke

 

Hallo Andy,

es ist immer gut, wenn man sich ein wenig mit den Grundlagen beschäftigt, wenn man etwas machen will. Du hast den geänderten Quelltext im Modul vom Tabellenblatt 01.12.2023 eingetragen. Dann kann er natürlich nicht funktionieren, wenn du den umgeänderten Quelltext aus dem Modul1 aufrufst.

 

Danke Dieter. Ich schaff mir jetzt erst mal ein Grundwissen, bevor ich mit "Excel-VBA" noch einmal beschäftige.