Office: Die Aktion von F2 und Enter als Makro ohne Sendkeys

Hallo Community,

ich habe das Problem, dass in Zeitpunkte mit Datum und Zeit inkl. Millisekunden habe und mit einer anderen Datenquelle vergleichen muss. Durch das Aufbereiten der Daten aktualisiert Excel über VBA das Format allerdings nicht. Das Datumsformat wird leider von einer anderen Software vorgegeben...

Beispielsweise steht in einer Zelle:
04.09.2019 03:11:47,235

Es sollte aber stehen:
19.09.04 03:11:47,235

Wenn man in die Zelle klickt (oder F2) und danach mit Enter bestätigt springt das Format um. Welche Möglichkeit gibt es, diesen Schritt ohne SendKeys (weil in mehreren Userforms drin) zu lösen?
Alle Varianten mit .cells.formula = cells.formula bzw. value habe ich versucht und die klappen nicht.

Werden die Daten mittels Text in Spalten manuell "aufgeteilt" aktualisiert sich das Format, wenn ich es als Makro mache, dann wiederum nicht.

Hat jemand von euch einen Lösungsvorschlag, für dieses etwas komplexere Problem?

LG

:)

 

Hallo,

vielleicht so:
Range("E1").NumberFormat = "yy.mm.dd hh:mm:ss.000"

Gruß
Aloys

 

Danke für die Antwort, das klappt leider nicht. Die angezeigten Werte in der Zelle aktualisiert er danach leider auch erst wenn man sie aktiviert und bestätigt *frown.gif*

 

Hallo,

Das liegt im Wesen eines VBA-Codes; Du mußt ihn ausführen, um das gewünschte Ergebnis zu erzielen, oder ein Ereignis wie zB Worksheet_Change nutzen.

Gruß
Aloys

 

Im Anhang ist die Situation abgebildet. Hat da jemand eine praktikable Lösung?
Am Bild ist nochmal der IST und Soll Zustand abgebildet. In den Zellen steht genau der gleich Inhalt, sie haben auch das gleiche Format. Das Format aktualisiert sich erst nach öffnen der Zellbearbeitung (Doppelklick oder F2) und Bestätigen des Zellinhalts (Enter).



@aloys78: Der Code wird ja ausgeführt und schreibt auch brav Werte ins Feld, allerdings lässt sich deren Format (welches für nachfolgende Suchoperationen benötigt wird) nicht umstellen, bevor diese Zelle nicht angeklickt und bestätigt wurde. In der Datei im Anhang kannst du es selber probieren.

 

Hallo,

aus meiner VBA-Anfangszeit. Das Makro arbeitet mit der Spalte, in der die Zelle aktiv ist. Würde das heute zwar etwas anders umsetzen, aber es läuft. Kannst Dir ja anpassen, wenn Du es anders benötigst. Leere Zellen und Zellen die kein Datum enthalten werden ausgelassen:

Code:

Viele Grüße,

Zwenn

 

Ich habe jetzt eine Lösung gefunden die klappt:

Jede Zeile einmal mit
Worksheets("Backend").Cells(i, 6).Value = CDate(Worksheets("Backend").Cells(i, 6).Value)
korregieren.

Der ausgegebene String wert wird dann aktualisiert und als Datum erkannt. Lustigerweise funktioniert es vorher nicht mit CDbl, aber danach schon.

Danke an alle die es versucht haben!

LG