Blatt speichern unter Registernamen und Zellnamen
11.02.2008 11:21:00
BuStü
ich versuche ein Tabellenblatt einer Arbeitsmappe unter dem Registernamen und den Namen einer Zelle aus einem weiteren Tabellenblatt zu speichern.
folgenden Code habe ich verwendet, der leider zu einer Fehlermeldung führt:
Private Sub BlSpeichern_Click()
Dim SavePath As String
SavePath = "F:\Lager\Bestand"
'Kopiert die aktuelle Tabelle
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Range("Bestandsübersicht!D4" _
).Value & ".xls"
End Sub
Was habe ich verkehrt gemacht.
MfG
Bustue
Anzeige