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
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Ausgabewert einer MsgBox in Zelle speichern

Betrifft: Ausgabewert einer MsgBox in Zelle speichern von: JörgR.
Geschrieben am: 16.09.2004 17:48:48

Hallo zusammen,

komme bei folgendem Problem nicht weiter:

"MsgBox "Wochenbeginn lautet: Montag, " & d" und genau dieses "d" soll dann in
Zelle C95 auftauchen, mein nächstes Problem ist dann, es soll natürlich auch
ein Montag sein, ansonsten als "fehler" bewertet werden...

Wer hat eine Idee?

Vielen Dank.

Hier mein bisheriger Code:

Private Sub CommandButton6_Click()
Dim d As Date

On Error GoTo fehler

Beginn:
    d = InputBox("Geben Sie das Montagsdatum ein! (TT.MM.JJJJ)", _
     "Datum eingeben")
       
 If IsDate(d) And d >= "13.09.2004" Then
    Else
    MsgBox "Nur Eingaben ab 01.09.2004 möglich"
    GoTo Beginn
 End If

 d = d
    MsgBox "Wochenbeginn lautet: Montag, " & d
        
 Exit Sub

fehler:
    MsgBox "Sie haben kein gültiges Datum eingegeben!"
    GoTo Beginn

End Sub

  


Betrifft: AW: Ausgabewert einer MsgBox in Zelle speichern von: Roland Hochhäuser
Geschrieben am: 16.09.2004 18:08:22

Hallo JörgR

versuchs mal so:
Private Sub CommandButton6_Click()
Dim d As Date
On Error GoTo fehler
Beginn:
    d = InputBox("Geben Sie das Montagsdatum ein! (TT.MM.JJJJ)", _
     "Datum eingeben")
 If IsDate(d) And d >= "13.09.2004" Then
    Else
    MsgBox "Nur Eingaben ab 01.09.2004 möglich"
    GoTo Beginn
 End If
 Do Until Weekday(d) = vbMonday
 d = d - 1
 Loop
    MsgBox "Wochenbeginn lautet: Montag, " & d
    Range("C95").Value = d
    Exit Sub
fehler:
    MsgBox "Sie haben kein gültiges Datum eingegeben!"
    GoTo Beginn
End Sub


Gruß Roland


  


Betrifft: AW: Ausgabewert einer MsgBox in Zelle speichern von: JörgR.
Geschrieben am: 16.09.2004 18:23:07

Hallo Roland,

vielen Dank.

Gruß JörgR.


 

Beiträge aus den Excel-Beispielen zum Thema "Ausgabewert einer MsgBox in Zelle speichern"