Hi snb,
und Du bist sicher, dass das funktioniert?
Certo, amice. Hier allerdings.
Hi,
bei mir funktioniert es nicht. Es wird 2x das Datum angezeigt.
Hallo Bosko Biati,
wenn ich Dein Sub ausführe,
habe ich folgendes Ergebnis:
[
attachment=49734]
Die Daten in D und F habe ich gelöscht.
Einen schönen Tag.
Peter
Hi,
da ich das Original nicht kenne, kann ich das nicht prüfen. Ich werde auch keine .csv mehr herunterladen.
Dann verwende:
Code:
Sub M_snb()
With Columns(2)
.NumberFormat = "dd-mm-yyyy"
.Copy
End With
Columns(3).Insert
Columns(3).NumberFormat = "hh:mm"
Cells(1).CurrentRegion.Sort Cells(1,3), , , , , , , 1
End Sub
Hallo,
oder z.B. auch so:
Code:
Sub Test_Kuwer()
Dim i As Long
Dim varTabelle As Variant
With Range("A1").CurrentRegion
.Columns(3).Insert Shift:=xlToRight
With .Resize(.Rows.Count - 1).Offset(1)
.Sort Key1:=.Cells(2), Order1:=xlAscending, Header:=xlNo
varTabelle = .Value
For i = 1 To UBound(varTabelle)
varTabelle(i, 3) = varTabelle(i, 2) - Fix(varTabelle(i, 2))
varTabelle(i, 2) = Fix(varTabelle(i, 2))
Next i
.Columns(2).NumberFormat = "m/d/yyyy"
.Columns(3).NumberFormat = "h:mm"
.Value = varTabelle
End With
End With
End Sub
Gruß, Uwe
