ich habe folgendes Makro welches eine Excel Tabelle in der Datum, Zeit usw steht ausliest und in eine Textdatei speichert.
Nun habe ich aber das Problem, dass die Zeit als Kommawert und nicht in hh:mm:ss in der Textdatei erscheint. Kann mir bitte jemand sagen wie ich das Makro verändern muss damit die Zeit als Uhrzeit formatiert wird.
Hier das Makro:
Sub test()
Dim rng As Range
Dim intFF As Integer
Dim intSpalte As Integer
Dim strZeile As String
On Error GoTo ErrHdl
intFF = FreeFile
Open "C:\Test.txt" For Output As #intFF
With ActiveSheet
For Each rng In .Range(.Cells(1, 6), .Cells(Rows.Count, 6).End(xlUp))
If rng = 1 Then
For intSpalte = -5 To -1
strZeile = strZeile & rng.Offset(0, intSpalte) & ";"
Next 'intspalte
strZeile = Left(strZeile, Len(strZeile) - 1)
Print #intFF, strZeile
strZeile = ""
End If
Next 'lngZeile
End With
ErrHdl:
Close #intFF
MsgBox "Fehler " & Err.Number & ":" & vbLf & vbLf & Err.Description
End Sub
Mit freundlichen Grüßen
Benjamin