Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

das Datum aller Dienstage im Monat

Betrifft: das Datum aller Dienstage im Monat von: Peter
Geschrieben am: 19.08.2004 20:29:36

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

  


Betrifft: Nachtrag-: das Datum aller Dienstage im Monat von: Peter
Geschrieben am: 19.08.2004 20:31:24

Wenn möglich per VBA.
Danke Peter


  


Betrifft: einfachste Lösung? von: ChrisL
Geschrieben am: 19.08.2004 20:47:13

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


  


Betrifft: AW: das Datum aller Dienstage im Monat von: Mike E.
Geschrieben am: 19.08.2004 21:08:07

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.


  


Betrifft: Mär, Mai, Okt, Dez? ;-) o.T. von: ChrisL
Geschrieben am: 19.08.2004 22:19:43

Gruss
Chris


  


Betrifft: AW: Mär, Mai, Okt, Dez? ;-) o.T. von: Mike E.
Geschrieben am: 19.08.2004 22:45:53

Hi Chris,

hab' ich mal wieder etwas nicht verstanden?

Es grüßt und fragt
der Mike


  


Betrifft: alles OK, sorry von: ChrisL
Geschrieben am: 20.08.2004 08:32:05

Hi Mike

Funktioniert einwandfrei, sorry für meine Zweifel ;-)

Es lag an meiner Ländereinstellung. Nichts für Ungut.

Gruss
Chris