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
|