Problem mit Copy After:=Workbooks
19.09.2007 10:22:42
Bernd
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