Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit Copy After:=Workbooks

Problem mit Copy After:=Workbooks
19.09.2007 10:22:42
Bernd
Hallo zusammen,
ich habe zwei Arbeitsmappen (nenne sie mal Zielworkbook und Quellworkbook) die jeweils ein Tabellenblatt „Offer“ beinhalten.
In beiden Tabellenblättern sind Bereiche als Namen festgelegt. (die Namen werden benötigt)
Um das Tabellenblatt (inklusive aller Namen) vom Quellworkbook in das Zielworkbook zu kopieren gehe ich per VB-Code wie folgt vor:
- beide Arbeitsmappen öffnen
- Tabellenblatt „Offer“ aus Zielworkbook löschen
- Tabellenblatt „Offer“ aus Quellworkbook kopieren
- und in Zielworkbook einfügen
Auszug aus dem Modul:
' Vorhandene Angebotsseite im Zielworkbook aktivieren und löschen
Workbooks(zielwkb).Sheets(“Offer”).Delete
anzahlSeiten = Workbooks(zielwkb).Sheets.Count
' Das Angebot aus dem Quellworkbook kopieren und in Zielworkbook einfügen
Workbooks(quellwkb).Sheets(“Offer”).Copy After:=Workbooks(zielwkb).Sheets(anzahlSeiten - 1)
Problem:
Der Code fügt das Tabellenblatt auch einwandfrei ein. Merkwürdiger weise verzweigt er dann aber im Zielworkbook zu einer Procedure bei der abgefragt wird ob sich etwas an einer ComboBox geändert hat … (Private Sub cmb_type_Change). Diese gehört zu einem anderen Tabellenblatt das nicht mit dem „Offer“-Tabellenblatt verknüpft ist.
Woran kann das liegen?
Gruß
Bernd

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Copy After:=Workbooks
19.09.2007 10:26:12
Renee
Hi Bernd,
Ev. referenziert dien ComboBox (indirekt) Teile des neuen sheet's.
Probier's mal so:

Application.EnableEvents = False
Workbooks(quellwkb).Sheets(“Offer”).Copy After:=Workbooks(zielwkb).Sheets(anzahlSeiten - 1)
Application.EnableEvents = True


GreetZ Renee

AW: Problem mit Copy After:=Workbooks
19.09.2007 10:41:00
Bernd
Hallo Renee,
danke für die schnelle Antwort.
Leider funktioniert es auch mit "Application.EnableEvents = False" nicht.
Ich hatte vergessen zu schreiben das der Code nur in die "Private Sub cmb_type_Change" springt wenn ich vorher etwas in der ComboBox cmb_type ausgewählt habe. Ansonsten springt der Code zu einer anderen Procedure die eine andere ComboBox abfragt (was allerdings keine Fehlermeldung erzeugt, aber auch nicht richtig ist).
Vielleicht helfen diese kleinen Informationen das Problem zu lösen.
Gruß
Bernd

Anzeige
AW: Problem mit Copy After:=Workbooks
19.09.2007 11:09:19
Renee
Hi Bernd,
Dann hätte ich noch folgende Möglichkeit auf Lager.

1. Public Variable definieren:      Public bInsertAtiv as Boolean
2.
bInsertAtiv = True
Workbooks(quellwkb).Sheets(“Offer”).Copy After:=Workbooks(zielwkb).Sheets(anzahlSeiten - 1)
bInsertAtiv = False
3. in den comboBox_Change Routinen, als erstes:
If bInsertAktiv Then Exit Sub


GreetZ Renee

AW: Problem mit Copy After:=Workbooks
19.09.2007 11:48:22
Bernd
Hallo Renee,
vielen Dank!!! Es funktioniert.
Wenn ich das richtig sehe wird der eigendliche Fehler dadurch umgangen und nicht behoben (was mir aber schon vollkommen ausreicht).
Nur aus reiner Neugierde: Woran kann das liegen das der Code falsch verzweigt? Ich möchte ungern den gleichen Fehler wiederholen.
Gruß und nochmals danke
Bernd

Anzeige
AW: Problem mit Copy After:=Workbooks
19.09.2007 11:54:00
Renee
Hi Bernd,
Der Code verzweigt nicht falsch!
Wie gesagt, das Ändern der Umgebung triggert eine Change auf der Combobox (z.B. des ListIndex)
Du hast keinen Fehler gemacht.
GreetZ Renee

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige