Hot News:

Unser Angebot:

   Foren auf CAD.de (alle Foren)
  Excel
  VBA: Blatt von Mappe zu Mappe kopieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  VBA: Blatt von Mappe zu Mappe kopieren (19880 mal gelesen)
carsten-3m
Mitglied
Dipl.-Ing. Mbau (Produktmanagement, Patent- und Normwesen)


Sehen Sie sich das Profil von carsten-3m an!   Senden Sie eine Private Message an carsten-3m  Schreiben Sie einen Gästebucheintrag für carsten-3m

Beiträge: 950
Registriert: 08.05.2007

Excel 2010

erstellt am: 29. Apr. 2010 13:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities
Ich krieg gerad' die Krise. Laufzeitfehler 9 bzw. 1004, ohne vernünftigen Hinweis auf die tatsächliche Fehlerquelle. Anbei der Ausschnitt eines Progrämmchens, an dem ich seit heut morgen bastel, der es nicht "tun" will:

Code:
mappe = "Mappe_2"
...
Workbooks("Mappe_1.xls").Sheets("Blatt").Select
Sheets("Blatt").Copy After:=Workbooks(mappe & ".xls").Sheets(1)

Soll ein vordefiniertes Blatt aus Mappe 1 kopieren und in eine nach Bedarf verschiedentlich benannte Mappe 2 einfügen. Der Name der Mappe 2 wird weiter oben im Programm bereits ermittelt (und das "tuts" auch) und in der Stringvariable mappe gespeichert.

Der Kram bleibt in der Select-Zeile hängen, einzelschrittmodusgetestet.

Sieht irgendjemand einen syntaktischen oder logischen Mangel? Dann bitte, bitte gleich "hier" rufen. Danke 

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 29. Apr. 2010 14:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für carsten-3m 10 Unities + Antwort hilfreich
"Hier" !

Verdacht... Lass' den Select-Kram einfach weg, also so:

Code:
Workbooks("Mappe_1.xls").Sheets("Blatt").Copy After:=Workbooks(mappe & ".xls").Sheets(1)
Voraussetzung: Deine Mappen sind auch vorhanden und heißen tatsächlich so, Register dto., Pfade stimmen etc.

Klappt?

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!
Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz