kopieren und einfügen + liste erstellen
29.08.2007 10:22:00
ecki
so mal wieder ein kleines Problemchen.
Ok, zu den Fakten,
- die alten Daten löschen
- es sollen Daten aus einer Tabelle in eine andere kopiert werden
- die kopierten Daten sollen als Liste definiert werden um diese mit einer Pivot-Tabelle weiter zu verwenden
Hab mich selber mal an dem Problem versucht:
Private Sub CommandButton1_Click()
Range("G1").Activate
Cells.Select
Selection.Delete Shift:=xlUp
--->> löscht die alten Einträge
Windows("Purchase Order Analysis_V1.5.xls").Activate
Sheets("Raw_data").Activate
Columns("C:AG").Select
Selection.Copy
--->> wählt den zu kopierenden Bereich aus und kopiert diesen
Windows("pivot.xls").Activate
Sheets("data").Paste
Application.CutCopyMode = False
--->> fügt die Daten wieder ein
Sheets("data").ListObjects.Add(xlSrcRange, Range("$A:$AE"), , xlYes).Name = _
"Liste1"
Columns("A:AE").Select
--->> erstellt eine Liste daraus
End Sub
Also müsst doch eigentlich soweit stimmen oder?
Das Problem ist nur, dass eine Fehlermeldung kommt.
Und zwar:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler
Kann nicht Debuggen, steht nicht zur Auswahl. :(
Also wo liegt der Fehler?
Kann mir da jemand weiter helfen?
mfg
ecki