Autoausfüllen bestimter Tage

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

peziwe
Beiträge: 3
Registriert: Di, 27.12.2011 12:22

Autoausfüllen bestimter Tage

Beitrag von peziwe »

Hallo Gemeinde,
viel probieren und googeln hat nichts genutzt, deshalb frag ich mal hier:
Es geht darum, dass wir unsere soziale Einrichtung nur 3 Tage pro Woche geöffnet haben.
Deshalb möchte ich in Calc über autoausfüllen /Spalte eine Liste erstellen, in der für´s ganze Jahr nur jeder Dienstag, Donnerstag und Samstag ist. Die Zeilen sollen dann mit Besucherzahlen, Spenden ect. versehen werden
Also:

DI 3.1.
Do 5.1.
SA 7.1.
Di 10.1.
und so weiter.

Wie krieg ich das hin?
Im Voraus schon mal Dank
Grüße aus der Börde und guten Rutsch ins 2012.
Pezi
F3K Total
********
Beiträge: 3723
Registriert: Mo, 28.02.2011 17:49

Re: Autoausfüllen bestimter Tage

Beitrag von F3K Total »

Hi,
angenommen Deine Daten stehen in Spalte A. Formatiere die Spalte als Datum mit dem Format Code NN T.M.
In A1 trägst Du das Datum des ersten Di, Do, oder Sa des Jahres ein, für 2012 den 03.01.2012
In A2 folgende Formel:

Code: Alles auswählen

=WENN(WOCHENTAG(A1)=7;A1+3;A1+2)
die ziehst Du runter, fertig!

Wenn Du möchtest, das der erste Di, Do oder Sa automatisch ermittelt wird, kannst Du eine Zelle mit der Jahreszahl füllen, folgende function im Makro Bereich speichern:

Code: Alles auswählen

function first_day(nCell as string)as date
dim odate as date
odate="01.01."+ncell
odate=odate-1
for i=0 to 7
odate=odate+1
if weekday(odate)= 3 then
first_day=odate
exit function
else if weekday(odate)= 5 then
first_day=odate
exit function
else if weekday(odate)= 7 then
first_day=odate
exit function
endif
endif
endif
next i
End function
und dann in die Zelle A1 folgende Formel eingeben

Code: Alles auswählen

=DATWERT(FIRST_DAY(B1))
wobei hier das Jahr (2012) in Zelle B1 steht.

Viel Erfolg
Gruß R
peziwe
Beiträge: 3
Registriert: Di, 27.12.2011 12:22

Re: Autoausfüllen bestimter Tage

Beitrag von peziwe »

Hallo F3K,
Genau das war´s was ich gesucht hab, Danke, ich bin stolz mit Dir. :D
Grüße aus der Börde
Pezi
F3K Total
********
Beiträge: 3723
Registriert: Mo, 28.02.2011 17:49

Re: Autoausfüllen bestimter Tage

Beitrag von F3K Total »

... mit function?
... dann wäre ick ooch stolz uff dir, sonst eher nüsch.
Gruß R
F3K Total
********
Beiträge: 3723
Registriert: Mo, 28.02.2011 17:49

Re: Autoausfüllen bestimter Tage

Beitrag von F3K Total »

Hi paljass,
danke für den Tip!
Ich habe mal eine Formel für Zelle A1 nach o.a. Beispiel ermittelt, dann klappts auch ohne function, was besser ist:

Code: Alles auswählen

=DATWERT("01.01."&B1)-(WOCHENTAG(DATWERT("01.01."&B1)))+(WENN((WOCHENTAG(DATWERT("01.01."&B1)))<=3;3;WENN((WOCHENTAG(DATWERT("01.01."&B1)))<=5;5;WENN((WOCHENTAG(DATWERT("01.01."&B1)))<=7;7;66))))
Das Jahr, nur das Jahr (2012), steht in Zelle B1
Gruß R
peziwe
Beiträge: 3
Registriert: Di, 27.12.2011 12:22

Re: Autoausfüllen bestimter Tage

Beitrag von peziwe »

Noch mals vielen Dank für die tollen Formeln und Funktionen.
Aber mir reicht die erste Variante völlig, da wir Monatszettel haben. Den ersten DI oder DO oder SA such ich gerne zu Fuß raus.
Der Rest funktioniert ja nun genial einfach.
Grüße
Pezi
mikeleb
*******
Beiträge: 1425
Registriert: Fr, 09.12.2011 16:50

Re: Autoausfüllen bestimter Tage

Beitrag von mikeleb »

Hallo,
noch 'ne Variante (falls es mal andere Wochentage sind).
Du gibst die erste Woche ein (A1, A2, A3) und in A4 dann die Formel: =A1+7 und 'runterziehen.
Gruß,
mikeleb
F3K Total
********
Beiträge: 3723
Registriert: Mo, 28.02.2011 17:49

Re: Autoausfüllen bestimter Tage

Beitrag von F3K Total »

Hallo,
in der obigen Zeile erzeuge ich aus der Jahreszahl das Datum des 1.1. des Jahres mit diesem Code

Code: Alles auswählen

DATWERT("01.01."&B1)
Inzwischen weiss ich, es geht einfacher:

Code: Alles auswählen

DATUM(B1;1;1)
ergo lautet der Code zur Berechnung des ersten Di, Do oder Sa eines Jahres:

Code: Alles auswählen

=DATUM(B1;1;1)-(WOCHENTAG(DATUM(B1;1;1)))+(WENN((WOCHENTAG(DATUM(B1;1;1)))<=3;3;WENN((WOCHENTAG(DATUM(B1;1;1)))<=5;5;WENN((WOCHENTAG(DATUM(B1;1;1)))<=7;7;66))))
Gruß R
Antworten