Office: leere Zelle automatisch x setzen wenn Zelle X1 = x

Hallo,
ich hoffe ihr könnt mir helfen. Habe leider nichts passendes für mein Problem gefunden.

Ich Probiere in Excel leere Zellen in einem bestimmten Bereich automatisch auf x zu setzen wenn Zelle X1 = x.

Vielen Dank

 

Hallo,

mit Hilfe des folgenden Makros in einem allgemeinen Codemodul müsste es jedenfalls funktionieren:

Code:

Public Sub InLeerzellenEinfügen()
  Dim Zelle As Range
  For Each Zelle In Selection.Cells
    If IsEmpty(Zelle) Then Zelle.Value = Range("X1").Value
  Next Zelle
End Sub

Prozedere:
1) In Zelle X1 den gewünschten Wert eingeben
2) Zellbereich markieren - dieser kann leere Zellen und Zellen mit Inhalt enthalten
3) Mit der Tastenkombination Alt+F8 und anschließender EINGABE-Taste das Makro "InLeerzellenEinfügen" ausführen.

 

Funktioniert. Vielen Dank.