If vntAntwort = vbYes Then
With ActiveSheet
.SaveAs ThisWorkbook.Path & "\" & .Range("C5").Value, 51
End With
Else
Cancel = True
End If
End Sub
Deine Datei darfst Du aber nicht als xlsx-Datei speichern, sondern als xlsm bzw. xlsb abspeichern.
Wenn Du auf Drucken klickst, kommt eine Abfrage, wenn Du sie mit Ja beantwortest, wird eine Datei als xlsx-Datei mit dem Namen aus der Zelle C5 abgespeichert und auch gedruckt. Wenn Nein erfolgt kein Ausdruck und es wird auch nicht gespeichert.
Hi,
danke, habe es gerade mal versucht, aber wenn ich den Code in der Visual Basic Schaltfläche einfüge/erstelle und die Mappe wie beschrieben als .xlsb abspeichere, fragt er beim drucken nicht nach es auch abzuspeichern.
Ah, ja das war es. :28:
Wenn ich die Zeilen mit Firefox rüber kopiere funktioniert es.
Jetzt speichert er die Datei auf dem Desktop. Jetzt müsste ich nur noch wissen, wie man den Speicherort ändern kann. (-Die Datei soll ja von anderen bearbeitet werden und danach in meinen Ordner gespeichert werden).