Tabellenblattauswahl funktioniert nicht
29.03.2009 23:03:58
Joni
ich habe das Phänomen, dass die Auswahl des Tabellenblatt nicht richtig funktioniert. Ich möchte eine Datei öffnen bei der beim Öffnen ein Makro ausgeführt wird, das die Daten aus einer anderen Datei in diese Datei hineinkopiert und die Datei wieder schließt. Öffnen ist kein Problem. Aber bei der Auswahl der Tabellenblätter habe ich ein Problem. Die Blätter heißen in beiden Dateien gleich um den Zusammenhang besser herstellen zu können. Folgendes Makro verwende ich.
Phad = ThisWorkbook.Path
Workbooks.Open Filename:=Phad & "\DatenIgel.xls" 'Ausgangsdatei
Workbooks("DatenIgel.xls").Activate 'Ausgangsdatei
Sheets("Vorschreibung").Activate 'Auswahl Tabellenblatt Ausgangsdatei
Range("A1:N5000").Select 'Bereich der kopiert werden soll
Selection.Copy
Workbooks("SB-Liste.xls").Activate 'Zieldatei
Sheets("Vorschreibung").Activate 'Auswahl Tabellenblatt Zieldatei
Range("A1").Select 'Bereich in dem die Daten eingefügt werden; linke obere Ecke
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Es werden die Werte eingefügt
Die Auswahl Sheets("Vorschreibung").Activate 'Auswahl Tabellenblatt Ausgangsdatei greift auf die Zieldatei (die Datei mit der ich das Makro starte) zu. Wenn ich den Tabellenblättern unterschiedliche Namen gebe erhalte ich einen Laufzeitfehler. Woran liegt es, dass er nicht das Tabellenblatt der aktiven Tabelle auswählt? Wenn ich das Makro nach Workbooks("DatenIgel.xls").Activate 'Ausgangsdatei stoppe steht ich auf der richtigen Datei aus der die Werte kopiert werden sollen. Wie kann ich die Auswahl so anpassen, dass sie funktioniert.
Danke für eure Tipps.
Joni