Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

das Datum aller Dienstage im Monat

das Datum aller Dienstage im Monat
19.08.2004 20:29:36
Peter
Hallo Forum,
ich habe eine Tabelle mit Monatnamen und Jahr benannt (z.B. Aug 04).
Ist es möglich daraus das Datum aller Dienstage in diesen Monat
zu erstellen?
Danke Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag-: das Datum aller Dienstage im Monat
19.08.2004 20:31:24
Peter
Wenn möglich per VBA.
Danke Peter
einfachste Lösung?
ChrisL
Hi Peter
Solltest die Frage als offen kennzeichnen, sonst geht der Beitrag rasch unter.
Ansonsten frage ich mich, wie man den String "Aug" am einfachsten in ein Datum resp. Nummer umwandelt. In VBA braust du die Monate grundsätzlich in englisch und ich vermute die sind in deutsch. Entweder wandelst du die Monate 'manuell' um z.B. mit Select Case oder dachte evtl. noch über eine Hilfszelle in der Tabelle z.B. mit .FormulaLocal in Zelle eintragen und wieder zurück holen. Hat jemand eine bessere Idee?
Der Rest ist dann vermutlich mit WeekDay lösbar.
Gruss
Chris
Anzeige
AW: das Datum aller Dienstage im Monat
19.08.2004 21:08:07
Mike
Hallo Peter,
sicher nicht die beste Lösung, aber es funktioniert.
Format der Inputbox: TT.MM.JJ

Sub Dienstag()
Dim Frage1 As Date
Frage1 = InputBox("Monat/Jahr")
Frage = Format(Frage1, "mm.yy")
On Error GoTo Fehler
For i = 1 To 31
Tag = Format(i, "00") & "." & Frage
If Format(Tag, "dddd") = "Dienstag" Then
MsgBox (Format(Tag, "dddd") & Chr(10) & Tag)
End If
Next i
Fehler:
Exit Sub
End Sub

Grüße
Mike E.
Mär, Mai, Okt, Dez? ;-) o.T.
ChrisL
Gruss
Chris
AW: Mär, Mai, Okt, Dez? ;-) o.T.
Mike
Hi Chris,
hab' ich mal wieder etwas nicht verstanden?
Es grüßt und fragt
der Mike
Anzeige
alles OK, sorry
ChrisL
Hi Mike
Funktioniert einwandfrei, sorry für meine Zweifel ;-)
Es lag an meiner Ländereinstellung. Nichts für Ungut.
Gruss
Chris

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige