Datum als fortlaufende Zahl
02.10.2025 11:19:03
Chris
Ich möchte Datumsangaben aus einer Textbox in eine fortlaufende Zahl umwandeln.
Die Datumsangaben werden, getrennt durch ein Komma, nacheinander in einer Textbox eingegeben, getrennt und anschließend in das Zielsheet geschrieben.
Wie wandelt man die Ergebnisse dann in eine fortlaufende Zahl um?
Hier der Code:
Sub x()
Dim qws, zws As Worksheet
Dim TargetRow As Long
Dim TargetColumn As Long
Dim TextTeile() As String
Dim i, lnglCOL As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
'Arbeitsblatt und Zielzelle festlegen
Set qws = Worksheets("Quelle")
Set zws = Worksheets("Ziel")
lnglCOL = zws.Cells(1, Columns.Count).End(xlToLeft).Column + 1
qws.Cells(ActiveCell.Row, 33).Value = Me.TextBox1.Value
zws.Cells(1, lnglCOL).Value = qws.Cells(ActiveCell.Row, 2).Value
UserForm1.TextBox1.Value = Replace(UserForm1.TextBox1.Value, ";", ",", , , vbTextCompare)
TextTeile = Split(UserForm1.TextBox1.Value, ",")
' Array-Elemente in die Tabelle schreiben
For i = LBound(TextTeile) To UBound(TextTeile)
zws.Cells(2 + i, lnglCOL).Value = Trim(TextTeile(i))
Next i
'Umwandlung als fortlaufende Zahl funktioniert nicht
'zws.Columns(lnglCOL).NumberFormat = "@"
'zws.Range(zws.Cells(2, lnglCOL), zws.Cells(zws.Cells(Rows.Count, lnglCOL).End(xlUp).Row, lnglCOL)).NumberFormat = "DD.MM.YYYY"
zws.Range(zws.Cells(2, lnglCOL), zws.Cells(zws.Cells(Rows.Count, lnglCOL).End(xlUp).Row, lnglCOL)).NumberFormat = "0"
end sub
Gruß
Chris
Anzeige