Input Box

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Input Box von: Gregor
Geschrieben am: 04.04.2005 08:03:35

Hallo zusammen

Mit folgender Prozedur setze ich mit der Input Box eine Datum. Das funktioniert solange, bis der User auf den Bottum "Abbrechen" klickt. Bei Abbrechen erfolgt eine Fehlermeldung.

Wie kann/muss ich den Buttom "Abbrechen" auffangen.


Sub Datum_setzen()
Dim DatumNeu As Date
Status = Cells(ActiveCell.Row, 26)
Select Case Status
Case "Mkeit"
    Spalte = 28
    DatumAlt = Cells(ActiveCell.Row, Spalte)
    If DatumAlt = "" Then
        DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
        Title:="  Eingabe Datum Machbarkeitsstudie", _
        Default:=Date)
    Else
        DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
        Title:="  Eingabe Datum Machbarkeitsstudie", _
        Default:=DatumAlt)
    End If
    Cells(ActiveCell.Row, Spalte) = DatumNeu
    
Case "CRM"
    Spalte = 30
    DatumAlt = Cells(ActiveCell.Row, Spalte)
    If DatumAlt = "" Then
        DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
        Title:="  Eingabe Datum Eingabe I-CRM-P", _
        Default:=Date)
    Else
        DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
        Title:="  Eingabe Datum Eingabe I-CRM-P", _
        Default:=DatumAlt)
        Spalte = 30
    End If
    Cells(ActiveCell.Row, Spalte) = DatumNeu
    
Case "MIP"
    Spalte = 31
    DatumAlt = Cells(ActiveCell.Row, Spalte)
    If DatumAlt = "" Then
        DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
        Title:="  Eingabe Datum Aufnahme MIP-I", _
        Default:=Date)
    Else
        DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
        Title:="  Eingabe Datum Aufnahme MIP-I", _
        Default:=DatumAlt)
    End If
    Cells(ActiveCell.Row, Spalte) = DatumNeu
Case Else
End Select
End Sub


Vielen Dank
Gregor
Bild


Betrifft: AW: Input Box von: WernerB.
Geschrieben am: 04.04.2005 08:33:36

Hallo Gregor,

bei Abbruch und/oder keiner Eingabe gibt die Inputbox immer "" zurück.
Übrigens: Der Rückgabewert der Inputbox erfolgt immer im String-Format (auch wenn Du die Rückgabevariable als "Date" deklarierst).


DatumNeu = InputBox(Prompt:="Geben Sie das gewünschte Datum ein", _
Title:=" Eingabe Datum Machbarkeitsstudie", _
Default:=Date)
If DatumNeu = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", 16, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If


Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


Bild


Betrifft: AW: Input Box von: Gregor
Geschrieben am: 04.04.2005 10:30:59

Hallo Werner

Vielen Dank für deine wertvolle Hilfe. Damit klappt es bestens.

Gruss Gregor


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Variable"