wollte mal Fragen ob man den Code wie unten stehend schreiben kann, bzw. wie er geschrieben werden sollte.
Das wsZ soll je nach aktiver Tabelle (Code wird mittels Button aus der Tabelle gestartet) entsprechend definiert werden.
Dim wsQ As Worksheet, wsZ As Worksheet
Set wsQ = Worksheets("02_Ausgabe")
If Worksheets("03_Monitoring_Referenz") = ActiveSheet Then
Set wsZ = Worksheets("03_Monitoring_Referenz")
Else: Set wsZ = Worksheets("04_Monitoring_Neuteil")
End If
usw.
Gruß
Markus