Löschen von Inhalten

Bild

Betrifft: Löschen von Inhalten von: Matthes
Geschrieben am: 01.03.2005 13:04:39

Ich möchte in einer riesigen Datei mit ca. 120 Excel-Sheets von FAST allen Sheets nur die Inhalte löschen.

Wie kann ich z.B. über Array

Sheets(Array("801207", "801167", "801165", "801168", "800617", "801206",")).Select

und anschließendem

Cells.Select
Selection.ClearContents

den Array aber so formulieren, dass ich nicht alle Tabellenblätter EINZELN aufführen muß?

Vielen Dank!

Matthes

Bild


Betrifft: AW: Löschen von Inhalten von: ypsilon
Geschrieben am: 01.03.2005 13:12:34

hi,
eventuell so:


Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells.ClearContents
Next
End Sub


cu Micha


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Löschen von Inhalten"