Datum-Problem Dringend!!!

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


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Datum-Problem Dringend!!!
von: Nik
Geschrieben am: 13.05.2002 - 15:46:48

Hallo

Eine Makro geschrieben, in welchem ein Datum per InputForm eingegeben kann. Dieses Datum wird anschliessend für verschiedene Berechnungen benützt. Mein Problem ist nun, dass das Makro reibungslos läuft, wenn die Datumseinstellung des Computers auf German eingestellt ist.

Ist hingegen das Computer-Datum auf Englisch eingestellt (zb. 12.31.2001 = 31.Dez 01) funktioniert das Makro nicht.

Wie ist es möglich, das Datum beim Start des Makros auf German festzulegen und anschliessend beim Schliessen wieder rückgängig zu machen, falls das Datum nicht auf German eingestellt war?

Vielen Dank für die prompte Antwort.

Gruss Nik


nach oben   nach unten

Re: Datum-Problem Dringend!!!
von: GraFri
Geschrieben am: 13.05.2002 - 17:33:30

Hallo

Vielleicht hiklft dir das weiter. Die Anweisung 'CDate' wandelt
das eingegebene Datum in die länderspezifische Form um.


' Eingegebenes Datum in deutscher Form ausgeben, auch wenn
' es in englischer Schreibweise eingegeben wurde (12.31.2001)
Sub Datum_eingeben()
Dim Datum

Datum = InputBox("Bitte geben Sie das Beginn-Datum ein", _
                 "Datum eingeben", "31.12.2001")

Datum = CDate(Datum)

MsgBox Datum
End Sub

mfg, GraFri


nach oben   nach unten

Re: Datum-Problem Dringend!!!
von: Nik
Geschrieben am: 14.05.2002 - 14:22:52

Vielen Dank

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Import von Excel-Daten in Access-Tabelle"