Wie kann man trotzdem aus einer UserForm heraus kopieren? Gibts eine API-Funktion, wenn ja, wie ist die deklariert?
Danke für die Hilfe.
ich vermute fast, dass es sich um ein wiederholendes Kopieren (1. Tabelle wird kopiert als 2. Tabelle, 2. Tabelle wird kopiert als 3. Tabelle etc.) handelt. Wenn dem so ist, liegt das Problem darin, dass die VBProjectComponents-Namen immer länger werden und irgendwann das Ende der Fahnenstange erreicht ist, so dass kein neues Blatt mehr hinzugefügt werden kann. In diesem Fall müssen die Namen geändert werden.
Sollte es sich um ein anderes Problem handeln, müßte man den Code kennen.
hans
Die Tabelle wird nur einmal kopiert, das heisst, die Zwischentabelle hat lediglich eine Zwischenablagefunktion, nach Ueberprüfung der Einträge werden die Daten rein geschrieben, und die Tabelle an den Schluss kopiert.
Der Code dazu lautet lediglich:
1> Sheets("SICHTEN1_D").Copy after:=Sheets("Resultate2")
2> ActiveSheet.Name = Kanton & "-" & Format$(VENR, "000")
3> Worksheets("Hauptmenu_D").Activate
4> frm_Fragebogen1.Hide
Bei 1> erscheint dann die Meldung 1004, GoToApplication Error
Laut M. Kofler entsteht dieses Problem nur in Excel 97, wenn die Aktion aus einer UserForm aktiviert wird. Mit 2000 und XP funktioniert es einwandfrei.
Hoffe, das Problem ist verständlich beschrieben.