Kopieren und Zeilen löschen VBA
10.06.2022 08:49:24
U.
Ich nutze für die Löschung den folgenden Code, den ich irgendwo im Internet gefunden habe:
For i = ThisWorkbook.Worksheets("Tabelle2").Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then ThisWorkbook.Worksheets("Tabelle2").Rows(i).Delete
Next i
Zwischen dem Kopiervorgang und der Löschung der Zeilen generier ich aber weitere leere Zeile, die nicht erkannt werden.
Ich gehe deshalb davon aus, dass im Programmcode noch an einer Stelle ein weiterer Verweis auf die "Tabelle2" eingefügt werden muss.
Leider weiß ich nicht wo.