Automatische Tabellenblatterstellung

Jörg Spiecker · 5. März 2023

Guten Tag ich habe folgende Frage: Ich möchte in einer Monatsmappe für jeden Tag ein Tabellenblatt mit Datum und Wochentagnamen Mo-Fr erstellen, habe auch schon ihr Beispiel hier im Forum mit der Wochentags Erstellung ausprobiert. Funktioniert echt gut halt möchte ich dann zum Datum noch Mo-Fr. ergänzt haben. Ist dieses möglich? Vielen Dank für die Hilfe. MfG Jörg Spiecker

Andreas Killer

Ich würde aber zu dem Datum auch gerne Voarangestellt den Wochentag haben. Geht das?

Hallo Jörg,
Das geht. Und ich bin mal so frei und vereinfache das ganze Makro.
Andreas.
Sub BlätterEinfügen()
Dim Vorlage As Worksheet
Dim Datum As Date, VonDatum As Date, BisDatum As Date

Application.ScreenUpdating = False
Set Vorlage = ActiveSheet
VonDatum = Vorlage.Range("A1")
BisDatum = WorksheetFunction.EoMonth(VonDatum, 0)
For Datum = VonDatum + 1 To BisDatum
Select Case Weekday(Datum, 2)
Case Is <= 5
'Montag bis Freitag
Vorlage.Copy After:=ActiveSheet
DoEvents
Range("A1") = Datum
ActiveSheet.Name = Format(Datum, "ddd dd.mm.yyyy")
End Select
Next
Application.ScreenUpdating = True
End Sub

Jörg Spiecker

Hallo Andreas,
es geht um das impletieren in folgendes Makro von Claus Busch:
Sub BlätterEinfügen()
Dim Last As Integer, First As Integer, i As Integer, Tage As Integer

Application.ScreenUpdating = False
With ActiveSheet
First = Day(.Range("A1"))
Last = Day(Application.EoMonth(.Range("A1"), 0))
Tage = Application.NetworkDays(First, Last)
.Name = .Range("A1")
End With
For i = 2 To Tage
Select Case Weekday(Sheets(i - 1).Range("A1"), 2)
Case Is < 5
Sheets(i - 1).Copy after:=Sheets(i - 1)
ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 1
ActiveSheet.Name = Range("A1")
Case 5
Sheets(i - 1).Copy after:=Sheets(i - 1)
ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 3
ActiveSheet.Name = Range("A1")
End Select
Next
Application.ScreenUpdating = True
End Sub

Dieses legt aufgrund eines Datums in A1 für den restlichen Monat Tabellenblätter mit dem fortlaufenden Datum ohne WE an.
Ich würde aber zu dem Datum auch gerne Voarangestellt den Wochentag haben. Geht das?
Danke für die >Hilfe

Andreas Killer

Jedes Datum kann beliebig formatiert werden:
TT Gibt die Tageszahl
TTT Gibt den Wochentag abgekürzt
TTTT Gibt den Wochentag ausgeschrieben
Das gleiche gilt für den Monat mit M.

TT TTT TTTT | MM MMM MMMM | JJ JJJJ
Andreas.

Andreas Killer

Hallo Jörg,
Wenn viele Menschen an der gleichen Frage arbeiten ist es für viele verschwendete Zeit. Deswegen werden auch Crosspostings nicht gerne gesehen. Es wäre schön wenn Du das in berücksichtigen würdest.
Lies bitte auch die Verhaltensregeln dieses Forums Abschnitt "Unzulässiges Verhalten":
Microsoft Community – Verhaltensregeln
Die Frage ist hier beantwortet:
https://answers.microsoft.com/de-de...stellung/a5232b7f-2714-41e2-8f92-a8a36809ec9f
Ich schließe diesen Thread. Vielen Dank für Dein Verständnis.
Andreas.

Bernard_Pa

Hallo Martine,

Danke, dass Sie uns erneut konatktiert haben.

Schön, dass das Problem mit Spracherkennung behoben wurde.

Da es sich hier um ein Office Anliegen handelt, habe ich es ins Office Forum verschoben.

Dort bekommen Sie weitere Hilfe.

Mit freundlichen Grüßen,

Bernard

Hi,

willkommen im Windows Forum!

Automatische Tabellenblatterstellung - Similar Threads - Automatische Tabellenblatterstellung	Forum	Datum
Schaltet sich mein Computer nach ein paar Tagen von selbst ab oder meldet er sich automatisch ab? Schaltet sich mein Computer nach ein paar Tagen von selbst ab oder meldet er sich automatisch ab?: Ich nutze Windows 10. Mein Computer dient als Server und ich kann mich per RDP (Remote Desktop Processing) anmelden. Nach einigen Tagen funktioniert die Anmeldung per RDP aus irgendeinem Grund...	Microsoft Windows	3. Februar 2026
Automatischer OneDrive-Fototagger – hätte jemand Interesse? Automatischer OneDrive-Fototagger – hätte jemand Interesse?: Da die Fotosuche nach Personen/Inhalten in OneDrive nicht verfügbar ist, habe ich ein Programm entwickelt, das mithilfe von KI den Inhalt meiner Fotos erkennt und sie automatisch verschlagwortet,...	OneDrive	14. Januar 2026
Wie kann ich den automatischen Neustart vollständig und dauerhaft deaktivieren? Wie kann ich den automatischen Neustart vollständig und dauerhaft deaktivieren?: I have a computer that needs to be online 24/7 for work, and automatic reboots are a major annoyance. I've tried the following methods I found online, but it still occasionally reboots, wasting...	Games und Spiele	18. Oktober 2025
Automatisches speichern bei Excel Automatisches speichern bei Excel: Hallo,wie kann man Excel davon abhalten einem jedes Mal mitzuteilen, dass automatisches speichern deaktiviert ist?Ich weiß, dass es deaktiviert ist, weil es so sein soll.Danke!	Microsoft Office	15. Juli 2025
Meine Emails werden automatisch weitergeleitet Meine Emails werden automatisch weitergeleitet: Im Junk Order erhalte ich von * Die E-Mail-Adresse wurde aus Datenschutzgründen entfernt. * immer die Nachricht, dass Email X nicht an eine bestimmte Email-Adresse weitergeleitet werden kann...	Outlook.com	8. Juli 2025
Outlook versendet automatisch leere nachricht Outlook versendet automatisch leere nachricht: Hallo zusammenIch habe folgendes Problem, welches ich nicht weg bringe, auch wenn ich Outlook deinstalliere und neu installiere oder Updates duchführe, besteht das Problem nach wie...	Outlook.com	5. Juli 2025
Wie können meine Filme, welche ich in OneDrive hochgeladen habe, wieder automatisch... Wie können meine Filme, welche ich in OneDrive hochgeladen habe, wieder automatisch...: Guten TagSchon seit vielen Jahren verwende ich OneDrive. Bisher hat immer alles bestens funktioniert. Nun habe ich es allerdings schon viermal erlebt, dass Filme, welche ich auf die Plattform...	Microsoft Office	2. Juli 2025

Automatische Tabellenblatterstellung