Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jahreszahl mit eintragen

Jahreszahl mit eintragen
16.02.2008 14:03:00
Fred
Hallo zusammen
Ich erstelle einen neuen Jahreskalender über den unten stehenden Code. Wie kann ich dort mit einbauen das er das eingegebene Jahr in die Zelle A50 einträgt.

Sub Kalender_untereinander()
Dim intfrage As Integer
Dim monat As Integer
Dim tag As Integer
Dim Jahr As Integer
Dim intfrageTxt As Integer
Range("A1:AJ159").Delete Shift:=xlUp
intfrage = InputBox("programmiert von Fred Luczyk            Welches Jahr?")
For monat = 1 To 12 Step 1
Cells(monat, 1) = Format(DateSerial(intfrage, monat, 1), "MMMM")
For tag = 1 To Day(DateSerial(intfrage, monat + 1, 0))
Cells(monat, tag + 1) = Format(DateSerial(intfrage, monat, tag), "DD   DDD")
Next tag
Next monat
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Jahreszahl mit eintragen
16.02.2008 14:09:24
Daniel
Hi

Sub Kalender_untereinander()
Dim intfrage As Integer
Dim monat As Integer
Dim tag As Integer
Dim Jahr As Integer
Dim intfrageTxt As Integer
Range("A1:AJ159").Delete Shift:=xlUp
intfrage = InputBox("programmiert von Fred Luczyk            Welches Jahr?")
For monat = 1 To 12 Step 1
Cells(monat, 1) = Format(DateSerial(intfrage, monat, 1), "MMMM")
For tag = 1 To Day(DateSerial(intfrage, monat + 1, 0))
Cells(monat, tag + 1) = Format(DateSerial(intfrage, monat, tag), "DD   DDD")
Next tag
Next monat
Range("A50") = intfrage
End Sub


Gruß, Daniel

Anzeige
AW: Jahreszahl mit eintragen
16.02.2008 14:59:00
Fred
Hallo daniel
Vielen Dank manchmal sieht mann den Wald vor lauter Bäumen nicht
Grüße Fred

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige