Letztes Tabellenblatt als relativen Bezug als Formel für bedingte Formatierung angeben (Mit Makro)

[MSCom]

Hallo liebe Community,

ich möchte gerne die bedingte Formatierung aus dem letzten Tabellenblatt mit einem Makro in ein neues Tabellenblatt kopieren, wobei das letzte Tabellenblatt relativ sein soll.

Das sind die Informationene bzw. Formeln und Codes, die ich bis jetzt habe:

Zellen:

• A2 - Z150

Bedingte Formatierung:

• "Formel zur Ermittlung der zu formatierenden Zellen verwenden"
• Formel: =A2Tabelle1!A2

Makros:

Sub Makro3()
Range("A2:Z150").Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=A2Tabelle1!A2"
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399945066682943
End With
End Sub

Sub Makro10()
Application.Run "'Kopie von ZETES-C00057996-DBS-PRICELIST-V0-1-20181004-123505.xlsm'!Makro3"
Range("G3").Select
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
Sheets.Add After:=ActiveSheet
ActiveSheet.Buttons.Add(120.75, 15, 179.25, 44.25).Select
Selection.OnAction = "Makro10"
Selection.Characters.Text = "Neu"
End Sub


Gibt es eine Lösung, nicht auf eine best. Tabelle (Hier: Tabelle1) zu verweisen?

Vielen Dank im Voraus