=wenn(istfehler(... /
08.12.2014 09:14:04
Tommy
habe hier im Forum (https://www.herber.de/forum/archiv/1160to1164/1163982_wennistfehler.html#1164007) einen VBA Code gefunden mit dem man ein Makro erstellen kann das einen Wenn Istfehler in einer ausgewählten Zelle um die Formel herum bastelt. Dieses Makro gibt jedoch als Wert eine 0 aus, welche dann in der Zelle eingefügt wird. Kann man diese eventuell auch so umbasteln, dass die Zelle einfach leer bleibt? Habe in VBA leider keine Erfahrung. Der Code funktioniert ansonsten einwandfrei!
Vielen Dank!
Tommy
Hier der Code:
Option Explicit
Sub abc()
' WennFehler Selection, """nix""" ' für "nix"
' WennFehler Selection, """""" ' für ""
WennFehler Selection, 0 ' für 0
End Sub
Sub WennFehler(rngBer As Range, strErg As String)
Dim rngC As Range, strFml As String
For Each rngC In rngBer
If rngC.HasFormula And IsError(rngC) Then
strFml = Right$(rngC.Formula, Len(rngC.Formula) - 1)
rngC.Formula = "=IF(ISERROR(" & strFml & ")," & _
strErg & "," & strFml & ")"
End If
Next rngC
End Sub