Datumsformat umstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
der Grund:
Ich habe ein Makro geschrieben für die Übernahme von Daten aus einer bereits bestehenden Datei.
Es geht noch immer um meinem Arbeitszeitnachweis.
Auf dem Tabellenblatt "Daten" befindet sich eine Zelle für die Eingabe des Geburtsdatums, das auf verschiedenen anderen Tabellen benötigt wird.
Alle betroffenenen Zellen sind formatiert als benutzerdefiniert mit "TT.MM.JJJJ".
Obwohl ich nach Kopieren der Daten aus der alten Datei ausschließlich die "Werte" in die Zelle auf "Daten" der neuen Datei einfüge und die Darstellung in dieser Zelle auch als "TT.MM.JJJJ" angezeigt werden nach Übernahme, werden die mit dieser Zelle auf anderen Tabellenblättern verknüpften Daten ausschließlich im Format "TT.MM.JJ" dargestellt.
Abhilfe schafft hier nur die Umstellung des kurzen Datumsformats auf "TT.MM.JJJJ", wie ich leider feststellen musste.
Zu dem Hinweis mit den betrieblichen Umgebungen:
Es ist aus meiner Sicht völlig egal, was da vorgegeben ist. Zumindest für die aktuelle Sitzung lässt sich das Format über Systemsteuerung-Ländereinstellungen" verändern, wie ich feststellen konnte und dies auch mit normalen Userrechten. Ob das dauerhaft erhalten bleibt, habe ich nicht geprüft, weil unerheblich.
Hauptsache, die Werte werden während der aktuellen Sitzung korrekt angezeigt und auch korrekt gedruckt.
Das ist ja in Word genauso. Da benutze ich auch ein Autostartmakro, um mir meine Ablageordner für Dokumente, Vorlagen und Arbeitsgruppenvorlagen für die aktuelle Sitzung anzupassen. Hier weiß ich genau, dass bei Neuanmeldung eines Users "immer" die Grundeinstellungen geladen werden und trotzdem funktioniert das auf meine Art.
Geht das nun mit der Umstellung per Makro in Excel97 und wenn ja, wie?
Gruß, Wolfgang

Sub Change_Specific_RegKey() '(C) by Ramses Dim myWSH As Object, myReadRegKey As String Dim myRegResKey As String, myRegToWriteKey As String Set myWSH = CreateObject("WScript.Shell") 'Es muss auch der Unter-Eintrag im Key angegeben werden 'hier "Wert1" myReadRegKey = "HKEY_CURRENT_USER\Control Panel\International\sShortDate" myRegResKey = myWSH.regread(myReadRegKey) MsgBox "Aktueller Wert: " & myRegResKey myRegToWriteKey = "dd.MM.yyyy" myWSH.regWrite myReadRegKey, myRegToWriteKey End Sub

Hallo Rainer,
"Da hilft die Einstellung unter NT4 aber auch nichts, weil, wenn die Version stimmt, da immer noch das 2-stellige Format als Standard definiert ist."
Doch, das habe ich doch extra ausprobiert und zwar mit der Anmeldung eines Users mit stinknormalen Minimlarechten.
Stellt man über "Systemsteuerung-Ländereinstellung", auf der Registerkarte "Datum" das Kurze Datumsformat um, so erscheint auf den entsprechenden Tabellenblättern sofort das verknüpfte Datum im Format "TT.MM.JJJJ".
"Formatiere also die verknüpften Zellen der Mappe und du hast dein Ziel erreicht"
Immer, wenn ich aus der Original-Mappe eine neue Mappe erstelle und die Datenübernahme aktiviere, verlieren die Tebellenzellen auf den verknüpten Tabellen ihr Format und da erscheint das Datum im Format "TT.MM.JJ", obwohl diese Tabellen von der Datenübernahme gar nicht betroffen sind. Will heißen, die Blätter werden in der neuen Mappe gar nicht verändert. Da werden gar keine Daten aus der alten Mappe eingelesen.
Und: Die Zellen sind in der originalen Mappe benutzerdefiniert formatiert. Ruft man in der neuen Mappe für eine solche Zelle die Formateinstellungen auf, so sind die eben nicht mehr "benutzerdefiniert", sondern einfach als Datum, jedoch eben "TT.MM.JJ", weil es bei Datum das Format "TT.MM.JJJJ" gar nicht zu geben scheint.
"Dein Frage klingt etwas gereizt,... hast du ein Problem ?"
Quatsch, ich bin nicht gereizt. Bin ja für jede Lösung dankbar, die mir weiter hilft. Ist ja auch erst Samstag und habe noch Zeit bis Montag Früh. Ich hatte nur eine Lösung erwartet.
Danke für dein Lösungsangebot. Das werde ich mal ausprobieren.
Übrigens: wegen "Auf eigene Gefahr"
Was kann denn eigentlich Schiefgehen dabei?
Gruß, Wolfgang

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread