Microsoft Excel

Herbers Excel/VBA-Archiv

Makro für ganze Arbeitsmappe ertüchtigen | Herbers Excel-Forum


Betrifft: Makro für ganze Arbeitsmappe ertüchtigen von: Bernd
Geschrieben am: 11.01.2012 09:17:00

Hallo an die Makro-Fachleute,
wer würde mir bitte das nachstehende makro - das ich hier im Forum gefunden habe - so umbauen, dass alle Arbeitsmappen in der Datei abgearbeitet werden. Danke Euch im voraus.

Sub ISTFEHLER_EINTRAGEN()
                            
  Dim cel As Range
  Dim rng As Range
  Dim Check As String
                            
  ' Anpassung der Formel evt. erforderlich.
  Const Equ As String = "=IF(ISERROR(_x) ,""0"", _x)"
  
  Worksheets("Tabelle1").Select
  
  Check = Left$(Equ, 12) & "*"                          ' Check for =IF(ISERROR(
                            
  On Error Resume Next
                            
  Set rng = Selection.SpecialCells(xlFormulas, 23)
  If rng Is Nothing Then Exit Sub
                            
  With WorksheetFunction
    For Each cel In rng
      If Not cel.Formula Like Check Then
        cel.Formula = .Substitute(Equ, "_x", Mid$(cel.Formula, 2))
      End If
    Next
  End With
  On Error GoTo 0
End Sub

Grüße, Bernd

  

Betrifft: AW: Makro für ganze Arbeitsmappe ertüchtigen von: Frank
Geschrieben am: 11.01.2012 11:35:22

Hallo Bernd,

so sollte es gehen:

Sub ISTFEHLER_EINTRAGEN()
                            
  Dim cel As Range
  Dim rng As Range
  Dim Check As String
  Dim IntWS As Integer
                            
  ' Anpassung der Formel evt. erforderlich.
  Const Equ As String = "=IF(ISERROR(_x) ,""0"", _x)"
  
  IntWS = Worksheets.Count
  
  For i = 1 To IntWS
  
  Worksheets(i).Select
  
  Check = Left$(Equ, 12) & "*"                          ' Check for =IF(ISERROR(
                            
  On Error Resume Next
                            
  Set rng = Selection.SpecialCells(xlFormulas, 23)
  If rng Is Nothing Then Exit Sub
                            
  With WorksheetFunction
    For Each cel In rng
      If Not cel.Formula Like Check Then
        cel.Formula = .Substitute(Equ, "_x", Mid$(cel.Formula, 2))
      End If
    Next
  End With
  
  Next i
  
  On Error GoTo 0
End Sub

Gruß

Frank


  

Betrifft: Vielen Dank f.d. Hilfe. Grüße, Bernd von: Bernd
Geschrieben am: 11.01.2012 12:39:58

o.W.


Beiträge aus den Excel-Beispielen zum Thema "Makro für ganze Arbeitsmappe ertüchtigen"