Wochentag Funktion in VBA realisieren

Discussion:

(zu alt für eine Antwort)

Thomas

2006-08-04 19:46:02 UTC

Hallo NG,

ich hab mir ein Arbeitszeit Konto gebastelt, das auch funktioniert. Möchte
jetzt nur noch einige Verbesserungen vornehmen. In der Spalte A habe ich das
Datum des jeweiligen Monats vom 1. bis zum 31. Nun möchte ich in einer
weiteren Spalte F prüfen was für ein Tag an dem Datum ist und zwar mit der
Wochentag Funktion die auch funktionier. Habe 7 Wenn Funktionen ineinander
verschachtelt:

=WENN(F17="";"";WENN(WOCHENTAG(A17)=2;F17-Montag;WENN(WOCHENTAG(A17)=3;F17-Dienstag;WENN(WOCHENTAG(A17)=4;F17-Mittwoch;WENN(WOCHENTAG(A17)=5;F17-Donnerstag;WENN(WOCHENTAG(A17)=6;F17-Freitag;WENN(WOCHENTAG(A17)=7;F17-Samstag;F17-Sonntag)))))))

kann mir einer sagen wie ich das Ganze in VBA lösen kann. Wäre euch sehr
dankbar, oder gibt es noch eine andere Möglichkeit wie man das elegant lösen
kann.

Ich dank euch schon im voraus für eure Hilfe

Gruß
Thomas

Claus Busch

2006-08-04 20:02:01 UTC

Permalink

Hallo Thomas,

Post by Thomas
ich hab mir ein Arbeitszeit Konto gebastelt, das auch funktioniert. Möchte
jetzt nur noch einige Verbesserungen vornehmen. In der Spalte A habe ich das
Datum des jeweiligen Monats vom 1. bis zum 31. Nun möchte ich in einer
weiteren Spalte F prüfen was für ein Tag an dem Datum ist und zwar mit der
Wochentag Funktion die auch funktionier. Habe 7 Wenn Funktionen ineinander
=WENN(F17="";"";WENN(WOCHENTAG(A17)=2;F17-Montag;WENN(WOCHENTAG(A17)=3;F17-Dienstag;WENN(WOCHENTAG(A17)=4;F17-Mittwoch;WENN(WOCHENTAG(A17)=5;F17-Donnerstag;WENN(WOCHENTAG(A17)=6;F17-Freitag;WENN(WOCHENTAG(A17)=7;F17-Samstag;F17-Sonntag)))))))
kann mir einer sagen wie ich das Ganze in VBA lösen kann. Wäre euch sehr
dankbar, oder gibt es noch eine andere Möglichkeit wie man das elegant lösen
kann.

das hättest du auch einfacher haben können. In F17
=WAHL(WOCHENTAG(A17;2);"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So") und herunter
kopieren soweit du es brauchst. Oder in F17 nochmals das Datum rein
schreiben und Format TTT für die Kurzform oder Format TTTT für die
ausgeschriebene Version benutzen.

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas Ramel

2006-08-04 20:27:20 UTC

Permalink

Grüezi Claus und Thomas

Claus Busch schrieb am 04.08.2006

Post by Claus Busch

In der Spalte A habe ich das Datum des jeweiligen Monats vom 1. bis zum
31. Nun möchte ich in einer weiteren Spalte F prüfen was für ein Tag
an dem Datum ist und zwar mit der Wochentag Funktion die auch
=WENN(F17="";"";WENN(WOCHENTAG(A17)=2;F17-Montag;WENN(WOCHENTAG(A17)=3;F17-Dienstag;WENN(WOCHENTAG(A17)=4;F17-Mittwoch;WENN(WOCHENTAG(A17)=5;F17-Donnerstag;WENN(WOCHENTAG(A17)=6;F17-Freitag;WENN(WOCHENTAG(A17)=7;F17-Samstag;F17-Sonntag)))))))
kann mir einer sagen wie ich das Ganze in VBA lösen kann. Wäre euch
sehr dankbar, oder gibt es noch eine andere Möglichkeit wie man das
elegant lösen kann.

...oder, wenn die Tage als Text dastehen sollen könntest Du auch die
TEXT()-Funktion verwenden:

=TEXT(A17;"TTTT")

Mit freundlichen Grüssen
Thomas Ramel

--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
Microsoft Excel - Die ExpertenTipps:
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

Claus Busch

2006-08-04 20:35:44 UTC

Permalink

Hallo Thomas,

Post by Thomas Ramel
...oder, wenn die Tage als Text dastehen sollen könntest Du auch die
=TEXT(A17;"TTTT")

schön, dich wieder hier zu sehen. Hoffe, dass es mit Melanie und Frank auch
bald wieder funktioniert.

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas

2006-08-05 17:49:01 UTC

Permalink

Hallo Claus,

das ist ein guter ansatz von Dir danke erst mal.
Aber ich müßt noch was berechnen wenn Montag ist, am Dienstag müste ich mit
einem anderen Wert Rechnen. Geht das mit der Wahl Function?

Gruß Thomas

Post by Claus Busch
Hallo Thomas,

Claus Busch

2006-08-05 18:11:36 UTC

Permalink

Hallo Thomas,

Post by Thomas
das ist ein guter ansatz von Dir danke erst mal.
Aber ich müßt noch was berechnen wenn Montag ist, am Dienstag müste ich mit
einem anderen Wert Rechnen. Geht das mit der Wahl Function?

ich weiß jetzt nicht genau was du da machen willst. Aber wegen der
Wochentage kannst du doch auf das Datum zurückgreifen. In deiner Zelle, in
der du berechnen willst, könntest du schreiben:
=WENN(WOCHENTAG(A17;2)=1; Deine Formel mit dem Montagswert;
WENN(WOCHENTAG(A17;2)=2;Deine Formel mit dem Dienstagswert;Sonst_Bedingung)
oder wenn du von der Spalte mit den Wochentagen ausgehen willst:
WENN(F17="MONTAG";Formel mit Montagswert;WENN(F17="DIENSTAG";Formel mit
Dienstagswert;Sonst_Bedingung)

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas

2006-08-06 13:18:01 UTC

Permalink

Hallo Claus,

Also ich hab eine Zeiterfassung mit Excel gemacht die ja auch Funktioniert.
Das mit dem Berechnen ist so, in der Spalte G werden meine Überstunden
berechnet. Prüfe ich mit der WENN Funktion
WENN(WOCHENTAG(A17)=2;F17-Montag;Sonst) Wenn das Datum in der Spalte A Ein
Montag ist soll mir das Programm meine Arbeitszeit die in der Spalte F steht
mit einem Wert der auf einem anderen Tabellenplatt (Montag) steht abziehen.
Das macht das Programm auch einwandfrei für die Ganze Woche. Jetzt kommt das
Problem in der Spalte B möchte ich ein Ü eingeben für Überstunden dann soll
mir das Programm in der Spalte F meine regulären Arbeitszeit als negativer
Wert anzeigen. Da ich aber schon 7 Wenn Funktionen in der Zelle habe kann ich
das nicht mehr Prüfen ob in der Spalte B ein Ü steht. Deshalb wollte ich
nachfragen wie man das in VBA Lösen kann oder gibt es da noch eine andere
Funktion in Excel wie ich das Problem Lösen kann.

Ich danke dir für deine Hilfe schon mal im voraus.

Gruß
Thomas

Post by Claus Busch
Hallo Thomas,

ich weiß jetzt nicht genau was du da machen willst. Aber wegen der
Wochentage kannst du doch auf das Datum zurückgreifen. In deiner Zelle, in
=WENN(WOCHENTAG(A17;2)=1; Deine Formel mit dem Montagswert;
WENN(WOCHENTAG(A17;2)=2;Deine Formel mit dem Dienstagswert;Sonst_Bedingung)
WENN(F17="MONTAG";Formel mit Montagswert;WENN(F17="DIENSTAG";Formel mit
Dienstagswert;Sonst_Bedingung)
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Claus Busch

2006-08-06 13:30:32 UTC

Permalink

Hallo Thoams,

Post by Thomas
Also ich hab eine Zeiterfassung mit Excel gemacht die ja auch Funktioniert.
Das mit dem Berechnen ist so, in der Spalte G werden meine Überstunden
berechnet. Prüfe ich mit der WENN Funktion
WENN(WOCHENTAG(A17)=2;F17-Montag;Sonst) Wenn das Datum in der Spalte A Ein
Montag ist soll mir das Programm meine Arbeitszeit die in der Spalte F steht
mit einem Wert der auf einem anderen Tabellenplatt (Montag) steht abziehen.
Das macht das Programm auch einwandfrei für die Ganze Woche. Jetzt kommt das
Problem in der Spalte B möchte ich ein Ü eingeben für Überstunden dann soll
mir das Programm in der Spalte F meine regulären Arbeitszeit als negativer
Wert anzeigen. Da ich aber schon 7 Wenn Funktionen in der Zelle habe kann ich
das nicht mehr Prüfen ob in der Spalte B ein Ü steht. Deshalb wollte ich
nachfragen wie man das in VBA Lösen kann oder gibt es da noch eine andere
Funktion in Excel wie ich das Problem Lösen kann.

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas

2006-08-06 15:50:02 UTC

Permalink

Hallo Claus,

die Formel steht in meinem ersten beitrag.
Nur ohne die Ü Abfrage hier aber noch mal die Formel

=WENN(F17="";"";WENN(WOCHENTAG(A17)=2;F17-Montag;WENN(WOCHENTAG(A17)=3;F17-Dienstag;WENN(WOCHENTAG(A17)=4;F17-Mittwoch;WENN(WOCHENTAG(A17)=5;F17-Donnerstag;WENN(WOCHENTAG(A17)=6;F17-Freitag;WENN(WOCHENTAG(A17)=7;F17-Samstag;F17-Sonntag)))))))

Gruß
Thomas

Post by Claus Busch
Hallo Thoams,

mit Text kann man nicht rechnen. F17 - Montag ergibt also keinen Sinn.
Deine Formel scheint anders zu lauten. Poste sie mal, dann kann man die
Wenn-Verschachtelung bestimmt vereinfachen oder ganz ersetzen und dein "Ü"
einbauen.
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Hubert Daubmeier

2006-08-06 16:33:59 UTC

Permalink

"Thomas" schrieb

Post by Thomas
die Formel steht in meinem ersten beitrag.
Nur ohne die Ü Abfrage hier aber noch mal die Formel
=WENN(F17="";"";WENN(WOCHENTAG(A17)=2;F17-Montag;WENN(WOCHENTAG(A17)=3;F17-Dienstag;WENN(WOCHENTAG(A17)=4;F17-Mittwoch;WENN(WOCHENTAG(A17)=5;F17-Donnerstag;WENN(WOCHENTAG(A17)=6;F17-Freitag;WENN(WOCHENTAG(A17)=7;F17-Samstag;F17-Sonntag)))))))

Ich nehme mal an, dass die Namen Montag, Dienstag etc. festgelegt sind und
irgendwelche Zahlen enthalten. Anders würde es keinen Sinn machen. Nehmen
wir ferner an, der Name Montag wäre mit 1 belegt, Dienstag mit 2, und so
fort, dann sieht das Ganze aus, als ob immer auf den Sonntag oder Montag
zurückgerechnet wird. Was sich dann vereinfachen lässt indem ich einfach
den Wochentag abziehe. Ob als Formel oder VBA code dürfte an der Stelle
wurscht sein

Ansonsten habe ich mir die Problemstellung jetzt zwei oder dreimal
durchgelesen und ehrlich gesagt ich werde nicht schlau draus - ausser eben
Du willst die Formel vereinfachen (siehe oben).

--
Viele Grüße
Hubert Daubmeier

Claus Busch

2006-08-06 16:37:52 UTC

Permalink

Hallo Thomas,

um die Formel zu vereinfachen und das Ü einzubauen, müsste ich wissen, was
Montag usw bedeutet. Sind das jeden Tag andere Werte oder variieren die nur
für das Wochenende? Wo kommen die Werte her? Sind das benamte Bereiche?
Vielleicht kannst du mir ja auch eine Testversion mailen.

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas

2006-08-06 16:58:01 UTC

Permalink

Hallo Claus

Also Montag, Dienstag, … Sonntag ist ein Namens bereich auch einem anderem
Tabellenblatt. Hinter jedem Namen steht eine Uhrzeit für Montag 9:00 bei
Dienstag 8:00
Und so weiter. Das ist die reguläre Arbeitszeit die ich an diesem Tag
Arbeiten muss.
In der Spalte F steht die tatsächliche Zeit die ich gearbeitet habe, z.B.
Montag Spalte F 9.30
Und in der Spalte G steht dann also 0:30 wo ich länger gearbeitet habe.
Wenn ich einen Tag frei machen will und zwar mit Überstunden trage ich in
der Spalte B ein Ü ein. Dann sollte in der Spalte G automatisch für Montag
-9:00 stehen. Genau da hab ich das Problem. Ich hoffe das ich das jetzt
richtig erklärt habe.

Gruß
Thomas

Also Montag, Dienstag,... Sonntag ist ein Namensbereich auf einem

Post by Claus Busch
Hallo Thomas,

Claus Busch

2006-08-06 17:07:28 UTC

Permalink

Hallo Thomas,

Also Montag, Dienstag, ? Sonntag ist ein Namens bereich auch einem anderem
Tabellenblatt. Hinter jedem Namen steht eine Uhrzeit für Montag 9:00 bei
Dienstag 8:00
Und so weiter. Das ist die reguläre Arbeitszeit die ich an diesem Tag
Arbeiten muss.
In der Spalte F steht die tatsächliche Zeit die ich gearbeitet habe, z.B.
Montag Spalte F 9.30
Und in der Spalte G steht dann also 0:30 wo ich länger gearbeitet habe.
Wenn ich einen Tag frei machen will und zwar mit Überstunden trage ich in
der Spalte B ein Ü ein. Dann sollte in der Spalte G automatisch für Montag
-9:00 stehen. Genau da hab ich das Problem. Ich hoffe das ich das jetzt
richtig erklärt habe.

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas

2006-08-06 17:22:01 UTC

Permalink

Hallo Claus,

Da gebe ich dir recht, möchte es aber wenn möglich flexibel bleiben. Da ich
vier verschiedene Arbeitszeiten in der Woche habe.

Gruß
Thomas

Post by Claus Busch
Hallo Thomas,

gerade um diese Bereiche geht es mir ja. Ich glaube doch nicht, dass du an
allen 7 Tagen eine andere Sollarbeitszeit hast. Da könnte man mehrere
Wochentage zusammenfassen und damit die Formel vereinfachen und auch dein Ü
einbauen.
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Claus Busch

2006-08-06 21:55:04 UTC

Permalink

Hallo Thomas,

Post by Thomas
Da gebe ich dir recht, möchte es aber wenn möglich flexibel bleiben. Da ich
vier verschiedene Arbeitszeiten in der Woche habe.

da du es ja so flexibel halten möchtest, kommst du um diese
Verschachtelungen nicht herum. Aber mit einer Hilfspalte wird es einfacher
und übersichtlicher. Das Ü trägst du statt Arbeitsbeginn ein. Die
Arbeitszeit, die Sollzeit und die Überstunden sind dezimal gehalten, damit
du auch negative Werte darstellen kannst. Schau dazu mal hier rein:
http://www.claus-busch.de/Arbeitszeit2.xls

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Thomas

2006-08-07 19:43:01 UTC

Permalink

Hallo Claus

ich danke dir für das Beispiel, hast mir sehr geholfen

Gruß
Thomas

Post by Claus Busch
Hallo Thomas,

Post by Thomas
Da gebe ich dir recht, möchte es aber wenn möglich flexibel bleiben. Da ich
vier verschiedene Arbeitszeiten in der Woche habe.

da du es ja so flexibel halten möchtest, kommst du um diese
Verschachtelungen nicht herum. Aber mit einer Hilfspalte wird es einfacher
und übersichtlicher. Das Ü trägst du statt Arbeitsbeginn ein. Die
Arbeitszeit, die Sollzeit und die Überstunden sind dezimal gehalten, damit
http://www.claus-busch.de/Arbeitszeit2.xls
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Claus Busch

2006-08-07 19:50:48 UTC

Permalink

Hallo Thomas,

Post by Thomas
ich danke dir für das Beispiel, hast mir sehr geholfen

keine Ursache. Freut mich, wenn ich helfen konnte. Danke für die
Rückmeldung.

--
Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

Fredi Janssen

2006-08-04 21:10:05 UTC

Permalink

Post by Thomas
Hallo NG,
ich hab mir ein Arbeitszeit Konto gebastelt, das auch funktioniert. Möchte
jetzt nur noch einige Verbesserungen vornehmen. In der Spalte A habe ich das
Datum des jeweiligen Monats vom 1. bis zum 31. Nun möchte ich in einer
weiteren Spalte F prüfen was für ein Tag an dem Datum ist und zwar mit der
Wochentag Funktion die auch funktionier. Habe 7 Wenn Funktionen ineinander
=WENN(F17="";"";WENN(WOCHENTAG(A17)=2;F17-Montag;WENN(WOCHENTAG(A17)=3;F17-Dienstag;WENN(WOCHENTAG(A17)=4;F17-Mittwoch;WENN(WOCHENTAG(A17)=5;F17-Donnerstag;WENN(WOCHENTAG(A17)=6;F17-Freitag;WENN(WOCHENTAG(A17)=7;F17-Samstag;F17-Sonntag)))))))
kann mir einer sagen wie ich das Ganze in VBA lösen kann. Wäre euch sehr
dankbar, oder gibt es noch eine andere Möglichkeit wie man das elegant lösen
kann.
Ich dank euch schon im voraus für eure Hilfe
Gruß
Thomas

formatier deine Datumspalte einfach
TT.MM.JJJJ* TTT
Ergebnis für z.B. 1.August ist 01.08.2006 Di
der Wochentag wird immer ganz rechts in der Zelle angezeigt
achte auf das Leerzeichen hinter *

Gruß
Fredi Janssen

--
WinXp mit SP2 - Office2003
Reply-To E-Mail (Rot 13 encrypted) ***@tzk.qr

Newsraeder - Dialog 2.0.15.1 (Beta 38)
http://www.40tude.com/files/