| |
| 3D-Druck: 7 Gründe für den Einsatz in der Medizin, ein Fachartikel
|
Autor
|
Thema: Quellblatt merken (623 mal gelesen)
|
stolti Mitglied technischer zeichner
Beiträge: 373 Registriert: 05.09.2007 auto_cad 2008 athena 2008 DELL Precision PWS390 Intel Core2 CPU 6600 2gb RAM 2.40 GHz Office 2003
|
erstellt am: 16. Jan. 2009 12:34 <-- editieren / zitieren --> Unities abgeben:
Hallo hab hier einen Code: Sub CopyAndPaste() Set xOriginalSheet = ActiveSheet Sheets("Tabelle1").Range("A1:B5").Copy Sheets("Tabelle2").Range("A1").PasteSpecial xlValues xOriginalSheet.Activate End Sub ich möchte den anpassen auf: Sub CopyAndPaste() Set xOriginalSheet = ActiveSheet ActiveSheet.Range("A1:B5").Copy Sheets("Template").Range("A1").PasteSpecial xlValues xOriginalSheet.Activate End Sub ich krieg aber bei der Stelle: Set xOriginalSheet = ActiveSheet immer eine Fehlermeldung...
was hab ich da falsch umgeschrieben?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 16. Jan. 2009 13:24 <-- editieren / zitieren --> Unities abgeben: Nur für stolti
Hallo Stolti, sorry, kann ich so nicht nachvollziehen. Neue Mappe erstellt, VBA - Editor geöffnet, Code heinen kopiert Code: Sub CopyAndPaste() Set xOriginalSheet = ActiveSheet ActiveSheet.Range("A1:B5").Copy Sheets("Template").Range("A1").PasteSpecial xlValues xOriginalSheet.Activate End Sub
Noch einige Werte im Blatt "Tabelle1" eingetragen, Blatt "Tabelle2" in "Template" umbenannt und Macro laufen lassen. Und siehe da, es funzt. Alle Werte standen im Blatt "Template" und das aktive Blatt ist "Tabelle1" Grüße Tobias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stolti Mitglied technischer zeichner
Beiträge: 373 Registriert: 05.09.2007 auto_cad 2008 athena 2008 DELL Precision PWS390 Intel Core2 CPU 6600 2gb RAM 2.40 GHz Office 2003
|
erstellt am: 16. Jan. 2009 13:31 <-- editieren / zitieren --> Unities abgeben:
|
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 16. Jan. 2009 15:30 <-- editieren / zitieren --> Unities abgeben: Nur für stolti
Code: Sub CopyAndPaste() Set xOriginalSheet = ActiveSheet 'warum wird das gesetzt?ActiveSheet.Range("A1:B5").Copy 'wenn hier das gesetzte eh gewählt wird, 'bzw. es müsste xOriginalSheet.Range("A1:B5").. lauten Sheets("Template").Range("A1").PasteSpecial xlValues 'ok einfügen ;) xOriginalSheet.Activate 'Warum wird die schon aktive Sheet nochmal aktiviert? 'ActiveSheet.Activate aka Leben.lebe! ;-) End Sub
reicht nicht ein
Code: Sub copyandpaste() ActiveSheet.Range("A1:B5").Copy Sheets("Template").Range("A1").PasteSpecial xlValues End SUB
Zum Fehler selber "Fehler beim Kompilieren" "variable nicht definiert" Welche Definition soll xOriginalSheet haben, ist das ein Sack Kartoffeln, eine Geschwindigkeit, Eine Empfindung, - we don't Know - Steht irgenwo Option Explicit, dann muss zwingend deklariert werden! Da xOriginalSheet kein String, Zahl oder was immer sein soll, sondern eine XL-Tabelle Code: Dim xOriginalSheet As Worksheet
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |