Tutorials

Tutorial: Leere Zellen mit Nullen füllen in Excel (VBA Makro)

Melden

Hier ist ein ausführliches Tutorial, wie du leere Zellen in Excel mithilfe eines VBA-Makros automatisch mit Nullen auffüllen kannst.

In großen Datensätzen können leere Zellen oft zu Problemen bei Berechnungen oder Pivot-Tabellen führen. Mit einem kleinen VBA-Skript lässt sich dieser Prozess automatisieren, anstatt jede Zelle manuell zu bearbeiten.

Schritt 1: Die Entwicklertools aktivieren

Bevor du ein Makro schreiben kannst, musst du sicherstellen, dass die Registerkarte Entwicklertools in Excel sichtbar ist.

  1. Klicke mit der rechten Maustaste auf eine beliebige Registerkarte (z. B. "Start").
  2. Wähle Menüband anpassen....
  3. Setze auf der rechten Seite ein Häkchen bei Entwicklertools.
  4. Bestätige mit OK.

Schritt 2: Den VBA-Editor öffnen

  1. Gehe zur Registerkarte Entwicklertools.
  2. Klicke auf die Schaltfläche Visual Basic (oder drücke ALT + F11).
  3. Ein neues Fenster öffnet sich. Gehe im Menü auf Einfügen -> Modul.

Schritt 3: Den VBA-Code einfügen

Kopiere den folgenden Code und füge ihn in das weiße Fenster des neuen Moduls ein:

Sub LeereZellenMitNullFuellen()
    Dim Bereich As Range
    Dim Zelle As Range

    ' Prüfen, ob eine Auswahl getroffen wurde
    If TypeName(Selection) <> "Range" Then
        MsgBox "Bitte markieren Sie zuerst einen Zellbereich.", vbExclamation
        Exit Sub
    End If

    ' Fehlermeldung unterdrücken, falls keine leeren Zellen gefunden werden
    On Error Resume Next

    ' Nur die leeren Zellen im markierten Bereich ansprechen
    Set Bereich = Selection.SpecialCells(xlCellTypeBlanks)

    ' Fehlerbehandlung zurücksetzen
    On Error GoTo 0

    ' Wenn leere Zellen gefunden wurden, fülle sie mit 0
    If Not Bereich Is Nothing Then
        Bereich.Value = 0
        MsgBox "Alle leeren Zellen wurden mit 0 gefüllt.", vbInformation
    Else
        MsgBox "Keine leeren Zellen im markierten Bereich gefunden.", vbInformation
    End If
End Sub

Schritt 4: Das Makro ausführen

  1. Kehre zu deiner Excel-Tabelle zurück.
  2. Markiere den Bereich, in dem du die leeren Zellen füllen möchtest (oder drücke STRG + A für das ganze Blatt).
  3. Drücke ALT + F8, um das Makro-Fenster zu öffnen.
  4. Wähle LeereZellenMitNullFuellen aus und klicke auf Ausführen.

Tipps zur Anwendung

  • Sicherheit: Erstelle immer eine Sicherheitskopie deiner Daten, bevor du Makros ausführst, da die "Rückgängig-Funktion" (STRG + Z) nach einem Makrolauf in Excel meist nicht funktioniert.
  • Datei speichern: Wenn du das Makro behalten möchtest, musst du deine Excel-Datei als Excel-Arbeitsmappe mit Makros (.xlsm) speichern.
  • Warum dieses Skript? Das Skript verwendet SpecialCells(xlCellTypeBlanks). Das ist viel schneller als jede einzelne Zelle in einer Schleife zu prüfen, besonders bei sehr großen Tabellen.

Bonus: Der manuelle Weg (ohne VBA)

Falls du kein Makro nutzen möchtest, gibt es einen schnellen Shortcut:

  1. Bereich markieren.
  2. STRG + G drücken -> Inhalte... -> Leerzellen wählen -> OK.
  3. Tippe eine 0 ein (nicht Enter drücken!).
  4. Drücke STRG + ENTER. Alle markierten leeren Zellen werden gleichzeitig mit 0 gefüllt.
0