Alle leeren Zellen ansprechen

Um per VBA alle leren Zellen eines definierten Bere­ichs anzus­prechen, müssen Sie nicht jede einzelne Zelle auf leer prüfen. Bess­er geht es so:

Option Explicit
Sub AlleLeerenZellen()
   'Alle leeren Zellen mit Zeilen- und Spaltennummer
   'sowie einer fortlaufenden Zahl ausfüllen und grün färben
   Dim rngLeerzellen As Range, c As Range
   Dim z As Integer
 
   Set rngLeerzellen = UsedRange.SpecialCells(xlCellTypeBlanks)
   For Each c In rngLeerzellen
      c.Value = "Ze " & c.Row & " Sp " & c.Column & " | " & z + 1
      c.Interior.Color = vbGreen
   Next c
End Sub

Natür­lich kann jed­er beliebige Bere­ich geprüft und auch ein angepasster Anweisungs­block ver­wen­det wer­den.