bräuchte ein Makro:
Lösche mir im Tabellenblatt Datenbasis in Spalte J. Ab J2 bis letzter eintrag in J alles nach dem 9. Zeichen.
Gruß
Julia
Sub LoeschAb9()
Dim arr, i As Long
arr = Range(Cells(2, 10), Cells(Rows.Count, 10).End(xlUp))
For i = 1 To UBound(arr)
arr(i, 1) = Left(arr(i, 1), 9)
Next
Cells(2, 10).Resize(UBound(arr)) = arr
End Sub
Sub Loesch()
Dim Zei As Long
With Worksheets("Datenbasis")
For Zei = .Cells(Rows.Count, 10).End(xlUp).Row To 2 Step -1
.Cells(Zei, 10).Value = Left(.Cells(Zei, 10).Value, 9)
Next Zei
End With
End Sub
Sub LoeschAb9()
Dim arr, i As Long
arr = Range(Cells(2, 10), Cells(Rows.Count, 10).End(xlUp))
For i = 1 To UBound(arr)
arr(i, 1) = CLng(CDate(Left(arr(i, 1), 9)))
Next
Cells(2, 10).Resize(UBound(arr)) = arr
Cells(2, 10).Resize(UBound(arr)).NumberFormat = "DD.MM.YYYY"
End Sub