Count und For Each in Excel

Herdt EX2003P K8.5/S.98

Die Eigenschaft Count gibt zurück, wie viele Elemente eine Auflistung enthält.
Folgendermassen stellt man fest, ob eine Auswahl mehrere Zellbereiche umfasst:
If Selection.Areas.Count > 1 Then ...

Um mit allen Elemente einer Auflistung eine bestimmte Verarbeitung zu machen, gibt es For Each .. In. Next beendet diese Schlaufe (wie bei der normalen For-Schlaufe.
Der folgende Makro versieht jedes Blatt mit einer Fusszeile:

Dim objSheet As Worksheet

For Each objSheet In ActiveWorkbook.Worksheets
With objSheet.PageSetup
.LeftFooter = "MeineFirma"
.RightFooter = "Seite &P von &N"
End With
Next