Office: [Excel 2002,XP] Kopieren von Inhalten via Makro?!

Hi Leute,

es ist wohl unnötig zu erwähnen, dass ich bei diesem Problem einfach nicht weiter komme. Daher bitte ich euch um Hilfe und Tipps.

Ausgangssituation: Ich habe eine Tabelle mit Kopf und Autofilter. Diese Tabelle wird mit Werten gefüllt, teils händig und teils durch Listenauswahl (Gültigkeitsprüfung).

Ziel: Die fertige Liste, ca. 200 Datensätze, muss gefiltert werden. Die Filterergebnisse sollen in eine neue Tabelle auf einem neuen Registerblatt übernommen werden und sind erneut Ausgangsbasis für weitere Verwendung. Dabei wird ein Makro aufgezeichnet, dass
1. Tabellenblatt (Quelle) auswählt,
2. den Inhalt des Tabellenblattes kopiert,
3. Tabellenblatt (Ziel) auswählt,
4. Inhalt der Zwischenablage einfügt.
Im Anschluss sollen weitere Dinge, wie Filterung, vorgenommen werden.

Problem: Beim Aufzeichnen des Makros gibt es keine Fehler. Alles funktioniert zufriedenstellend. Beim Aufrufen des Makros und der Ausführung wird die Prozedure beim Einfügen der Inhalte mit folgender Fehlermeldung gestoppt.

Fehlermeldung:
MS VB: Laufzeitfehler '-2147417848 (80010108)': Die Methode 'Paste' für das Objekt '_Worksheet' ist fehlgeschlagen.

Das Makro ist hier:
Sub kopieren()
Sheets("x").Select
Cells.Select
Selection.Copy
Sheets("y").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub

Ich habe schon versucht, die Fehlerquelle zu finden. Dabei bin ich soweit gekommen, dass es faktisch nur noch an den Gültigkeitsprüfungen der Listenauswahl liegen kann, denn wenn das Tabellenblatt (Quelle) keine Listen enthält, dann ist alles O.K., aber sobald eine Liste drin ist, geht nichts mehr. Selbst wenn alles gelöscht wird, kann nicht mehr kopiert werden. Das gesamte Tabellenblatt muss neu erstellt werden.

Was kann das sein? Wie kann ich mein Vorhaben realisieren? Ich bin auch gerne dazu bereit einen anderen Weg zu wählen. Für zweckdienliche Vorschläge bin ich immer offen.

thx4support

 

Hallo!

Ich habe XL2000 laufen und bei mir funktioniert dein Makro, egal ob mit oder ohne Filter oder mit oder ohen Gültigkeitslisten...
Ich habe eben gerade eine orangefarbene Benachrichtigungskarte von DHL in meinem Briefkasten gefunden, dass ich morgen mein Buch "Excel VBA in 14 Tagen" bei der Post abholen kann. Deshalb kann ich dir jetzt noch keine Programmierer-Tipps geben.
Leider weiß ich nicht, wie deine Tabelle aussieht und nach welchen Kriterien du filterst. Sollten dies aber "recht einfache" Kriterien sein, dann hilft dir vielleicht auch eine VBA-freie Lösung mit Formeln:
Hier von den Profis:
http://www.excelformeln.de/formeln.html?welcher=28
und hier (m)eine Umsetzung:
http://www.office-hilfe.com/support...-verknuepfung-daten-mit-tabellenblaetter.html

Noch 'ne Idee:
Wenn du "nur" die Werte (und keine Formeln) kopieren möchtest, dann probier's mal mit PasteSpecial statt Paste, bzw. "Inhalte einfügen->Werte" statt "einfügen" bei der Aufzeichnung.

Ich hoffe, du kannst damit was anfangen, auch wenn meine Antwort keine konkrete Lösung bietet.

 

thx, der trick mit "PasteSpecial" hat zumindest keine fehler gebracht.

jetzt muss ich mal probieren, ob der rest des projektes auch funktioniert.