Makro nur auf markierte Zellen anwenden
22.06.2013 14:49:57
Günther
ich brauche mal wieder eure Hilfe.
Ich habe eine Makro gefunden welches entweder alle Zellen mit Formeln mit ISTFEHLER erweitert (→ 16) oder aber nur die Zellen die einen Fehler aufweisen (→ 23)
Wie muss ich dieses Markro ergänzen, damit es nur auf die momentan markierten Zellen angewendet _ wird?
Sub istfehler()
Dim cell_ As Range
On Error Resume Next
'(xlCellTypeFormulas, 16) = alle formeln werden mit ISTFEHLER versehen
'(xlCellTypeFormulas, 23) = nur die Zellen mit einem Fehler werden mit ISTFEHLER versehen.
For Each cell_ In Cells.SpecialCells(xlCellTypeFormulas, 16)
cell_.Formula = "=IF(ISERROR(" & Replace(cell_.Formula, "=", "") & "),""""," & Replace(cell_. _
Formula, "=", "") & ")"
Next
End Sub
Vielen Dank für eure Hilfe.
Gruß
Günther