---

Hallo,

ich würde gerne den Dateinamen in die Kopfzeile übernehmen ... ist ja an sich auch kein Problem, er wird bloss immer mit der Dateiendung .xls angezeigt ... und das würde ich gerne vermeiden.

Gibt es irgendeinen Weg, die Anzeige der Dateiendung in der Kopfzeile zu umgehen?

Danke für eure Hilfe

Da Volli

Ach ja ... Excel 2003 SP3 auf WinXP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
blend mal im Windows-Explorer die Dateiendungen aus.
Auf meinem XP Office 2003 läuft es über diese Einstellung.
Auf meinen WIN7 Office 2007 nicht. Hab ich aber jetzt nicht weiter hinterfragt, ich hoffe, es hilft Dir auch so schon.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke,

hat Funktioniert ... ist aber nicht wirklich die Lösung. Das Ganze ist ein Dokument, an dem mehrere Nutzer arbeiten ... und jeder hat da andere Einstellungen, manch einer blendet die Endungen ein, ein anderer aus ... und je nachdem wer das Dokument ausdruckt, sieht es dann anders aus. Ist mir ein bischen zu vage  das Ganze.

Gibt es noch einen anderen Weg, unabhängig von den Systemeinstellungen?

Danke

Da Volli

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jepp, per Makro 
Nicht selbst geschrieben, sondern mit google gefunden: >> klick <<
HTH

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

bei dem Makro hat man aber wohl ein ähnliches Problem:

Wenn die Endungen nicht eingeblendet sind, werden 3 Buchstaben vom Namen weggenommen. (Ich kanns aber auch nicht besser...)

------------------
Gruß
Mörchen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wow, danke ...

ich hab mit dem Makro aber noch ein weiteres Problem ... wie krieg ich das so in mein Sheet, dass es funzt? Habe keine Ahnung von Makros und solchen Dingen

da Volli

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich denke, das hier sollte erhellen >> klick <<
Sorry, ich hab grad echt wenig Zeit, ich hoffe Du kommst so weiter, wenn nicht, weiterfragen, es kommt bestimmt noch wer anders vorbei 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mappe1.xls.txt

Es geht auch über ein Workbook Macro (Workbook_BeforePrint)

Im Excel 2007 hat es 4 Buchstaben. Als Ansatz siehe den Anhang

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

Mörchen:

Zitat:

---

Wenn die Endungen nicht eingeblendet sind, werden 3 Buchstaben vom Namen weggenommen.

---

Ich habe mir die Makros nicht näher angesehen. Allerdings wird - egal ob eingeblendet oder nicht - immer ein Punkt als Trenner Dateiname.Endung verwendet.

Folglich: Zeichenkette (String) einlesen, prüfen, ob im Dateinamen ein Punkt enthalten ist - unabhängig, ob an vierter oder an fünfter Stelle von rechts, das ist Feinarbeit. Falls Punkt: Kappe die vier (fünf) letzten Stellen; falls kein Punkt: Mach' nix  . Unterscheidung zur Endung .xls oder .xlsx z. B. über die Office-Version oder die Länge des Strings oder...

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Makro ist auch in Bezug auf die Blätter noch nicht ganz sauber..
Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mappe1.xls.txt

Mahlzeit,

Axel.Strassers Mappe erweitert:

Code:

---

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim str As String 'Zeichenkette als Variable festlegen
Dim i As Integer 'Wo steht der Punkt (von hinten gemessen)

  str = ThisWorkbook.Name 'belegen - NORMALFALL
'    'TESTS:
'    str = "Mappe_xlsx.xlsx" '2007
'    str = "Mappe_ohne" 'Endungen ausgeblendet
  i = InStr(1, str, ".")
  'Bei Namen OHNE Endung ist i = 0
 
  If Not i = 0 Then 'Falls Endung vorhanden: Kappen
    i = Len(str) - i + 1
    str = Left(str, Len(str) - i)
    End If
'  Debug.Print str

  Worksheets(1).PageSetup.LeftHeader = str

End Sub

---

Drücke Alt+F11 und - falls der ProjektExplorer nicht angezeigt wird - Strg+R. Dann in "DieseArbeitsmappe" - siehe Anhang. Wird VOR dem Drucken - also auch bei Druckvorschau - der Mappe ausgeführt. Endung beliebig: KEINE, .xls, .xlsx

Tuts das?

[Edit: Danke für den Hinweis, Axel: Nur DAS ERSTE Register ist betroffen... /Edit]

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

[Diese Nachricht wurde von Paulchen am 22. Apr. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

hab durch Zufall was gefunden (was auf jeden Fall bei mir) den Dateinamen beim öffnen aktualisiert:

=ERSETZEN(LINKS(ZELLE("Dateiname";A1);FINDEN(".";ZELLE("Dateiname";A1);1)-1);FINDEN("[";LINKS(ZELLE("Dateiname";A1);FINDEN(".";ZELLE("Dateiname";A1);1));1);1;"")

Vielleicht hilft's noch...

Gruß Tutti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP