Zu folgendem Abschnitt:
'While Worksheets("Tabelle1").Cells(i, 1).Value <> "" While i < 50
Ich habe die erste zeile auskommentiert und mit der 2. Zeile versucht, jedoch ohne ergebnis