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