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"