Automatische Tabellenblatterstellung

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

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

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.

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.

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