ansprechn als Tabelle 1 /2 usw
12.02.2020 15:14:45
MaBlu
ich habe ein Makro das mit den Registernamen arbeitet, wenn der Name ändert läuft es nicht mehr, das ist schlecht!
Frage wie müsste das Makro aussehen wenn ich die Register beim Namen Tabelle 1 2 usw ansprechen würde?
Sub Kopieren()
' Kopier Makro
' Makro am 11.02.2020 aufgezeichnet! Bereich B8:E30 Kopieren von Tabelle1 (Berechnungen) nach _
Tabelle2 (Anfrage 5622)
Sheets("Anfrage 5622").Select
Call unprotect
Sheets("Berechnungen").Select
Sheets("Berechnungen").Range("B8:E30").Copy Sheets("Anfrage 5622").Range("B8")
Sheets("Anfrage 5622").Select
Call protect
' Makro am 11.02.2020 aufgezeichnet! Bereich B8:E30 Kopieren von Tabelle1 (Berechnungen) nach _
Tabelle5 (Anfrage 4852)
Sheets("Anfrage 4852").Select
Call unprotect
Sheets("Berechnungen").Select
Sheets("Berechnungen").Range("B8:E30").Copy Sheets("Anfrage 4852").Range("B8")
Sheets("Anfrage 5622").Select
Call protect
End Sub
Für eure Hilfe besten Dank
Gruss MaBlu
Anzeige