Markierte Excel-Zellen per Makro durchlaufen

So verarbeiten Sie alle Zellen einer Markierung

Sie möchten in einem Makro alle Zellen durchlaufen, die im aktiven Tabellenblatt markiert sind und diese Zellen weiterverarbeiten? Setzen Sie das folgende Makro ein:

Sub ZellenDurchlaufen()
Dim Zelle As Range
For Each Zelle In Selection.Cells
 Zelle.Interior.ColorIndex = 5
Next Zelle
End Sub

Wenn Sie das Makro starten, werden alle Zellen, die gerade markiert sind, mit einer blauen Hintergrundfarbe versehen. Das funktioniert auch mit Zellbereichen oder verteilten Zellen, die Sie bei gedrückter STRG-Taste markiert haben. Die folgende Abbildung zeigt ein Beispiel des Resultats:

Ersetzen Sie die Zeile Zelle.Interior.ColorIndex = 5 durch die Kommandos, mit denen Sie die Zelle verändern möchten. Das können natürlich auch mehrer Befehle sein. Mit dem Argument Zelle greifen Sie auf die einzelnen markierten Zellen innerhalb der Schleife zu.