Supportnet / Forum / Tabellenkalkulation
Makro um Datei (wenn möglich "unsichtbar") zu öffnen
Frage
Hallo zusammen!
ich bräuchte ein Makro, daß beim Öffnen einer Datei automatisch 4-5 andere Dateien mitöffnet.
Wäre optimal wenn die Dateien dabei nicht hochploppen sondern vielleicht einfach im Hintergrund blieben oder noch besser gar nicht sichtbar werden...
Das Ganze bezieht sich auf mein Problem mit dem INDIREKT-Verweis der nur funktioniert wenn alle "beteiligten" Dateien geöffnet sind.
Die Krönung wäre es, wenn man das Makro nicht 75 mal angepasst an die Dateinamen schreiben müsste, sondern man ein "Mustermakro" benutzen könnte, das dann den richtigen Pfad "erstellt"... Also alle Dateien sind im gleichen Ordner aber haben den Namen des "Kunden". Also daß wenn ich das Muster auf die Datei "kunde1" beziehe ich im Makro automatisch "FesterPfad/Muster.xls" in "FesterPfad/kunde1.xls" umwandle...
erklären wie oder fertige Makros... ich bin für jede Hilfe dankbar =)
Antwort 1 von Flupo
Das "Hochploppen" beim Öffnen der Dateien lässt sich unterdrücken, indem du im Makro vor dem Befehl zum Öffnen die Zeile:
Application.ScreenUpdating = False
einbaust. Wenn alle Dateien geöffnet sind, per
Windows("Tabellenblattname der Haupttabelle").Activate
die erste Datei aktivieren und mit
Application.ScreenUpdating = True
die Bildschirmaktivierung wieder einschaltest.
Das Pfadproblem lässt sich lösen, indem du mit
Pfad1 = CurDir
den aktuellen Pfad in eine Variable schreibst. Diese lässt sich dann zum "Zusammenbasteln" des Speicherpfades (Speicherpfad=Pfad1+""+Dateiname) verwenden.
Gruss Flupo
Application.ScreenUpdating = False
einbaust. Wenn alle Dateien geöffnet sind, per
Windows("Tabellenblattname der Haupttabelle").Activate
die erste Datei aktivieren und mit
Application.ScreenUpdating = True
die Bildschirmaktivierung wieder einschaltest.
Das Pfadproblem lässt sich lösen, indem du mit
Pfad1 = CurDir
den aktuellen Pfad in eine Variable schreibst. Diese lässt sich dann zum "Zusammenbasteln" des Speicherpfades (Speicherpfad=Pfad1+""+Dateiname) verwenden.
Gruss Flupo
Antwort 2 von wundi23
vielen Dank schonmal
allerdings stehe ich grade etwas verlassen am Bahnhof weil ich recht wenig ahnung von makros habe
könntest du es mir vielleicht noch etwas ausführlicher beschreiben?
allerdings stehe ich grade etwas verlassen am Bahnhof weil ich recht wenig ahnung von makros habe
könntest du es mir vielleicht noch etwas ausführlicher beschreiben?
Antwort 3 von wundi23
zudem bekomm ich einen fehler der besagt Index außerhalb des gültigen bereichs.....
makro sieht so aus bislang:
Sub OpenUp()
Application.ScreenUpdating = False
Workbooks.Open ("C:Pfad est.xls")
Windows("tabelle").Activate
Application.ScreenUpdating = True
End Sub
makro sieht so aus bislang:
Sub OpenUp()
Application.ScreenUpdating = False
Workbooks.Open ("C:Pfad est.xls")
Windows("tabelle").Activate
Application.ScreenUpdating = True
End Sub
Antwort 4 von wundi23
ok habs soweit....
nur das mit dem namen geht so glaube ich nicht...
ich möchte hierbei einen Teil fest vorgeben und den Rest aus einer Zelle der Datei einfügen
also:
C:/Pfad/UB "zelle a1".xls
und zelle a1 soll der Variable wert sein... geht das?
nur das mit dem namen geht so glaube ich nicht...
ich möchte hierbei einen Teil fest vorgeben und den Rest aus einer Zelle der Datei einfügen
also:
C:/Pfad/UB "zelle a1".xls
und zelle a1 soll der Variable wert sein... geht das?
Antwort 5 von woher
Hallo,
mehrere zusammen gehörige Excel-Datein lassen sich gleichzeitig öffnen, indem man sie als "Arbeitsbereich" speichert und bei späterer Bearbeitung eben diesen und nicht einzelne Dateien öffnet.
Probier dann noch folgendes aus:
aktiviere nacheinander die Dateien die verborgen bleiben sollen und klicke im Menue "Fenster" auf "ausblenden". Speichere den Arbeitsbereich, schließe ihn und erneut öfnen.
Ich kann das jetzt nicht ausprobieren, da mein Excel im Moment spinnt.
Gruß
woher
mehrere zusammen gehörige Excel-Datein lassen sich gleichzeitig öffnen, indem man sie als "Arbeitsbereich" speichert und bei späterer Bearbeitung eben diesen und nicht einzelne Dateien öffnet.
Probier dann noch folgendes aus:
aktiviere nacheinander die Dateien die verborgen bleiben sollen und klicke im Menue "Fenster" auf "ausblenden". Speichere den Arbeitsbereich, schließe ihn und erneut öfnen.
Ich kann das jetzt nicht ausprobieren, da mein Excel im Moment spinnt.
Gruß
woher