Hallo,
wert=inputbox("Wert?")
Range("A1")=wert
Gruß
Rudi Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Zelle über Inputbox füllen
25.03.2008 16:17:00
joergi78
was muss ich nehmen, wenn der Zelleninhalt ein Datum ist?
AW: Zelle über Inputbox füllen
25.03.2008 16:41:00
Andi
Hi,
wenn Du die Eingabe eines Datums erzwingen willst, dann zB so:
With Sheets(1).Range("A1")
Do While Not IsDate(.Value)
.Value = InputBox("Bitte Datum eingeben:")
Loop
End With
Schönen Gruß,
Andi
AW: Zelle über Inputbox füllen
26.03.2008 15:07:35
joergi78
das klappt ja so schon supi, danke aber das Datum übernimmt nicht das Zellenformat.
Geht das, dass ich z.B. 1.1 schreibe und er dann in die Zelle 01. Januar 2008 schreibt?
das wäre am besten.
danke schon mal gruß joergi78
Anzeige
AW: Zelle über Inputbox füllen
25.03.2008 16:05:37
Andi
Bitte nicht gleich nach ner 1/4-Stunde nen neuen thread aufmachen, Du bist nicht der einzige der Hilfe braucht. Und Deine Frage wäre mit online-Hilfe und/oder Archiv auch ohne weiters zu lösen gewesen.
Nichts desto trotz:
Sheets(1).Range("A1").Value = InputBox("Bitte Wert eingeben:")
Schönen gruß,
Andi