11.04.2019, 20:22
11.04.2019, 20:23
(11.04.2019, 10:28)Steffl schrieb: [ -> ]Hallo,
folgendes Makro gehört in DieseArbeitsmappe
Code:Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim vntAntwort As Variant
vntAntwort = MsgBox("Soll die Datei gespeichert wernden?", vbQuestion + vbYesNo, "Frage")
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.
12.04.2019, 06:52
Hallo,
Datei abgespeichert, geschlossen und wieder aufgerufen? Und beim Starten die Makros aktiviert?
Datei abgespeichert, geschlossen und wieder aufgerufen? Und beim Starten die Makros aktiviert?
12.04.2019, 09:03
Ja, alles gemacht. Hier auch mal ein Screenshot wo ich es rein geschrieben hatte.
12.04.2019, 09:10
(12.04.2019, 09:03)Manitu03 schrieb: [ -> ]Ja, alles gemacht. Hier auch mal ein Screenshot wo ich es rein geschrieben hatte.
Stefan schrieb doch extra, wohin das Makro gehört!
Gruß Uwe
12.04.2019, 10:07
Oha, ja, wer lesen kann ist klar im Vorteil, danke.
Allerdings erhalte ich nun eine Fehlermeldung beim Ausdrucken (-siehe Screenshot) : Fehler beim Kompilieren - Synthaxfehler.
Allerdings erhalte ich nun eine Fehlermeldung beim Ausdrucken (-siehe Screenshot) : Fehler beim Kompilieren - Synthaxfehler.
12.04.2019, 11:00
Hallo,
keine Ahnung. Könntest Du die Datei hier hochladen?
keine Ahnung. Könntest Du die Datei hier hochladen?
12.04.2019, 12:34
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).
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).
12.04.2019, 17:09
Hallo,
und jeder deiner Kollegen hat auf deine Ordner Zugriff? Dann gebe diesen anstatt dem ThisWorkbook.Path an.
(12.04.2019, 12:34)Manitu03 schrieb: [ -> ].....Die Datei soll ja von anderen bearbeitet werden und danach in meinen Ordner gespeichert werden).
und jeder deiner Kollegen hat auf deine Ordner Zugriff? Dann gebe diesen anstatt dem ThisWorkbook.Path an.