mit .Cells(iZeile, 1) = .Cells(iZeile - 1, 1) + 1 & "/" & Format(CDate(Now), "yy")
schreibe ich den laufenden Wert in besagte Zelle. Dies geht natürlich nur wenn "& "/" & Format(CDate(Now), "yy")" nicht ausgeführt wird.
Frage: Wie muss .Cells(iZeile, 1) = .Cells(iZeile - 1, 1) + 1 lauten um nur den Wert bis zum "/", also ohne die drei letzten Zeichen.
PS: "iZeile(As Integer) = sh1(As Worksheet).Cells(Rows.Count, 1).End(xlUp).Row + 1"
Danke im voraus
Lorenz