aus UserForm Tabellen kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: aus UserForm Tabellen kopieren
von: Henri Jendly
Geschrieben am: 13.06.2002 - 06:19:53

Das alte Problem: aus einer UserForm werden die Daten in eine Zwischentabelle geschrieben, diese Tabelle muss dann mit einer fortlaufenden Nummer kopiert werden und nach dem letzten Tabellenblatt eingefügt werden. Ex2000 und XP: kein Problem. Bei Excel 97 aber ein bekannter Fehler (Laufzeitfehler 1004).

Wie kann man trotzdem aus einer UserForm heraus kopieren? Gibts eine API-Funktion, wenn ja, wie ist die deklariert?

Danke für die Hilfe.

nach oben   nach unten

Re: aus UserForm Tabellen kopieren
von: Hans W. Herber
Geschrieben am: 13.06.2002 - 06:27:07

Hallo Henri,

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


nach oben   nach unten

Re: aus UserForm Tabellen kopieren
von: Henri Jendly
Geschrieben am: 13.06.2002 - 14:52:45

Hallo 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.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "aus UserForm Tabellen kopieren"