Supportnet / Forum / Tabellenkalkulation

Hallo Excel-Freunde! Ich habe da mal wieder ein Problem! Ich habe für meine Diplomarbeit eine sehr aufwendig Programmierung mit Makros gebastelt. Innerhalb dieser Makros öffne ich bestimmte Dateien über die Angabe des Pfades! Ich möchte nun meine Programmierung auf CD brennen! Wenn ich dies ohne Änderungen mache, tritt ein Fehler auf, da die Pfade nicht mehr stimmen. Giebt es einen allgemeingültigen Befehl, z. B. alle Dateien des gleichen Ordners öffnen! Dann könnte ich ja einen speziellen Ordner anlegen und Gut ist. Vielen Dank für die Hilfe im voraus! Ines PS: So sieht das im Moment aus! Application.DisplayAlerts = False Dim Pfad As String Pfad = "C:Dokumente und EinstellungenInes HeykesEigene DateienEIGENE DINGE !!!KunsthalleStändige DatenAuswertungs-ModuleUnternehmensauswertung 1.XLS" Workbooks.Open Filename:=Pfad Pfad = "C:Dokumente und EinstellungenInes HeykesEigene DateienEIGENE DINGE !!!KunsthalleStändige DatenAuswertungs-ModuleUnternehmensauswertung Kosten.XLS" Workbooks.Open Filename:=Pfad usw.

Hi Ines,

ich kenne dein Problem leider nicht wirklich, deswegen nur eine Allgemeine Anmerkung:
Mir hat die Anweisung:

Pfad = ThisWorkbook.Path

gut geholfen, dabei muß natürlich Pfad als String definiert worden sein. Dabei ist Pfad dann der aktuelle Pfad des Workbooks. Mittels Text - Verknüpfungen lassen sich von da aus auch Unterverzeichnisse des aktuellen generieren. ZB

Verzeichniss = Pfad & "" & "Verzeichnis2" & "" & "Dateix.doc"

Beste Grüße

Primut

Hi,

muß natürlich heißen:

Verzeichniss = Pfad & "" & "Verzeichnis2" & "" & "Dateix.doc"

Primut

Sorry,

in der Vorschau war der Backslash noch zu sehen,
natürlich zwischen jeweils beiden Anführungszeichen.

Gruß Primut

darf ich versuchen zu helfen?

Verzeichniss = Pfad & "\" & "Verzeichnis2" & "\" & "Dateix.doc"

Hallo Leute!

Sorry, aber aus Euren Ansagen werden ich nicht ganz schlau!

Ich versuche es mal anders!

Was für einen Befehl muss ich in mein Makro eingeben, damit alle Dateien des gleichen Ordners, wie die Makro-Datei, geöffnet werden.

Ich hoffe, ich habe mich jetzt besser ausgedrückt!

Ines

Hi,

lass einfach mal den ganzen Pfad zur Datei weg, und nimm nur den Dateinamen selbst .
Also nicht "C:\Eigene.....\Datei.xls"
sondern nur: "Datei.xls"
Die Datei sollte dann aus dem gleichen Verzeichnis geöffnet werden. (funktioniert jedenfalls bei mir)

Gruß
Enrico

Hallo Enrico!
Könntest Du mir bitte für diese Datei das mal aufschreiben.

Unternehmensauswertung 1.XLS

Bei mir sagt Excel immer Kompilierungsfehler!!!
Danke!
Ines

müsste dann etwa so aussehen:

Workbooks.Open Filename:="Unternehmensauswertung 1.XLS"

bzw bei Verwendung deiner Variablen Pfad (wenn du diese denn brauchst)

Pfad = "Unternehmensauswertung 1.XLS"
Workbooks.Open Filename:=Pfad

Enrico

Sorry, Enrico, aber bei mir gibt es dann eine Fehlermeldung (Falscher Pfad)!
Keine Ahnung, wo es da nun hängt!
Die Dateien sind alle in dem gleichen Ordner wie die Ursprungsdatei!
Ines


Sub AAAAAAuswertungsModul()


Application.DisplayAlerts = False

Workbooks.Open Filename:="Unternehmensauswertung 1.XLS"
Workbooks.Open Filename:="Unternehmensauswertung Kosten.XLS"
Workbooks.Open Filename:="Unternehmensauswertung Erlöse.XLS"
Workbooks.Open Filename:="Unternehmensauswertung Personal.XLS"
Workbooks.Open Filename:="Unternehmensauswertung Jahresdaten.XLS"
Workbooks("Modul 1.XLS").Activate
Application.Run "´Modul 1.XLS´!DatentrennungNeu"
usw.

Dann greifen wir doch die Idee von Primut nochmal auf, dann sieht das so aus:

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung 1.XLS"
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung Kosten.XLS"
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung Erlöse.XLS"
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung Personal.XLS"
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Unternehmensauswertung Jahresdaten.XLS"
_____________________________________________________________________________________________

Enrico

Prima Enrico, das funktioniert!
Vielen Dank für Deine Mühe!

Liebe Grüsse aus dem kalten Ostfriesland

Ines

• Makro-Pfad um CD zu brennen
• Makro-Pfad für CD-Brennung! Hilfe!!!
• Pfadprobleme