Kann den Code leider nicht rauskopieren und verändern.
Schreib einfach in Zeile 2: Dim strName as string
In Zeile 3: strName = ActiveSheet.Name
Dann ersetzt du jedes Worksheets("EUR") durch Worksheets(strName)
ABER mir fällt gerade auf das es auch gehen sollte wenn du einfach nur (also das obere jetzt noch mal komplett vergessen):
statt Worksheets("EUR") --> ActiveSheet schreibst
Also als Bsp. mal die Zeile 5:
If ThisWorkbook.ActiveSheet.Range("B1").Value = "" Or _ ..... usw. (jedes Worksheets("EUR") im Code ersetzen --> dazu empfehle ich Str + F und dann die ersetzen Funktion ;)
Sollte das nicht gehen probier mal das obere.
Beste Grüße
Kentucky
|