Office: Dateiname ohne Endung

Hi Leute!

Erstmal hallo ..Lese schon länger still und heimlich bei euch mit... und jetzt hab ich mich mal angemeldet :-)

Folgendes Problem:
Möchte innerhalb eines VBA Makros die Datei als .xlsm (Excel mit Makros) speichern...

Stepweise hänge ich jetzt beim Auslesen des Dateinamens.... kanns schon speichern...allerdings nur als .xlsx.xlsm .. nicht so Toll *Smilie

Nun hab ich bereits verschiedene Lösungsansätze gefunden, wie meine bevorzugte:

(Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - InStrRev(ActiveWorkbook.Name, ".") + 1))

Problem:
die "InStrRev" Funktion dürfte nicht wirklich klappen... Bekomm 45 Rückgemeldet.. sollte ja 5 oder so sein hmm ... Activeworkbook.fullname ist allerdings korrekt... da bekomme ich den Dateinamen inkl. ".xlsx" zurückgemeldet.

Jemand eine Idee, was da nicht funktioniert? Oder wurde die InStrRev Funktion geändert? Gefundene Beiträge waren schon recht alt.

(Ps.: Bin in Excel 2010 unterwegs)

Danke schon mal im Voraus... hoffe, es gibt nicht genau dieses Thema bereits...gefunden hätte ich nichts :-)

:)

 

Moin!
Len() hat da nix verloren!
Code:

Gruß Ralf

 

Hallo,

die Funktion sucht zwar von rechts nach links, gibt die Position aber von links nach rechts gesehen aus. Das war, solange ich mich erinnern kann, auch niemals anders.

Gesamtlänge - Fundstelle (InstrRev) ergibt also die Länge der Dateiendung, nicht die Position.

Ich arbeite lieber mit Split / Join:
Code:

Grüße
EarlFred

 

Hi nochmal!

VIELEN Dank für eure Antworten.. hab es jetzt auch mit Hilfe eines bekannten Lösen können... hier der Vollständigkeit halber mein Code, der auch funktioniert.
(Alte Date bleibt bestehen, eine neue .xlsm mit selben Namen wird im selben Ordner gespeichert):

ActiveWorkbook.SaveAs (Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".") - 1) & ".xlsm"), 52

 

Was ist jetzt an Deiner Lösung anders als an meiner?
Gut, Deine ist länger …
Übrigens:
Wenn Du den FileFormat-Parameter angibst, ist es redundant, die Dateiendung ".xlsm" zu verwursten.
Code:

Gruß Ralf

 

Gruß Ralf

Siehe mein Benutzername --> Name ist Programm :-D :-D

War mir klar - hab es dann auch noch entsprechend "verkürzt" ... wollte euch nur teilhaben lassen an meinem Mini-Erfolg :-D

Danke nochmal ;-)