Dringend nochmal gefragt!
22.02.2006 11:44:43
Andreas
Ich habe ein kleines Problem mit dem Speichern Makro.
Ich würde gern mein Tabellenblatt einzeln abspeichern bzw. Kopieren, welches auch funktioniert, nur möchte ich dabei gerne die Formeln & Schaltfäschen weg lassen.
Könnte mir jemand vielleicht dabei helfen.
Hier ist der soweit funktionierende Code.
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
neuName = Range("B3") & Range("B4")
ActiveWorkbook.SaveAs Filename:="C:" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
MsgBox " Die Datei wurde unter C: " & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub
Vielen Dank im Voraus
Gruß Andreas
Anzeige