Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateipfad ausgeben

Dateipfad ausgeben
05.11.2004 16:51:54
Mark
Hallo,
ich möchte unten auf meinem Excel Dokument den kompletten Dateipfad(z.B. "D:Dokumente und Einstellungen\Eigene Dateien\Preis.xls" ausgeben. Wie kann man das hinbekommen.
Vielen Dank
-Mark-

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateipfad ausgeben
05.11.2004 16:55:25
Hajo_Zi
Hallo Mark,
die Version ist schon von Relevanz.
Aktueller Datenpfad in Kopf-/Fußzeile
‚das geht mit folgenden VBA-Zeilen in DieseArbeitsmappe:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
‘   Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" & ActiveSheet.Name ‘(Komplette Dateiname einschl. Phad + Register)
‘    Kopfzeile Links
Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path & "\" ‘(nur Phad)
‘   Left=Links; Center=Mitte; Right=Rechts
'    Header=Kopfzeile; Footer=Fußzeile
End Sub

Oder mal hier schauen http://spotlight.de/zforen/amse/m/amse-1034161265-18110.html
ab XP &[Pfad]&[Datei]

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Dateipfad ausgeben
05.11.2004 17:09:03
Mark
Habe ich versucht, aber wahrscheinlich nicht richtig. Habe die Datei mal hochgeladen. Vielleicht probierst Du es mal! Danke!
https://www.herber.de/bbs/user/13042.xls
AW: Dateipfad ausgeben
05.11.2004 17:10:41
Hajo_Zi
Hallo Mark,
das Problem ist einbfach. Du hast den Code nicht kopiert.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Dateipfad ausgeben
05.11.2004 17:24:10
Mark
Kannst Du mir das mal zeigen. Ich krieg es nicht gebacken. Beispiel Link-

Die Datei https://www.herber.de/bbs/user/13045.xls wurde aus Datenschutzgründen gelöscht

Gib mal bitte deinen Code in dieses Dokument ein und leg es wieder auf den Server. Dann kann ich meine Fehler am besten sehen. Danke!


AW: Dateipfad ausgeben
05.11.2004 17:29:01
Hajo_Zi
Hallo Mark
ersetze mal ‘ duch ' (zweitbelegung #)

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Dateipfad ausgeben
05.11.2004 17:43:04
Mark
Jetzt verstehe ich gar nichts mehr! Mach mal bitte eine neue Beispiel Datei (einfach nur den Link angeben) - dann kann man das nachlesen und alle haben was davon!
AW: Dateipfad ausgeben
05.11.2004 17:44:50
Hajo_Zi
Hallo Mark
https://www.herber.de/bbs/user/13047.xls
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Dateipfad ausgeben
05.11.2004 17:48:48
Mark
Ja es klappt danke! Aber ich bekomme eine Fehlermeldung- "Laufzeitfehler `9`: Index außerhalb des gültigen Bereiches". Waran liegt das jetzt." Dannach zeigt er aber trotzdem den Dateipfad wie gewünscht an.
Anzeige
AW: Dateipfad ausgeben
05.11.2004 17:52:22
Hajo_Zi
Hlallo Mark,
den Fehler kann ich bei den Angaben nicht simulieren.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Dateipfad ausgeben
05.11.2004 17:54:36
ypsilon
hi Hajo,
du hast nur den Tabellennamen mit "Tabelle1" angegeben
das ding heisst nur "1"
cu Micha
AW: Dateipfad ausgeben
05.11.2004 17:58:36
Hajo_Zi
Hallo Micha,
ich habe es mit seiner Datei getetet und da war "Eingabe" aktiv. Und bei mir lief es Fehlerfrei.
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Phad)

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Dateipfad ausgeben
05.11.2004 18:00:32
yps
hi Hajo,
diese zeile:
Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Phad)
ist nicht auskommentiert ! ergo : kleines fehlerchen ;-)
cu Micha
AW: Dateipfad ausgeben
05.11.2004 18:03:21
Hajo_Zi
Hallo Micha,
aber nicht bei der in meinem Abspann angegebenen Version.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Dateipfad ausgeben
05.11.2004 18:09:50
yps
hi Hajo,
in der antwort von "05.11.2004 17:44:50"
https://www.herber.de/bbs/user/13047.xls
cu Micha
Anzeige
AW: Dateipfad ausgeben
05.11.2004 18:17:31
Hajo_Zi
Hallo Micha,
es kommt nur die Frage ob gespeichert werden soll, keine Fehlermeldung.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Dateipfad ausgeben
05.11.2004 18:22:43
yps
ähhmm,
ich zweifle jetzt allerdings an mir selbst :-(
was hat dieses makro:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'   Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" & ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
'    Kopfzeile Links
Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Phad)
'   Left=Links; Center=Mitte; Right=Rechts
'    Header=Kopfzeile; Footer=Fußzeile
End Sub

mit speichern zu tun ? *grübel* und das ist der einzige code in dieser mappe
hmmm
nachdenklich sich verabschiedender Micha
Anzeige
AW: Dateipfad ausgeben
05.11.2004 18:29:57
Hajo_Zi
Hallo micha,
vor dem schließen wird in die Fuß/kopfzeile was geschrieben. Darum speichern.
Auch das gleiche ist eine Veränderung.
Gruß Hajo
AW: Dateipfad ausgeben
05.11.2004 18:40:37
yps
hi Hajo,
entweder ich bin ein bischen begriffsstutzig (kann natürlich durchaus sein) oder du hast tomaten auf den augen *grins*
Private Sub Workbook_BeforePrint(Cancel As Boolean) --- was hat das mit speichern zu tun ?
Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Phad) --- es gibt in dieser mappe KEINE "Tabelle1"
cu Micha
AW: Dateipfad ausgeben
05.11.2004 18:44:21
Hajo_Zi
Hallo micha,
das ist mir schon klar worauf Du hinaus willst.
Ich hatte schon im ersten Beitrag geschrieben das die Vesion schon von Relevanz ist.
Die Version 2003 bringt bei nicht vorhandensein der "Tabelle1" keine Fehlermeldung.
Jetzt gehe ich erstmal Skat spielen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Dateipfad ausgeben
05.11.2004 18:49:53
yps
hi Hajo,
ich habe ebenfalls 2003 und bei kommt eine fehlermeldung:
Index außerhalb des gültigen Bereichs (Fehler 9)
naja erstmal viel spass beim skat spielen
cu micha
AW: Dateipfad ausgeben
05.11.2004 23:26:26
Hajo_Zi
Hallo Micha,
ich habe eigentlich als ich diesen Rechner gekauft habe keine Veränderungen an Excel und dem Betriebsystem vorgenommen, bis auf die SP. Gerade weil ich viel in Foren Antworte. Meine Veränderungen stehen auch in meinem Abspann.
Ich vermute einfach wir bekommen es jetzt nicht raus warum bei Dir ein Laufzeitfehler und bei mir nicht.
Ich gehe mal davon aus das du das gleiche SP für Office hat wie ich.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige