Public i As Integer
Sub TrackingListe()
Dim n As Integer
Dim vStr
quot = Chr(34)i = 1
n = 0
Call Eingabe_Löschen
For Each z In Worksheets("TOTO").Range("A7:A10007").Cells
If z <> "" Then n = n + 1
Next
For i = 1 To n
Worksheets("xml").Cells(17, 2) = Worksheets("TOTO").Cells(6 + i, 1)
Worksheets("TOTO").Cells(4, 1).Value = i & " von " & n
Call Tracking_Liste
Next
Exit Sub
End Sub