Supportnet / Forum / Tabellenkalkulation
Kalender erstellen in Excel?!
Frage
Ich will jetzt einen Kalender mit Excel erstellen. Dabei will ich jeweils am Anfang des Monats ein Titelbild machen. Da soll drauf ein Bild für den jeweiligen Monat und dann auf der rechten Seite die Übersicht in Tage zu diesem Monat. Gibt es in Excel eine Funktion die die Nummerierung der Tag übernimmt? Oder muss ich im Kalender schauen welcher Tag der 1. Januar ist und dann alles von Hand eintragen???
Hat einer/e ne Ahnung?
Antwort 1 von nighty
hi errator
du hast post erhalten.
gruss nighty
du hast post erhalten.
gruss nighty
Antwort 2 von want2cu
Hallo Errator,
sicherlich kannst du mit Excel einen Kalender machen. Die automatische Nummerierung der Tage dürfte dabei wohl das geringste Problem darstellen.
Ich gehe mal davon aus, dass du den Kalender ausdrucken und nicht nur am PC nutzen willst. Schau doch mal bei Data-Becker, KOchmedia oder Sybex nach Programmen, mit denen man spezielle Kalender drucken kann. Vielleicht findest du ja da ein preiswertes Programm, was die ganze Sache wesentlich eleganter schafft.
CU
Klaus
sicherlich kannst du mit Excel einen Kalender machen. Die automatische Nummerierung der Tage dürfte dabei wohl das geringste Problem darstellen.
Ich gehe mal davon aus, dass du den Kalender ausdrucken und nicht nur am PC nutzen willst. Schau doch mal bei Data-Becker, KOchmedia oder Sybex nach Programmen, mit denen man spezielle Kalender drucken kann. Vielleicht findest du ja da ein preiswertes Programm, was die ganze Sache wesentlich eleganter schafft.
CU
Klaus
Antwort 3 von Errator
@nighty
Ja habe ich aber nur von Ebay :)
Deine Mail ist nicht da oder hast du mir etwa einen Brief geschrieben *lol*
@want2cu
Naja es soll für ne Jahreschrift sein und wie immer soll es nichts kosten aber ich werde mich mal umschauen. Nur heute noch einkaufen ist mir ein wenig zu gefährlich. Man stelle sich vor ich nehme die letzte CD des Programms von Data Becker und halte es in meinen Händen und eine Horde verzweifelter Eltern stürzen auf mich ein in der Hoffnung DIES sei das richtige Geschenk für Ihren sohn....Nein danke...
Ja habe ich aber nur von Ebay :)
Deine Mail ist nicht da oder hast du mir etwa einen Brief geschrieben *lol*
@want2cu
Naja es soll für ne Jahreschrift sein und wie immer soll es nichts kosten aber ich werde mich mal umschauen. Nur heute noch einkaufen ist mir ein wenig zu gefährlich. Man stelle sich vor ich nehme die letzte CD des Programms von Data Becker und halte es in meinen Händen und eine Horde verzweifelter Eltern stürzen auf mich ein in der Hoffnung DIES sei das richtige Geschenk für Ihren sohn....Nein danke...
Antwort 4 von nighty
hi errator
email kommt immer wieder zurueck !?
daher hier das listing
Sub jahresdaten()
Dim da(3, 12)
Dim tag$(39), tag1$(7)
da(0, 1) = 31
da(0, 2) = 29
da(0, 3) = 31
da(0, 4) = 30
da(0, 5) = 31
da(0, 6) = 30
da(0, 7) = 31
da(0, 8) = 31
da(0, 9) = 30
da(0, 10) = 31
da(0, 11) = 30
da(0, 12) = 31
da(1, 1) = 31
da(1, 2) = 28
da(1, 3) = 31
da(1, 4) = 30
da(1, 5) = 31
da(1, 6) = 30
da(1, 7) = 31
da(1, 8) = 31
da(1, 9) = 30
da(1, 10) = 31
da(1, 11) = 30
da(1, 12) = 31
da(2, 1) = 31
da(2, 2) = 28
da(2, 3) = 31
da(2, 4) = 30
da(2, 5) = 31
da(2, 6) = 30
da(2, 7) = 31
da(2, 8) = 31
da(2, 9) = 30
da(2, 10) = 31
da(2, 11) = 30
da(2, 12) = 31
da(3, 1) = 31
da(3, 2) = 28
da(3, 3) = 31
da(3, 4) = 30
da(3, 5) = 31
da(3, 6) = 30
da(3, 7) = 31
da(3, 8) = 31
da(3, 9) = 30
da(3, 10) = 31
da(3, 11) = 30
da(3, 12) = 31
tag1$(1) = "Montag"
tag1$(2) = "Dienstag"
tag1$(3) = "Mittwoch"
tag1$(4) = "Donnerstag"
tag1$(5) = "Freitag"
tag1$(6) = "Samstag"
tag1$(7) = "Sonntag"
tag$(0) = "Samstag"
tag$(1) = "Montag"
tag$(2) = "Dienstag"
tag$(3) = "Mittwoch"
tag$(4) = "Donnerstag"
tag$(5) = "Samstag"
tag$(6) = "Sonntag"
tag$(7) = "Montag"
tag$(8) = "Dienstag"
tag$(9) = "Donnerstag"
tag$(10) = "Freitag"
tag$(11) = "Samstag"
tag$(12) = "Sonntag"
tag$(13) = "Dienstag"
tag$(14) = "Mittwoch"
tag$(15) = "Donnerstag"
tag$(16) = "Freitag"
tag$(17) = "Sonntag"
tag$(18) = "Montag"
tag$(19) = "Dienstag"
tag$(20) = "Mittwoch"
tag$(21) = "Freitag"
tag$(22) = "Samstag"
tag$(23) = "Sonntag"
tag$(24) = "Montag"
tag$(25) = "Mittwoch"
tag$(26) = "Donnerstag"
tag$(27) = "Freitag"
tag$(28) = "Samstag"
tag$(29) = "Montag"
tag$(30) = "Dienstag"
tag$(31) = "Mittwoch"
tag$(32) = "Donnerstag"
tag$(33) = "Samstag"
tag$(34) = "Sonntag"
tag$(35) = "Montag"
tag$(36) = "Dienstag"
tag$(37) = "Donnerstag"
tag$(38) = "Freitag"
tag$(39) = "Samstag"
j1$ = Date
adress$ = ActiveWindow.RangeSelection.Address
adress1 = Len(adress$)
For mo = 1 To adress1
If Mid$(adress, mo, 1) = "$" Then
llp = llp + 1
Else
If llp = 1 Then
spalte$ = spalte$ + Mid$(adress, mo, 1)
End If
If llp = 2 Then
zeile$ = zeile$ + Mid$(adress, mo, 1)
zeile1 = Val(zeile$)
End If
End If
Next mo
If zeile1 = 1 And Range(spalte$ & zeile1) = "" Then zeile1 = zeile1 + 1
If Range(spalte$ & zeile1 - 1) <> "" Then
jj$ = Mid$(Range(spalte$ & zeile1 - 1), 1, 4)
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "1" Then ko = 1
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "2" Then ko = 2
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "3" Then ko = 3
zeile1 = zeile1 - 1
Else
zeile1 = zeile1 - 1
jj$ = Mid$(j1$, 7, 4)
End If
j1 = Val(jj$)
If j1 < 2040 And j1 > 1999 Then
j2 = j1 - 2000
j3 = 1
Do
If j2 < 4 Then
Exit Do
Else
j2 = j2 - 4
j3 = j3 + 1
j4 = j4 + 4
End If
Loop
If Range(spalte$ & zeile1) = "" Then zeile1 = zeile1 + 1
jk3$ = "0"
tz = 1
j4 = j4 + j2
For u = 1 To 7
If tag$(j4) = tag1$(u) Then tz1 = u
Next u
For t = 1 To 12
For t1 = 1 To da(j2, t)
If tz1 = 8 Then tz1 = 1
tt1$ = Str$(t1)
jk1 = Len(tt1$)
If Mid$(tt1$, 1, 1) = " " And jk1 = 2 Then tt1$ = jk3 + Mid$(tt1$, 2, 1)
If Mid$(tt1$, 1, 1) = " " And jk1 = 3 Then tt1$ = Mid$(tt1$, 2, 2)
tt2$ = Str$(t)
jk2 = Len(tt2$)
If Mid$(tt2$, 1, 1) = " " And jk2 = 2 Then tt2$ = jk3 + Mid$(tt2$, 2, 1)
If Mid$(tt2$, 1, 1) = " " And jk2 = 3 Then tt2$ = Mid$(tt2$, 2, 2)
If ko < 1 Then
Range(spalte$ & zeile1) = tt1$ + "." + tt2$ + "." + jj$ + " " + tag1$(tz1)
Else
If ko = 1 Then
If Len(tag1$(tz1)) < 11 Then
If tag1$(tz1) = "Montag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Dienstag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Mittwoch" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Freitag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Samstag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Sonntag" Then tag1$(tz1) = tag1$(tz1) + " "
End If
Range(spalte$ & zeile1) = tag1$(tz1) + " " + tt1$ + "." + tt2$ + "." + jj$
End If
If ko = 2 Then
Range(spalte$ & zeile1) = tt1$ + "." + tt2$ + "." + jj$
kl = Asc(spalte$)
Range(Chr$(kl + 1) & zeile1) = tag1$(tz1)
End If
If ko = 3 Then
Range(spalte$ & zeile1) = tag1$(tz1)
kl = Asc(spalte$)
Range(Chr$(kl + 1) & zeile1) = tt1$ + "." + tt2$ + "." + jj$
End If
End If
zeile1 = zeile1 + 1
tz1 = tz1 + 1
Next t1
Next t
End If
End Sub
beschreibung !
Funktionsweise des jahresdatum und tag Makros
1.1. Auswaehlen einer beliebigen zelle
1.2 strg+d
1.3 das aktuelle jahr+tag in einer zelle
2.1 Auswaehlen einer beliebigen zelle
2.2 eingabe des gewuenschten jahres 2000-2039
2.3 return
2.4 strg+d
2.5 das gewuenschte jahr+tag in einer zelle
3.1 Auswaehlen einer beliebigen zelle
3.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 1,beispiel 20051
3.3 return
3.4 strg+d
3.5 das gewuenschte tag+jahr in einer zelle
3.6 hinweis der font muss gleich breite zeichen haben.
4.1 Auswaehlen einer beliebigen zelle
4.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 2,beispiel 20052
4.3 return
4.4 strg+d
4.5 das gewuenschte jahr in einer seperaten spalte
und der tag in einer seperaten spalte.
5.1 Auswaehlen einer beliebigen zelle
5.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 3,beispiel 20053
5.3 return
5.4 strg+d
5.5 tag in einer seperaten spalte und das jahr in einer seperaten spalte.
email kommt immer wieder zurueck !?
daher hier das listing
Sub jahresdaten()
Dim da(3, 12)
Dim tag$(39), tag1$(7)
da(0, 1) = 31
da(0, 2) = 29
da(0, 3) = 31
da(0, 4) = 30
da(0, 5) = 31
da(0, 6) = 30
da(0, 7) = 31
da(0, 8) = 31
da(0, 9) = 30
da(0, 10) = 31
da(0, 11) = 30
da(0, 12) = 31
da(1, 1) = 31
da(1, 2) = 28
da(1, 3) = 31
da(1, 4) = 30
da(1, 5) = 31
da(1, 6) = 30
da(1, 7) = 31
da(1, 8) = 31
da(1, 9) = 30
da(1, 10) = 31
da(1, 11) = 30
da(1, 12) = 31
da(2, 1) = 31
da(2, 2) = 28
da(2, 3) = 31
da(2, 4) = 30
da(2, 5) = 31
da(2, 6) = 30
da(2, 7) = 31
da(2, 8) = 31
da(2, 9) = 30
da(2, 10) = 31
da(2, 11) = 30
da(2, 12) = 31
da(3, 1) = 31
da(3, 2) = 28
da(3, 3) = 31
da(3, 4) = 30
da(3, 5) = 31
da(3, 6) = 30
da(3, 7) = 31
da(3, 8) = 31
da(3, 9) = 30
da(3, 10) = 31
da(3, 11) = 30
da(3, 12) = 31
tag1$(1) = "Montag"
tag1$(2) = "Dienstag"
tag1$(3) = "Mittwoch"
tag1$(4) = "Donnerstag"
tag1$(5) = "Freitag"
tag1$(6) = "Samstag"
tag1$(7) = "Sonntag"
tag$(0) = "Samstag"
tag$(1) = "Montag"
tag$(2) = "Dienstag"
tag$(3) = "Mittwoch"
tag$(4) = "Donnerstag"
tag$(5) = "Samstag"
tag$(6) = "Sonntag"
tag$(7) = "Montag"
tag$(8) = "Dienstag"
tag$(9) = "Donnerstag"
tag$(10) = "Freitag"
tag$(11) = "Samstag"
tag$(12) = "Sonntag"
tag$(13) = "Dienstag"
tag$(14) = "Mittwoch"
tag$(15) = "Donnerstag"
tag$(16) = "Freitag"
tag$(17) = "Sonntag"
tag$(18) = "Montag"
tag$(19) = "Dienstag"
tag$(20) = "Mittwoch"
tag$(21) = "Freitag"
tag$(22) = "Samstag"
tag$(23) = "Sonntag"
tag$(24) = "Montag"
tag$(25) = "Mittwoch"
tag$(26) = "Donnerstag"
tag$(27) = "Freitag"
tag$(28) = "Samstag"
tag$(29) = "Montag"
tag$(30) = "Dienstag"
tag$(31) = "Mittwoch"
tag$(32) = "Donnerstag"
tag$(33) = "Samstag"
tag$(34) = "Sonntag"
tag$(35) = "Montag"
tag$(36) = "Dienstag"
tag$(37) = "Donnerstag"
tag$(38) = "Freitag"
tag$(39) = "Samstag"
j1$ = Date
adress$ = ActiveWindow.RangeSelection.Address
adress1 = Len(adress$)
For mo = 1 To adress1
If Mid$(adress, mo, 1) = "$" Then
llp = llp + 1
Else
If llp = 1 Then
spalte$ = spalte$ + Mid$(adress, mo, 1)
End If
If llp = 2 Then
zeile$ = zeile$ + Mid$(adress, mo, 1)
zeile1 = Val(zeile$)
End If
End If
Next mo
If zeile1 = 1 And Range(spalte$ & zeile1) = "" Then zeile1 = zeile1 + 1
If Range(spalte$ & zeile1 - 1) <> "" Then
jj$ = Mid$(Range(spalte$ & zeile1 - 1), 1, 4)
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "1" Then ko = 1
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "2" Then ko = 2
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "3" Then ko = 3
zeile1 = zeile1 - 1
Else
zeile1 = zeile1 - 1
jj$ = Mid$(j1$, 7, 4)
End If
j1 = Val(jj$)
If j1 < 2040 And j1 > 1999 Then
j2 = j1 - 2000
j3 = 1
Do
If j2 < 4 Then
Exit Do
Else
j2 = j2 - 4
j3 = j3 + 1
j4 = j4 + 4
End If
Loop
If Range(spalte$ & zeile1) = "" Then zeile1 = zeile1 + 1
jk3$ = "0"
tz = 1
j4 = j4 + j2
For u = 1 To 7
If tag$(j4) = tag1$(u) Then tz1 = u
Next u
For t = 1 To 12
For t1 = 1 To da(j2, t)
If tz1 = 8 Then tz1 = 1
tt1$ = Str$(t1)
jk1 = Len(tt1$)
If Mid$(tt1$, 1, 1) = " " And jk1 = 2 Then tt1$ = jk3 + Mid$(tt1$, 2, 1)
If Mid$(tt1$, 1, 1) = " " And jk1 = 3 Then tt1$ = Mid$(tt1$, 2, 2)
tt2$ = Str$(t)
jk2 = Len(tt2$)
If Mid$(tt2$, 1, 1) = " " And jk2 = 2 Then tt2$ = jk3 + Mid$(tt2$, 2, 1)
If Mid$(tt2$, 1, 1) = " " And jk2 = 3 Then tt2$ = Mid$(tt2$, 2, 2)
If ko < 1 Then
Range(spalte$ & zeile1) = tt1$ + "." + tt2$ + "." + jj$ + " " + tag1$(tz1)
Else
If ko = 1 Then
If Len(tag1$(tz1)) < 11 Then
If tag1$(tz1) = "Montag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Dienstag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Mittwoch" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Freitag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Samstag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Sonntag" Then tag1$(tz1) = tag1$(tz1) + " "
End If
Range(spalte$ & zeile1) = tag1$(tz1) + " " + tt1$ + "." + tt2$ + "." + jj$
End If
If ko = 2 Then
Range(spalte$ & zeile1) = tt1$ + "." + tt2$ + "." + jj$
kl = Asc(spalte$)
Range(Chr$(kl + 1) & zeile1) = tag1$(tz1)
End If
If ko = 3 Then
Range(spalte$ & zeile1) = tag1$(tz1)
kl = Asc(spalte$)
Range(Chr$(kl + 1) & zeile1) = tt1$ + "." + tt2$ + "." + jj$
End If
End If
zeile1 = zeile1 + 1
tz1 = tz1 + 1
Next t1
Next t
End If
End Sub
beschreibung !
Funktionsweise des jahresdatum und tag Makros
1.1. Auswaehlen einer beliebigen zelle
1.2 strg+d
1.3 das aktuelle jahr+tag in einer zelle
2.1 Auswaehlen einer beliebigen zelle
2.2 eingabe des gewuenschten jahres 2000-2039
2.3 return
2.4 strg+d
2.5 das gewuenschte jahr+tag in einer zelle
3.1 Auswaehlen einer beliebigen zelle
3.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 1,beispiel 20051
3.3 return
3.4 strg+d
3.5 das gewuenschte tag+jahr in einer zelle
3.6 hinweis der font muss gleich breite zeichen haben.
4.1 Auswaehlen einer beliebigen zelle
4.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 2,beispiel 20052
4.3 return
4.4 strg+d
4.5 das gewuenschte jahr in einer seperaten spalte
und der tag in einer seperaten spalte.
5.1 Auswaehlen einer beliebigen zelle
5.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 3,beispiel 20053
5.3 return
5.4 strg+d
5.5 tag in einer seperaten spalte und das jahr in einer seperaten spalte.