Herbers Excel-Forum - das Archiv

Macro

  • Macro von Kruse vom 10.03.2005 11:15:34
Bild

Betrifft: Macro
von: Kruse

Geschrieben am: 10.03.2005 11:15:34
Hallo ,
ich habe ein kleines Problem:
In einer Tabelle habe ich aus allen Formeln Werte gemacht.
In den Zellen in welchen falsche Berechnungen standen, steht nun #Wert!
diesen String will ich durch "" ersetzen
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Dies funktioniert aber in meinem Macro nicht.
Wenn ich es als Macrorecorder aufzeichne tut er es.
Wo ist der Denkfehler
Gruß
Bild

Betrifft: AW: Macro
von: bst

Geschrieben am: 10.03.2005 12:06:32
Hi Kruse,
wie machst Du das mit dem Suchen & Ersetzen ? Bei mir geht das nämlich nicht.
Versuch's mal im VBA mit sowas.
cu, Bernd
--
Option Explicit
Sub NoErr()
Dim cell As Range
For Each cell In Selection
If IsError(cell.Value) Then cell.Value = ""
Next
End Sub

Sub NoErr2()
Dim cell As Range
For Each cell In Selection
If cell.Value = CVErr(2015) Then cell.Value = ""
Next
End Sub

Sub NoErr3()
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, xlErrors).Value = ""
End Sub

 Bild