Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
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

Code auf Worksheets erweitern

Code auf Worksheets erweitern
12.01.2018 13:13:45
Johann
Hallo,
hatt einer eine Idee warum dieser Code nicht auf Anderen Tabellen funktioniert?
Ich bräuchte diesen eigentlich auf Januar bis Dezember
Herzlichen Dank im voraus
Sub Kalender_erstellen()
Dim WsTabelle As Worksheet
Dim tag As Long
Dim Monat As Integer
Dim jahr As Integer
Dim ersterTag As Date
Dim letzterTag As Date
Dim zeile As Integer
Dim spalte As Integer
Monat = 1
jahr = 2018
spalte = 1
With ActiveSheet
.Cells.Clear
For Each WsTabelle In Worksheets
For Monat = 1 To Monat
zeile = 1
ersterTag = CDate("01." & Monat & "." & jahr)
letzterTag = CDate("01." & Monat + 1 & "." & jahr) - 1
.Cells(zeile, spalte) = ersterTag
For tag = ersterTag To letzterTag
.Cells(zeile, spalte) = tag
If Weekday(tag) = 1 Or Weekday(tag) = 7 Then
.Cells(zeile, spalte).Interior.Color = vbRed
End If
spalte = spalte + 1
Next tag
.Columns(spalte).NumberFormat = "DD DDD"
Next Monat
.Rows(1).NumberFormat = "DD DDD"
Next WsTabelle
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code auf Worksheets erweitern
12.01.2018 13:22:32
Burak
könntest du genauer erklären was nicht funktioniert? egal auf welchem tabellenblatt ich das makro ausführe, es funktioniert
AW: Code auf Worksheets erweitern
12.01.2018 13:29:26
Rudi
hallo,
so?
Sub Kalender_erstellen()
Dim tag As Long
Dim Monat As Integer
Dim jahr As Integer
Dim ersterTag As Date
Dim letzterTag As Date
Dim zeile As Integer
Dim spalte As Integer
jahr = 2018
For Monat = 1 To 12
spalte = 1
With Sheets(MonthName(Monat))
.Cells.Clear
zeile = 1
ersterTag = CDate("01." & Monat & "." & jahr)
letzterTag = CDate("01." & Monat + 1 & "." & jahr) - 1
.Cells(zeile, spalte) = ersterTag
For tag = ersterTag To letzterTag
.Cells(zeile, spalte) = tag
If Weekday(tag) = 1 Or Weekday(tag) = 7 Then
.Cells(zeile, spalte).Interior.Color = vbRed
End If
spalte = spalte + 1
Next tag
.Columns(spalte).NumberFormat = "DD DDD"
.Rows(1).NumberFormat = "DD DDD"
End With
Next Monat
End Sub

Gruß
Rudi
Anzeige
AW: Code auf Worksheets erweitern
15.01.2018 14:05:29
Johann
Vielen Dank,
läuft super :)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige