Inputbox - Datumswert

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


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Inputbox - Datumswert
von: Smoky
Geschrieben am: 02.07.2002 - 16:40:18

Hallo, zusammen.
Folgendes Problem.
Cells(7, 4) = InputBox("Bitte Anfangsdatum eingeben:")
Das jetzt in Cells(7, 4) abgelegtes Datum, läßt sich nicht mehr in Dezimalzahlen formatieren. Dies müßte ich aber haben, um mit den Wert weiter arbeiten zu können.

Gruß
Smoky


nach oben   nach unten

Re: Inputbox - Datumswert
von: Hans W. Hofmann
Geschrieben am: 02.07.2002 - 17:59:27

Inputbox hat meines Wissens Optionen mit denen man den Datentyp der Eingabe festlegen kann -> OH

Gruß HW


nach oben   nach unten

Re: Inputbox - Datumswert
von: Rolf, Lgh.
Geschrieben am: 02.07.2002 - 18:00:52

Hallo Smoky,
vielleicht hilft Dir das weiter (Beispiel aus Hans's xlTutorial - http://www.excel-tutorial.de/ -):

Sub SetDefault()
  Dim sTxt As String, sPrompt As String, sDefault As String
  sPrompt = "Eingangsdatum eingeben:"
  sDefault = Format(Date - 3, "dd.mm.yyyy")
  sTxt = InputBox(prompt:=sPrompt, Default:=sDefault)
  On Error GoTo ERRORHANDLER
  MsgBox CDate(sTxt)
  Range("A1") = CDate(sTxt)
  Exit Sub
ERRORHANDLER:
  MsgBox "Kein gültiges Datumsformat!"
End Sub

Gruß Rolf
nach oben   nach unten

Re: Inputbox - Datumswert
von: L.Vira
Geschrieben am: 03.07.2002 - 01:34:16

Nimm Application.InputBox, da kannst du einen datentyp vorgeben.

nach oben   nach unten

Re: Inputbox - Datumswert
von: Smoky
Geschrieben am: 03.07.2002 - 11:00:17

Danke für eure Hilfe,
es funktioniert prima!
Smoky

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Inputbox - Datumswert"