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

Eingabewert in InputBox in einer zelle speichern

Betrifft: Eingabewert in InputBox in einer zelle speichern von: JörgR.
Geschrieben am: 15.09.2004 11:07:09

Hallo zusammen!

Kann mir jemand einen Tipp geben?

In einer kleinen VBA - Routine wird ein Wert per Inputbox abgefragt, später
mittels MsgBox ausgegeben und genau dieser Wert soll gleichzeitig in eine
Zelle geschrieben werden. ( automatisch ;-) )

Vielen Dank.

JörgR.

  


Betrifft: AW: Eingabewert in InputBox in einer zelle speichern von: Torsten K
Geschrieben am: 15.09.2004 11:13:18



so gehts
worksheet(1).cells(1,1).value = wert aus inputbox


  


Betrifft: AW: Eingabewert in InputBox in einer zelle speichern von: JörgR.
Geschrieben am: 16.09.2004 12:59:55

Hallo zusammen,

vielen Dank vorerst an TorstenK. konnte ich leider nicht umsetzen.
"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?

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



 

Beiträge aus den Excel-Beispielen zum Thema "Eingabewert in InputBox in einer zelle speichern"