Alle leeren Zellen ansprechen

Um per VBA alle leren Zellen eines definierten Bereichs anzusprechen, müssen Sie nicht jede einzelne Zelle auf leer prüfen. Besser 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ürlich kann jeder beliebige Bereich geprüft und auch ein angepasster Anweisungsblock verwendet werden.

Dieser Beitrag wurde unter Code-Schnipsel, Coding / Programmieren, Mit VBA/Makro, Tabelle und Zelle abgelegt und mit , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Schreibe einen Kommentar