Startseite

Datum und Uhrzeit aus Zellen fügen

Gelegentlich findet man Angaben über Datum und Uhrzeit in der unten abgebildeten Form. Mein kleines Makro fügt die einzelnen Bestandteile zu einem Datumformat zusammen. Bewußt habe ich im Beispiel Text (Zeile 2) und Zahlenformate gemischt, um zu zeigen, daß das Makro beides verarbeiten kann.
Hier das Makro zum Kopieren:
Sub datum_fügen()
' Fügt Datum und Uhrzeit aus einzelnen Zellinhalten
' Klaus-Dieter Oppermann
' http://www.klaus-dieter-2000.de
Dim dat As Date                 ' Variable deklarieren
z = 2                           ' Startzeile für Schleife (hier 2)
Do While Cells(z, 1) <> ""      ' Schleifenbedingung
    dat = Cells(z, 3) & "." & Cells(z, 2) & "." & Cells(z, 1) _
    & " " & Cells(z, 4) & ":" & Cells(z, 5) & ":" & Cells(z, 6) ' Zellinhalte zusammenfügen
    Cells(z, 7).NumberFormat = "dd/mm/yy hh:mm:ss"              ' Ausgabeformat definieren
    Cells(z, 7) = dat                                           ' Ergebnis in neue Zelle schreiben
z = z + 1                       ' Schleifenzähler um 1 erhöhen
Loop                            ' Wendepunkt für Schleife
End Sub                         ' Ende des Makros