Speichern unter ... ohne Buttons
12.02.2013 08:37:52
Thomas
ich bräuchte hilfe zu unten stehenden Code.
Mit dem Code wird die aktuelle Arbeitmappe gespeichert.
Die Arbeitsmappe enthält ein Tabellenblatt "Auswertung", dort sind zwei Buttons enhalten. Wie muss ich den Code verändernt, dass diese Buttons nicht mitkopiert werden?
Vielen Dank!
Gruß
Thomas
Private Sub Workbookspeichern_Click()
If Cells(3, 3) = "" Or Cells(3, 24) = "" Then
MsgBox ("Text")
Else
ActiveWorkbook.SaveAs Filename:="H:\" & Range("C3") & " - " & Range("X3") & ".xlsm"
MsgBox ("Die Evaluation wurde im Pfad H:\ " & Range("C3") & " - " & Range("X3") & ".xlsm" & " _
gespeichert!")
End If
End Sub
Anzeige