Fehlerprüfung in Tabellen, Code erweitern

[deesnider]

Hallo, 

dieser Code prüft in Tabelle1 auf Fehler (#Wert, etc.). Kann man diesen Code so umgestalten, dass dieser meherer Tabellen prüft und die Ausgabe so gestrickt ist, das der Tabellenamen und die 
Zellen dazu in der Msgbox angezeigt werden. Notfalls ohne Tabellenname. Hauptsache über mehere Tabellen.

Kann das jemand umsetzen, hab schon viele versuche gestartet und immer wieder gescheitert.

Sub prüfen()

Dim Ausgabe As String
Dim Zelle As Range


With ThisWorkbook.Sheets("Tabelle1")

On Error GoTo weiter
    For Each Zelle In .Cells.SpecialCells(Type:=xlCellTypeFormulas, Value:=xlErrors)
        If Zelle.Value = CVErr(xlErrValue) Then
            If Ausgabe <> "" Then
              Ausgabe = Ausgabe & ", " & Zelle.Address
            Else
              Ausgabe = Zelle.Address
            End If
        End If
    Next
End With
MsgBox Ausgabe


:weiter

End sub

[volti]

Hallo,

hier mal eine in Ermangelung einer Prüfdatei ungeprüfte Idee zu Deinem Anliegen.

Es werden alle vorhandenen Blätter durchgegangen. Ggf. kannst Du die gewünschten noch rausfiltern.

Code:

Option Explicit

Sub Prüfen()
 Dim sAusgabe As String
 Dim rZelle As Range, WSh As Worksheet

 For Each WSh In ThisWorkbook.Worksheets
    
    On Error Resume Next
    For Each rZelle In WSh.Cells.SpecialCells(Type:=xlCellTypeFormulas, Value:=xlErrors)
        If rZelle.Value = CVErr(xlErrValue) Then
           sAusgabe = sAusgabe & WSh.Name & "." & rZelle.Address & vbCrLf
        End If
    Next rZelle

 Next WSh
 
 If sAusgabe = "" Then sAusgabe = "Keine Fehler gefunden!"
 MsgBox sAusgabe, vbInformation, "Prüfung"

End Sub

viele Grüße
Karl-Heinz