Uhrzeit im 24 Std-Format

[BoskoBiati]

Hi snb,

und Du bist sicher, dass das funktioniert?

[snb]

Certo, amice. Hier allerdings.

[BoskoBiati]

Hi,

bei mir funktioniert es nicht. Es wird 2x das Datum angezeigt.

[peterlei2]

Hallo Bosko Biati,

wenn ich Dein Sub ausführe,
habe ich folgendes Ergebnis:


  fahrtdaten Ergebnis.csv (Größe: 48,64 KB / Downloads: 6)

Die Daten in D und F habe ich gelöscht.

Einen schönen Tag.

Peter

[BoskoBiati]

Hi,

da ich das Original nicht kenne, kann ich das nicht prüfen. Ich werde auch keine .csv mehr herunterladen.

[snb]

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

[BoskoBiati]

Hi,

jetzt passt es.

[Kuwer]

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

[peterlei2]

Dank an alle Helfer,

der Code von Uwe passt !!!