Office: (Office 2007) Inputbox Datum übergeben

Ich versuche per Inpubox ein datum in eine Zelle zu schreiben, kann mir jemand weiterhelfen?

Code:

:)

 

Hi,

Code:

 

Danke für Deinen Tipp, aber ich erhalte "Index außerhalb des gültigen Bereiches"
Hast Du einen Plan woraus diese Meldung resultieren könnte, denn die hatte ich vorher auch schon *rolleyes.gif*

 

Hi Franky,

ist der Tabellenblattname richtig geschrieben? Befindet sich die Tabelle in der aktiven Mappe? Mal zwei kurze Fragen zu Anfang.

 

Heyho Franky,

Edit: Da war ich wohl zu Langsam. Das was Jürgen schreibt kann natürlich sein. Ich würde mal Tippen, dass das ! bei
Code:

zu viel ist^^

Mein Post:

 

Das mit dem "!" war der richtige Weg, aber jetzt erhalte ich in der Zelle "P2" den Wert 1905, bei einer Eingabe von 2010 *entsetzt
Kann man das Format noch irgendwie zuweisen, dass Excel aus dem Jahr immer dann den 01.01. eines Jahres macht?

 

Hallo zusammen,

ich hätte zunächst eine Anmerkung zu Jürgens Code. Wenn du die Variable Inp_Jahr als Integer deklarierst, bekommst du einen Laufzeitfehler, wenn der Benutzer nicht numerische Zeichen in die Inputbox eingibt und dann versucht wird, diesen Inhalt in die Integervariable zu schreiben. Flämmchen hat darauf ja auch schon aufmerksam gemacht. Besser wäre es daher, die Variable als Variant zu deklarieren.

Dann noch eine Rückfrage an Franky. Du schreibst einerseits, dass du ein Datum eintragen willst, andererseits steht im Promt der Inputbox aber, dass ein Jahr eingegeben werden soll. Was denn nun? Abhängig davon müsste die Eingabe nämlich entweder auf IsNumeric oder IsDate geprüft werden.

Gruß Ingolf

 

Naja, ein Jahr ist für mich auch erstmal ein Datum und ich hatte das schlicht nicht bedacht.
Siehe meinen letzten Post, wenn mir aus der Eingabe 2010 dann ein 01.01.2010 gemacht wird, dann könnte ich damit leben.
Den Rest würde ich mir anschließend drumherumbauen. *wink.gif*

 

Hallo Franky,

sehe gerade erst deinen Post von 16:18 Uhr. Damit ist meine Rückfrage natürlich beantwortet. Die Codezeile könnte dann zum Beispiel so aussehen:
Code:

Gruß Ingolf

 

Hi Franky,

formatiere die Zelle P2 als Standard, sie ist noch als "JJJJ" formatiert!

 

Gruß Ingolf

Das war des Rätsels Lösung, ich schließe mich an mein vorhin geschriebenes an Danke! *winner

Stimmt, aber funktioniert nach dem 1. Antesten problemlos.

Aber das mit dem Testen auf IsNumeric und IsDate werde ich noch in Angriff nehmen.

Dank euch allen...*Smilie

 

Moim, Franky,

bei Verwendung von Application.Inputbox sollte man den Type auf jeden Fall angeben - ansonsten reicht aus Inputbox...

 

Danke, habe das jetzt auf Type:=1 gestellt und damit schonmal wieder eine weitere Fehlerquelle eliminiert.