Leider ist es so, daß eine zum Beispiel aus Access exportierte Tabelle im Bereich von Datumspalten das Datum im Textformat darstellt. Dieses Makro wandelt die Spalteninhalte wieder in ein Datum. Das wird mit einem simplen Trick erreicht, der Zellinhalt wird in eine Variable eingelesen, der in der DIM-Anweisung ein Datumformat zugewiesen ist. Danch schreibt man den Variableninhalt sofort in die gleiche Zelle zurück.
|
 |
Die beiden Bilder zeigen die Zellinhalte vor und nach der Bearbeitung mit dem Makro. Rechts oben in den Bildern kann man die Veränderung erkennen. Hier das Makro:
Sub Datumformat_erzeugen() Dim inh As Date ' erzeugt aus importierten Daten ein Exceltaugliches Datum ' geschrieben von Klaus-Dieter Oppermann ' Stand 26.09.1999 z = 2 ' Startzeile, hier 2 Do While Cells(z, 1) <> "" ' ermittelt Tabellenlänge Range("B" & z).Select ' zu wandelnde Spalte, hier 'B' inh = ActiveCell ' Zellinhalt an Variable übergeben ActiveCell.FormulaR1C1 = inh ' Variable zurückschreiben z = z + 1 ' Schleifenzähler Loop ' Wendepunkt für Schleife End Sub ' Ende des Makros