Input Box
04.04.2005 08:03:35
Gregor
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