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