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