Private Sub Start_Click()
Dim Zelle As Range
Dim Bereich As Range
Dim ReiZ As Long
Dim AbortTime As Date
If Range("AE6").Value = 1 Then
AbortTime = Now + TimeValue("0:00:10")
Do While True
Range("G5").Value = Range("E5").Value
Range("H5").Value = Range("E6").Value
Range("I5").Value = Range("E7").Value
ReiZ = ActiveSheet.UsedRange.Rows.Count
Set Bereich = Range("G5:I5")
For Each Zelle In Bereich
With Zelle
.NumberFormat = "@"
.Value = Replace(Zelle, ",", ".")
.NumberFormat = "General"
.Value = .Value
End With
Next Zelle
If Now > AbortTime Then Exit Do
Loop
Range("AE20").Value = Date
Range("AE21").Value = Time
Range("AE22").Value = Range("AE22").Value + 1
Speichern
End If
End Sub