Thema Datum  Von Nutzer Rating
Antwort
20.04.2021 23:44:32 Claudia Holzer
NotSolved
Blau excel vba kalender
 21.04.2021 07:35:13 ralf_b
NotSolved
21.04.2021 14:20:49 Gast21660
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
21.04.2021 07:35:13		 Views:
192		 Rating:
     
Antwort:
  Ja
Thema:
excel vba kalender		 
Sub Kalender()

    Dim monat As Integer
    Dim anzTage As Integer
    Dim Jahr As Integer
    Dim TagNr As Integer
    Dim aktuellerTag As Date
    Dim ws As Worksheet
    Dim nxtRow As Long

    Jahr = InputBox("Neues Jahr anlegen!", "", "2021")
    If Jahr = Empty Then Exit Sub
    
    nxtRow = 1
    For monat = 1 To 12
        
         Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        
        anzTage = Day(DateSerial(Jahr, (monat + 1) Mod 12, 0))
        ws.Name = MonthName(monat, Jahr)
        For TagNr = 1 To anzTage
            aktuellerTag = DateSerial(Jahr, monat, TagNr)
            
            If Weekday(aktuellerTag, vbMonday) < 6 Then
              ws.Cells(nxtRow, 1).Value = aktuellerTag
              nxtRow = nxtRow + 1
            End If
            
        Next TagNr
        nxtRow = 1
    Next monat

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.04.2021 23:44:32 Claudia Holzer
NotSolved
Blau excel vba kalender
 21.04.2021 07:35:13 ralf_b
NotSolved
21.04.2021 14:20:49 Gast21660
Solved