ich hab da ein kleines Problem. Ich habe ein Bestellblatt aus dem sich eine Picot-Table erstellt. Nun soll nach der Eingabe sich die Pivot mittels Makro aktualisieren und die Daten in eine weitere Tabelle kopieren.Beim Aufzeichnen mit dem Makrorecorder funktioniert das auch alles. Leider aber nicht, wenn ich auf den dafür vorgesehenen Button klicke. Dann hänge ich immer an der Stelle fest, wo sich die Daten aktualisieren sollen.
Sub datenzusammenfügen()
' datenzusammenfügen Makro
' Makro am 21.05.2006 von Kirsche aufgezeichnet
Sheets("Pivot-Kopie").Visible = True
Sheets("PivotTable2").Visible = True
Range("B2").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh hier hänge ich
Range("B2:E16").Select
Selection.Copy
Sheets("Pivot-Kopie").Select
ActiveSheet.Paste
Application.Run "'Bestellformular Üb 4.xls'!üb"
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Save
End Sub