ich möchte überall auf meinem Tabellenblatt #BEZUG! durch 0 ersetzen.
Wie mach ich das?
Gruß
Sebastian
Sub BezugAufNull()
Dim Zelle As Range
Dim Auswahl As Range
Dim Formel As String
Dim Antwort As Long
Set Auswahl = Application.Selection
For Each Zelle In Auswahl
If Zelle.HasFormula Then
Antwort = MsgBox("Zelle " & Zelle.Address & " = " & vbCr & _
Zelle.FormulaLocal, vbQuestion + vbYesNo, "Auf Null setzten?")
If Antwort = vbYes Then
Zelle.Value = 0
End If
End If
Next Zelle
End Sub