Sub XX
Dim X as Variant
X=Split(Cells(2,5).Value," ")
Cells(2,7).Value=TimeSerial(Left(X(0),4),Mid(X(0),5,2),Right(X(0),2))
Cells(2,8).Value =DateSerial(Left(X(1),2),Mid(X(1),3,2),Right(X(1),2))
end Sub
Bitte geben Sie ein aussagekräftiges Thema an. Bitte geben Sie eine gültige Email Adresse ein!