Makro zwischendurch abbrechen
Andre
Mein Makro erledigt folgende Dinge:
Rechnungsnummer erstellen, Drucken, Kopie speichern in eine andere Datei und Rechungsinhalt der aktuellen Datei leeren, damit eine neue Rechnung mit neuer Rechnungsnummer geschrieben werden kann.
Da man selber beim Erstellen einer Rechungen entscheiden muss ob eine ermäßigte Steuer oder die volle Steuer zugrunde gelegt werden muss habe ich in einer Zelle folgenden Inhalt :
=WENN(K28="";"";WENN(UND(U28="";V28="");"Steuerkennzeichen fehlt";""))
Mein Problem ist, dass die Person die diese Rechnungsdatei benutzt so manchesmal den Satz mit dem Steuerkennzeichen übersieht (obwohl er rot ist ). Jetzt möchte ich in diesem Makro VOR dem drucken die Prüfung ob der Satz "Steuerkennzeichen fehlt" in den Zellen L28 bis L51 vorhanden ist (am besten mit einer MsgBox), wenn neindann weiter zum drucken, wenn JA, dann MsgBox aufblinken mit dem Satz : Steuerkennzeichen nicht vergessen!! und beim klicken auf ok wieder zurück in die Zelle "G28".
Ich hatte schon so einiges ausprobiert, hatte dann aber das problem dass ich zwar diese Meldung bekam, aber wenn ich diese mit ok bestätigt habe lief das Makro dennoch weiter und fragte micht nach der Kopienanzahl. Beim Abbrechen der Kopienanzahl kam dann die Fehlermeldung "Laufzeitfehler" Typ unverträglich.
Wie bekomme ich diesem Fehler weg, wenn ich Abbreche das diese Meldung nicht erschein.
hier dafür das Makro :
Application.ScreenUpdating = False
Datum = Cells(25, 3).Value
Cells(25, 3).Value = Datum
Dim anzahl As Double
Rows("11:11").Select
'Selection.EntireRow.Hidden = True
anzahl = InputBox(" Anzahl Ausdrucke")
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, _
Copies:=anzahl
Ich weiß, das ist jetzt sehr viel... aber ich hoffe mir kann trotzdem jemand helfen.
Vielen Dank im Voraus.