Excel 2003 - Kalender anpassen

Question

Guten Tag zusammen,
Möchte gerne den "Kalender" den ich unter

http://www.file-upload.net/download-4475286/re3PFRR2.xls.html

eingestellt habe ein bisschen verändert haben.
Meine Versuche dies anzupassen haben nicht so richtig geklappt.
Meine Frage wäre:
Ich möchte in A1 das Jahr eingeben-(wie bestehend)
und von A15 bis A45 sollte es mir das aktuelle Datum angeben./Ohne Spalte C,D,und F/ und Zelle G1
Auch wie in der Tabelle für alle Monatsregister---
und als Zusatzfrage: kann man für die Berechnung statt (Monat) 01 ect. auch Januar 2012 usw. pro Register eingeben als Berechnungsgrundlage??

Herzlichen Dank - und ich freue mich auf die Antworten.

Gruß Rudolf

Answer 1

Hallo Rudolf,

schau mal rein

Gruß
Rainer

Answer 2

Hallo Rainer,

zuerst ein Dankeschon für deine Arbeit, - habe dazu noch eine Frage:

die Spalte "B" habe ich übersehen- mit den Kalenderwochen, - ist das möglich auch ohne diese KW den Kalender zu erstellen.

Wenn nicht wäre das nicht so schlimm.

Viele Grüße an Dich

Rudolf

Answer 3

Hallo Rainer,

hab gerade nochmals probiert, glaube die KW hat gar keinen Einfluß auf die Berechnung.

Versuche den Kalender so zu gestalten das das Monatsdatum immer in A15 - nach unten anfängt. Mir zeigt es immer #WERT an.
Was muss ich ändern

Danke
Rudolf

Answer 4

Hallo Rudolf,

ja, das geht.

Download

Gruß
Rainer

Answer 5

Hallo Rainer,

ich schreibe heute scheibchenweiße.

Habe eine neue leere Tabelle genommen und versuche die Formeln von Dir zu übernehmen.(deswegen #WERT Anzeige)
Könntest Du mir noch die letzten Tage des Monates anpassen??

Ich hoffe das ich jetzt alles geschrieben habe.

Danke
Rudolf

Answer 6

Guten Abend Rainer,

deine Arbeit wie immer super- Danke.

Möchte Dir noch eine Frage stellen, aber nur beantworten wenn du Zeit dafür findest.

Ich habe Dir meine Tabelle hochgeladen.
http://www.file-upload.net/download-4476730/Kalender1.xls.html

Warum wenn ich deine Formeln da reinkopiere geht dieses "Teil" nicht.
((""Ich will ein Wert -der fragt nach #WERT"") der soll mir diesen einfach geben!!!))

Was mache ich falsch.
Wenn ich Deine Tabelle mit Zeilen einfügen zu A15 schiebe funktioniert das alles,aber ich muss die Formeln in eine bestehende Tabelle einfügen.

Danke
Rudolf

Answer 7

Hallo Rudolf,

((""Ich will ein Wert -der fragt nach #WERT"") der soll mir diesen einfach geben!!!))

... diesen Satz verstehe ich leider nicht.

Die Fehlermeldung #WERT! wird nur ausgegeben, wenn Deine Datei noch nicht abgespeichert wurde.

Die Formel in A1 kann nur im abgepeicherten Zustand der Mappe wirken, da diese, die Funkton ZELLE() mit dem Parameter "Dateiname" verwendet.

Gruß
Rainer

Answer 8

Hallo Rainer,

ich hab den ""Fehler"" gefunden.

Habe die Formatierung von deiner Tab. -A1- in meine übertragen, und siehe da es funktioniert.
Habe das auch zwischendurch formatiert - aber habe dann mehrmals neu angefangen.

Wünsche Dir einen angenehmen Abend

Gruß
Rudolf

Answer 9

hi all ^^

leicht zu modifizieren

gruss nighty

Sub Kalender1()
Dim intTage As Integer, intWochenTage As Integer
Dim rngB As Range
intTage = DateSerial(Year(Date) + 1, 1, 0) - DateSerial(Year(Date), 1, 1)
Set rngB = Worksheets("Tabelle1").Range("A2:A" & intTage + 2)
With rngB
.Cells(1).Value = DateSerial(Year(Date), 1, 1)
.Cells(1).AutoFill rngB
.NumberFormat = "dd.mm.yyyy"
.HorizontalAlignment = xlLeft
End With
For intWochenTage = 2 To intTage
Cells(intWochenTage, 2) = WeekdayName(Weekday(Cells(intWochenTage, 1) - 1))
Next intWochenTage
End Sub

Answer 10

Hallo nighty,

Danke für dein Makro.
Habe schon die Ausführung von Rainer genommen, aber das Makro von Dir gespeichert.

Habe mich gefreut deinen Namen wieder einmal zu lesen - du hast mir früher auch schon bei Fragen geholfen.

An Dich und alle anderen einen

herzlichen Dank und einen schönen Abend

Gruß
Rudolf