Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalender

Kalender
20.12.2005 18:43:19
Boris
Hallo Leute
Ich habe folgendes Problem!
Ich bin gerade dabei einen Kalender in VBA zu programmieren und sie dann anschließend in der Excel-Tabelle auszugeben. In der ersten Spalte sollen die Wochentage stehen und in der ersten Reihe sollen die Monatsnamen stehen.
Wenn man in die Zelle A.1 die Jahreszahl eingibt soll der Kaleder neu geschreiben/angezeigt werden, je nach Jahreszahl (zb. 2005 , 2006)
Die Zahlen sollen unter den Monatsnamen stehen.
Bitte schreiben Sie den Source Code in einer Sprache, die ein Anfänger verstehen kann
Danke
Boris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalender
20.12.2005 19:23:01
Josef
Hallo Boris!
Viel Spass!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub MakeCalendar()
Dim intYear As Integer, lngRow As Long, intCol As Integer

intYear = Range("A1")

If intYear < 1900 Or intYear > 2300 Then
  MsgBox "Jahr ausserhalb des gültigen Bereiches!", 64, "Kalender"
  Exit Sub
End If

On Error GoTo ErrExit
Application.ScreenUpdating = False

Range("A2:L33").Clear

For intCol = 1 To 12
  
  Cells(2, intCol) = Format(DateSerial(intYear, intCol, 1), "mmmm") 'Monatsnamen
  lngRow = 3
  
  Do
    
    Cells(lngRow, intCol) = CDate(DateSerial(intYear, intCol, lngRow - 2)) 'Datum
    Cells(lngRow, intCol).NumberFormat = "ddd* dd" 'Format
    
    If Weekday(DateSerial(intYear, intCol, lngRow - 2), 2) > 5 Then 'Wochenenden kennzeichnen
      Cells(lngRow, intCol).Font.ColorIndex = 3
    End If
    
    lngRow = lngRow + 1
    
  Loop While Month(DateSerial(intYear, intCol, lngRow - 2)) = Month(DateSerial(intYear, intCol, 3))
  
Next

ErrExit:
Application.ScreenUpdating = True

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Kalender
20.12.2005 19:33:42
Boris
Danke Sepp

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige