ich möchte folgendes Makro automatisch beim öffnen der Datei ausführen
Sub import_rohdaten()
Sheets("Datenbasis").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
ChDir "C:\Dokumente und Einstellungen\moi\Desktop\Pivot"
Workbooks.Open Filename:=ThisWorkbook.Path & "\rohdaten.xls"
Cells.Select
Selection.Copy
Range("A1").Select
Windows("Pivot.xls").Activate
Sheets("Datenbasis").Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Save
Windows("rohdaten.xls").Activate
ActiveWindow.Close
ActiveWorkbook.Save
Sheets("Pivot1").Select
End Sub
Ich hab das Makro über alt+F11 wie folgt eingefügt (habe es auch mit rechtsklick auf der Mappe "code anzeigen" versucht)
Private Sub Workbook_Open()
import_rohdaten
End Sub
1. Es tut sich aber nichts, wo ist mein Denkfehler?
2. Gibt es auch einen Befehl das alle Pivottabellen in dieser Datei (egal welche Mappe) aktualisert werden?