Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
n-ten Wochentag eines Monats in Textfeld berechnen
zurück: Datensatz mittels Kombinationsfeld öffnen weiter: Summe berechnen von einem monat Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Jean Jack G.
Gast


Verfasst am:
16. Aug 2010, 02:31
Rufname:

n-ten Wochentag eines Monats in Textfeld berechnen - n-ten Wochentag eines Monats in Textfeld berechnen

Nach oben
       Version: Office 2007

Hallo,

kann man in einem Textfeld per Steuerelementinhalt den n-ten Wochentag eines Monats berechnen?

In meinem Fall habe ich das Datum stets im Format 01.mm.jjjj in einem dedizierten Textfeld vorliegen, also z.B. der 01.08.2010.
Jetzt suche ich eine Formel, um ausgehend von diesem Datum(Monat/Jahr) z.B. alle Sonntage für den August 2010 zu berechnen:

01.08.2010(1)
08.08.2010(2)
15.08.2010(3)
22.08.2010(4)
29.08.2010(5)

Ideal wäre eine Formel, wo ich den gesuchten Wochentag als Zahl(Montag=1...Sonntag=7) einfügen kann und gleichzeitig durch einen Faktor(1-5) bestimmen kann, den wievielten Wochentag im Monat ich suche.

Ich habe schon einige Formeln ausprobiert, aber vieles war entweder für Excel mit 10.000 Zellbezügen oder schlicht und einfach fehlerhaft...eventuell hat ja hier jemand etwas funktionierendes in seiner "Formular-Schatz-Kiste" liegen... Smile

Gruß,

Jean
Gast



Verfasst am:
16. Aug 2010, 09:40
Rufname:

AW: n-ten Wochentag eines Monats in Textfeld berechnen - AW: n-ten Wochentag eines Monats in Textfeld berechnen

Nach oben
       Version: Office 2007

Probier mal:

datum geht als z.b. "01.08.2010" rein:

Code:
Dim dater As Date, runner As Integer, sonntag As Variant, datum as date
datum = "01.08.2010"
sonntag = Array(0, 0, 0, 0, 0, 0)
runner = 0
For x = 0 To 30
  dater = DateAdd("d", x, datum)
  If DatePart("w", dater, 1) = wochentag Then
  runner = runner + 1
  sonntag(runner) = DatePart("d", dater)
  End If
Next x


Dann sind im Array sonntag(x) die Sonntage (aber erst ab 1).

Möchte man stattdessen die Montage, dann muss die Zeile
Code:
If DatePart("w", dater, 1) = wochentag Then


auf
Code:
If DatePart("w", dater, 2) = wochentag Then


geändert werden.

Andere Wochentage entsprechend.
Jean Jack G.
Gast


Verfasst am:
16. Aug 2010, 21:12
Rufname:


AW: n-ten Wochentag eines Monats in Textfeld berechnen - AW: n-ten Wochentag eines Monats in Textfeld berechnen

Nach oben
       Version: Office 2007

Hallo Gast,

ich danke Dir vielmals für Deine Hilfe.

Gruß,
Jean Jack G.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Monats abfrage in Access zwecks Wartungsplan 3 Don Jice 3422 24. März 2006, 10:29
stpimi Monats abfrage in Access zwecks Wartungsplan
Keine neuen Beiträge Access Tabellen & Abfragen: #Name? in Textfeld 1 cmd 2136 02. Jan 2006, 21:20
jens05 #Name? in Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch bei Textfeld 3 F1 1616 01. Jan 2006, 15:19
F1 Zeilenumbruch bei Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Rabatt in Tabelle berechnen 1 domi1985 1705 23. Nov 2005, 09:08
blicki Rabatt in Tabelle berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der aktuellen Tage von Lebensjahren berechnen 2 grosseblaueaugen 5447 07. Sep 2005, 11:56
grosseblaueaugen Anzahl der aktuellen Tage von Lebensjahren berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: datum + 9 monate / tag am monats ende 4 Gast 599 18. Jun 2005, 07:55
Diepers datum + 9 monate / tag am monats ende
Keine neuen Beiträge Access Tabellen & Abfragen: Lagerbestand berechnen 6 Kuddel_HH 6258 20. Mai 2005, 12:04
DieterB Lagerbestand berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld Abfrage 2 Sandro 712 02. Feb 2005, 11:56
Sandro Textfeld Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Alter berechnen 4 didide 2439 15. Nov 2004, 18:44
Skogafoss Alter berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Bestand berechnen 4 Sachse 821 08. Nov 2004, 14:27
Sachse Bestand berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Textlänge in einem Textfeld 4 brauchehilfe@office 2425 30. Okt 2004, 00:05
brauchehilfe@office Textlänge in einem Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Alle Kundengeburtstage des Monats 'x' ermitteln. (Acess 2000 1 Hillbongo 679 25. Okt 2004, 12:48
STRIPPE Alle Kundengeburtstage des Monats 'x' ermitteln. (Acess 2000
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum