Makro verbessern
01.02.2005 15:44:38
Thomas
ich habe ein Makro mittels Makrorecorder aufgenommen.
Das Makro funktioniert einwandfrei.
Mit dem Makro kopiere ich Daten von einem Excel Sheet zum anderen.
Wenn ich jetzt eine neue Tabelle mit anderen Namen mache, muß ich im Makro alle Namen der Tabelle ändern.
Besteht die Möglichkeit, das ich das alles mit einem Namen zusammenfassen kann?
Ich habe hier mal ein Beispiel.
Das was ich nur einmal ändern möchte ist der Name Tabelle 1.xls
Ich hoffe ich habe mich verständlich ausgedrückt.
Danke schon mal für eure Mühe.
Mit freundlichen Grüßen
Thomas G.
Sub Master_Diagnosecode_kopieren()
' Master_Diagnosecode_kopieren Makro
' Makro am 03.01.2005 von Thomas aufgezeichnet
Windows("02-Master.xls").Activate
Sheets("Master Tabelle").Select
Range("A1:B600").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Tabelle 1.xls").Activate
Sheets("Master Tabelle").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("02-Master.xls").Activate
Sheets("Stecker").Select
Range("A1:B100").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Tabelle 1.xls").Activate
Sheets("Stecker").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("02-Master.xls").Activate
Sheets("Netzteil").Select
Range("A1:B100").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Tabelle 1.xls").Activate
Sheets("Netzteil").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub