Liebe/-r Experte/-in,
ich möchte in einer Zelle eines Arbeitsblattes etwas relativ einfaches (ohne VBA und ohne Hilfsspalten etc.) herausfinden,
und zwar z.B.:
wieviele Mittwoche gibt es noch zwischen heute und dem Monatsende?
bzw. für Monate, die noch nicht begonnen haben:
wieviele Mittwoche gibt es in einem bestimmten Monat?
Weiß jemand wie man das berechnen könnte?
Vielen Dank im voraus,
liebe Grüße,
Thomas
Hallo Thomas,
bin zur Zeit dabei meinen Labtop zu „reanimieren“ und auf auf dem antiken Desktop ist, wie ich gerade heraus gefunden habe, Office nicht mehr drauf. Eine pur theoretische Antwort kann ich Dir leider nicht in hilfreicher Qualität liefern. Sorry. Wünsche Dir viel Erfolg beim lösen des Problems, schönen Gruß, Justus
Hallo,
mit der Funktion wochentag(datum) bekommt man den Tag heraus (normalerweise 1 = Sonntag 7= Samstag).
Mit der Funktion Zählenwenn(bereich;suchkriterium) kann man z. B. alle 4en zählen (=Mittwoche) und du hast das, was du willst…
Gruß Werner
Grüezi Thomas
ich möchte in einer Zelle eines Arbeitsblattes etwas relativ
einfaches (ohne VBA und ohne Hilfsspalten etc.) herausfinden,
Das ist wirklich relativ zu verstehen 
und zwar z.B.:
wieviele Mittwoche gibt es noch zwischen heute und dem
Monatsende?
bzw. für Monate, die noch nicht begonnen haben:
wieviele Mittwoche gibt es in einem bestimmten Monat?Weiß jemand wie man das berechnen könnte?
Die folgende Formel lässt die Zelle leer, wenn das Monatsende in der Vergangenheit liegt.
Schreibe in eine Zelle in Spalte A jeweils den Monatsersten und dann in derselben Zeile die folgende Formel (einfach 1:1 kopieren):
=WENN(DATUM(JAHR(A1);MONAT(A1)+1;0)
Mit freundlichen Grüssen
Thomas Ramel
Hallo Thomas,
Wenn das Startdatum in Zelle A1 steht, dann lautet die Formel:
GANZZAHL((DATUM(JAHR(A1);MONAT(A1)+1;1)-1-A1-REST(3-WOCHENTAG(A1;2);7))/7)+1
Erklärung:
Der Datumswert des letzten Tags im Monat ist
DATUM(JAHR(A2);MONAT(A2)+1;1)-1
Davon zieht man den Datumswert des Starttags ab.
Davon zieht man die Tage zwischen dem Starttag und dem nächsten Mittwoch ab: REST(3-WOCHENTAG(A1;2);7)
Das Ergebnis, also die Tage zischen dem nächsten Mittwoch und dem Monatsletzten dividiert man durch 7 und rundet nach unten auf die nächste ganze Zahl
Zum ganzen zählt man noch 1 hinzu, um auch den Fall, dass der Starttag ein Mittwoch ist abzudecken.
Gruß
Rainer
Moin Thomas,
ohne VBA wirst Du das meines Erachtens nicht lösen können. Aber wenn Du diese kleine Funktion in Deiner Tabelle verwendest, kannst Du bestimmte Wochentage zählen:
Public Function AnzahlMittwoch(VonDatum As Date, BisDatum As Date, vbWochentag) As Long
Dim d As Date
Dim c As Long
For d = VonDatum To BisDatum
If Weekday(d, vbSunday) = vbWednesday Then c = c + 1
Next d
AnzahlMittwoch = c
End Function
In der Tabelle könnte das dann so aussehen, wobei die Funktion in der dritten Zelle so angegeben wird:
=AnzahlWochentag(VonDatum;BisDatum;Wochentag)
=AnzahlWochentag(A1;B1;4)
wobei für Wochentag 1=So, 2=Mo, 3=Di usw. gilt.
Datum von Datum bis Anz Mittwoch
01.09.2009 21.09.2009 3
Hilft Dir das weiter?
Gruß
(Woly)
Liebe/-r Experte/-in,
wieviele Mittwoche gibt es noch zwischen heute und dem
Monatsende?
bzw. für Monate, die noch nicht begonnen haben:
wieviele Mittwoche gibt es in einem bestimmten Monat?
Hmm, so auf die Schnelle fällt mir keine passende Formel ein, aber wenn du mit dem Referenzdatum zunächst prüfst, wieviele Tage noch bis zum Monatsende bleiben, diese Zahl durch sieben teilst müsstest du ber den Wochentag des Refernzdatums herausfinden, was du wissen willst.
Gruß
Roman
Hallo Justus,
danke für die Absicht, sie geht für’s Werk!
;o)
P.S.: Hab übrigens schon eine Lösung gefunden!
LG
Thomas
Hallo Werner,
aber dazu braucht man Hilfsspalten mit den Datümern, und das wollte ich vermeiden!
Hab’ übrigens schon eine Lösung gefunden!
Vielen Dank und
lG
Thomas
Grüezi Thomas,
Die folgende Formel lässt die Zelle leer, wenn das Monatsende
in der Vergangenheit liegt.
Schreibe in eine Zelle in Spalte A jeweils den Monatsersten
und dann in derselben Zeile die folgende Formel (einfach 1:1
kopieren):=WENN(DATUM(JAHR(A1);MONAT(A1)+1;0)
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Grüezi auch Thomas,
also wenn ich die Formel, so wie sie da steht, 1:1 eingebe, meckert Excel daß diese Formel einen Fehler enthält.
Da ich die Formel nicht wirklich durchschaue, kann ich sie auch nicht korrigieren.
Hab’ aber schon eine Lösung gefunden:
{=SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(B2&":"&B3));2)=C2)*1)+SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(B2&":"&B3));2)=C3)*1)}
Wenn in B2 der Monaterste steht und in B3 der Ultimo, funktioniert diese Matrixformel super!
Trotzdem Danke
und liebe Grüße,
Thomas
Hallo Rainer,
toll, sogar mit Erklärung!
Und funktionieren tut’s auch noch!
;o)
Ist es sehr schlimm, wenn ich die Formel trotzdem nicht (ganz) verstehe?
Aber ich freu’ mich, daß es neben der Lösung, die ich auch schon gefunden habe, noch eine zweite gibt!
Ich glaub’ in Excel gibt’s IMMER mindestens 2 Möglichkeiten, ans Ziel zu kommen!
;o)
Vielen Dank und liebe Grüße aus Wien,
Thomas
Moin Woly,
long time no hear!
;o)
Wußte gar nicht, daß Du mittlerweile VBA-Spezialist geworden bist!
;o)
Was mich angeht, so hasse ich VBA (weil ich’s nicht kann und auch nicht versteh’ und schon zu alt (und VIEL zu faul) bin, es noch zu lernen).
Aber zum Glück geht’s auch ohne VBA (siehe oben).
Trotzdem vielen Dank,
war nett zu sehen, daß Du noch in Sachen Excel unterwegs bist!
;o)
Liebe Grüße aus Wien,
Thomas
Hallo Roman,
vielen Dank, hab’ schon 2 Lösungen gefunden!
Liebe Grüße,
Thomas
Hallo,
es gibt in XL die Funktion „Nettoarbeitstage“. Dazu müssen über den AddInn-Manager jedoch die Anlyse funktionen aktiviert werden. Das sollte funktionieren.
Mit freundlichen Grüßen
Markus Körner
*****************************************
Kann man Adressen (auch im Team) aus Outlook/Exchange zur Adressierung von Briefen, Faxen oder beliebigen Word-Dokumenten verwenden?
Ja! --> www.dotoffice.de
Hallo Thomas,
entschuldige, dass ich mich jetzt erst melde - ich war im Urlaub.
Ist Deine Anfrage noch aktuell?
Gruß
Dieter
Hallo Dieter,
nein danke, hat sich erledigt (siehe oben).
LG
Thomas