Re: 13 Tabellenblätter in ein neues Tabellenblatt kopieren



Alexander Wolff schrieb folgendes:

Sheets("Tabelle" & i).Delete

Dies löscht statt nur des Inhalts gleich das ganze Blatt. Dafür korrigiere
zu:

Sheets("Tabelle" & i).Select
Cells.ClearContents

--
Moin + Gruss Alexander - XPHome SP2 MSO 2000 SP3 +----5----6----5----7-2


.