Guten Abend zusammen,

 

ich möchte gerne eine Excel Datei bearbeiten. Diese besteht aus mehreren Sheets mit dem selben Aufbau.

Ich habe versucht ein Makro zu erstellen, dass durch alle Tabellenblätter gehen soll und bei jedem Tabellenblatt einen fixen Bereich auf einen Inhalt prüfen soll und ggf. eine Änderung vornehmen soll. Diese Änderung soll initiiert werden, sobald in dem "fixen Bereich" kein Wert vorhanden ist. Dann soll in dieser Zelle eine 0 eingetragen werden.

 

Leider wird die Prozedur mit dem Befüllen der 0 Werte nur beim ersten Tabellenblatt ausgeführt. 

Ich wäre für Eure Hilfe sehr dankbar.

 

Hier das Makro:

 

Sub Trans()

    Dim ws As Worksheet

    Dim Zelle As Range

    Dim Bereich As Range

    

    Set Bereich = Range("B6:AF17")

    

    For Each ws In ThisWorkbook.Sheets

        For Each Zelle In Bereich

        If Zelle.Value = "" Then

        Zelle.Value = "0"

        End If

   

        Next Zelle

    Next ws

End Sub