VBA-Speichern unter geht nicht ; Bugg wo??

Bild

Betrifft: VBA-Speichern unter geht nicht ; Bugg wo?? von: urs
Geschrieben am: 04.02.2005 14:49:42

Hallo zusammen
Wenn ich eine Datei geöffnet hatte und diese ohne Formeln (nur Werte) in einem öffentklichen Ordner speichern wollte, habe ich folgendes Macro benutzt.
Seit XP läuft es nicht mehr. Das Makro steht in der PERSONL.xls .

Was mache ich falsch? Wo versorgt man Makros, die auf alle Dateien angewendet werden können?

Besten Dank für Hilfe Gruss Urs


Sub Bibliospeichern()
    ActiveWorkbook.Save
    ChDir "Q:\Produkte\Datenblätter"
    ActiveWorkbook.SaveAs Filename:= _
        "Q:\Produkte\Datenblätter\" & ThisWorkbook.Name, _ 
         FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
         ReadOnlyRecommended:=False, CreateBackup:=False
    Cells.Select
    Selection.Copy
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Bild


Betrifft: AW: VBA-Speichern unter geht nicht ; Bugg wo?? von: Viet
Geschrieben am: 04.02.2005 15:17:59

Hallo,

der Fehler liegt vielleicht darin, dass du Thisworkbook.Name benutzt, dann speichert er immer als personl.xls
Versuche anstatt Thisworbook.Name dochmal Activeworkbook.Name

Gruß


Bild


Betrifft: AW: VBA-Speichern unter geht nicht ; Bugg wo?? von: urs
Geschrieben am: 04.02.2005 15:52:56

Hallo viet
besten Dank für den goldrichtigen Tip.

schönes Wochenende gruss urs


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellen zusammenfügen"