Eingabe Datum und Weiterverwendung

Forumthread: Eingabe Datum und Weiterverwendung

03.04.2009 11:34:35

pbaer007

Hallo,
Ein Macro soll den User nach einem Datum fragen. Danach wird ein File durch das Macro geöffnet und dort soll das Datum dann in einer bestimmten Zelle (B1) abgelegt werden.
Wollte das mit einer Inputbox machen, komme aber überhaupt nicht mit der Formatierung zurecht.
Wenn jetzt z.Bsp. in der Box 310309 eingegeben wird, kommt in der Zelle 05.08.2049 raus.
Irgend einen Tip?
VG
pbaer007

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Eingabe Datum und Weiterverwendung

03.04.2009 11:46:37

Gilligan
AW: Eingabe Datum und Weiterverwendung

03.04.2009 13:12:22

pbaer007
AW: Eingabe Datum und Weiterverwendung

03.04.2009 11:49:25

Gilligan

AW: Eingabe Datum und Weiterverwendung

03.04.2009 11:46:37

Gilligan

Format-Funktion (Beispiel)
In diesem Beispiel werden verschiedene Einsatzmöglichkeiten der Format-Funktion zur Formatierung von Werten unter Verwendung von integrierten und benutzerdefinierten Formaten dargestellt. Die tatsächliche Ausgabe bei der Verwendung des Datum-Trennzeichens (/), Zeit-Trennzeichens (:) und der AM-/PM-Zeichenfolge hängt von dem aktuellen Gebietsschema Ihres Systems ab. Wenn Datums- oder Zeitangaben in der Entwicklungsumgebung gemacht werden, dann wird das kurze Datums- oder Zeitformat des Code-Gebietsschemas verwendet. Werden diese Angaben zur Laufzeit dargestellt, wird das kurze Datums- oder Zeitformat des System-Gebietsschemas verwendet. Dieses kann sich von dem Code-Gebietsschema unterscheiden. Hier wird "Deutschland" und "Deutsch" angenommen.
Zeit1 und Datum1 werden in der Entwicklungsumgebung mit den aktuellen Systemeinstellungen für das kurze Datums- und Zeitformat angezeigt.
Dim Zeit1, Datum1, ZF1
Zeit1 = #17:04:23#
Datum1 = #January 27, 1993#
' Aktuelle Systemzeit im langen Zeitformat des Systems bestimmen.
ZF1 = Format(Time, "Long Time")
' Aktuelles Systemdatum im langen Datumsformat des Systems bestimmen.
ZF1 = Format(Date, "Long Date")
ZF1 = Format(Zeit1, "h:m:s") ' Liefert "17:4:23".
ZF1 = Format(Zeit1, "hh:mm:ss AMPM") ' Liefert "17:04:23".
ZF1 = Format(Datum1, "dddd, mmm d yyyy") ' Liefert "Mittwoch,
' 27. Januar 1993".
' Wird kein Format angegeben, so wird eine Zeichenfolge geliefert.
ZF1 = Format(23) ' Liefert "23".
' Benutzerdefinierte Formate.
ZF1 = Format(5459.4, "##,##0.00") ' Liefert "5.459,40".
ZF1 = Format(334.9, "###0.00") ' Liefert "334,90".
ZF1 = Format(5, "0.00%") ' Liefert "500,00%".
ZF1 = Format("BANANE", " ZF1 = Format("birne", ">") ' Liefert "BIRNE".

AW: Eingabe Datum und Weiterverwendung

03.04.2009 13:12:22

pbaer007

DANKE,
manchmal findet man die leichtesten Sachen nicht......
Funktioniert
pbaer007

AW: Eingabe Datum und Weiterverwendung

03.04.2009 11:49:25

Gilligan

IsDate-Funktion
Gibt einen Wert vom Typ Boolean zurück, der angibt, ob ein Ausdruck in ein Datum umgewandelt werden kann.
Syntax
IsDate(Ausdruck)
Das erforderliche Argument Ausdruck ist ein Wert vom Typ Variant und enthält einen Datumsausdruck oder einen Zeichenfolgenausdruck, der als Datum oder Uhrzeit interpretiert werden kann.
Bemerkungen
IsDate gibt den Wert True zurück, wenn der Ausdruck ein Datum ist oder als ein gültiges Datum erkannt werden kann. Andernfalls wird False zurückgegeben. In Microsoft Windows liegen gültige Datumswerte im Bereich vom 1. Januar 100 n.Chr bis 31. Dezember 9999 n.Chr. Auf anderen Betriebssystemen können andere Bereiche gelten.

Beliebteste Forumthreads (12 Monate)

Eingabe Datum und Weiterverwendung

Forumthread: Eingabe Datum und Weiterverwendung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread