Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Per Makro datei speicher mit zusatz

Per Makro datei speicher mit zusatz
06.02.2006 11:56:16
Rupert
Hallo Forum,
Ich bräuchte wieder mal kurz eure hilfe
Ich habe vor in einer datei alles auf werte zu kopieren und dann speicher unter dem selben dateinamen wie aktuell nur den zusatz "-value" in einem unterordner der aktuellen datei.
Mein Problem ist jetzt, wie ich den dateinamen im Excel übernehmen kann.
vielleicht kann mir jemand helfen
danke
rupert

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro datei speicher mit zusatz
06.02.2006 12:21:41
Reiner
Hallo Rupert,
den verwendeten Dateiname kannst Du mit der folgenden Formel in einer Zelle anzeigen lassen:
=TEIL(ZELLE("Dateiname";A1);FINDEN("[";ZELLE("Dateiname";A1))+1;FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-1)
Um die Datei zu speichern habe ich ein von mir verwendetes VBA Script abgeändert:
SpeicherName = ThisWorkbook.Path & Range("C3-HIER IST DE VERWEIS AUF DIE ZELLE") & "-value" & ".xls"
'
ActiveWorkbook.SaveAs Filename:=SpeicherName
Viel Erfolg.
Gruß
Reiner
AW: Per Makro datei speicher mit zusatz
06.02.2006 12:42:07
Franz
Hallo rupert,
hier noch eine Makrovariante, bei der der Dateiname innerhalb des Makros ermittelt wird.

Sub DateinurmitWertenSpeichern()
' Makro1 Makro
' Makro am 06.02.06 von Peter Prüfer aufgezeichnet
Dim Blatt As Worksheet, Worbookname As String, Dateiname As String, Pfad As String
' Speichert ggf. Datei
If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Save
End If
' Alle Zellinhalte werden durch ihre Werte ersetzt
For Each Blatt In ActiveWorkbook.Worksheets
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Next
' Datei wird gespeichert
Pfad = ActiveWorkbook.Path & "\Values\"
Workbookname = ActiveWorkbook.Name
Dateiname = Left(Workbookname, Len(Workbookname) - 4) & "-value.xls"
ActiveWorkbook.SaveAs FileName:=Pfad & Dateiname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Gruß
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige