Ausdruck nur nach Eingabeergänzung
01.08.2007 09:13:00
Peter1
ich habe folgendes Problem.
in einer von mir erstellten Mappe mit 3 Blättern müssen mehrere Eingaben gemacht werden, bevor diese in Blatt 2 übertragen und dieses dann ausgedruckt werden kann.
Die Eingabefelder (Blatt 1) sind beim Öffnen der Mappe leer und die Eingaben erfolgen dann über eine Listenauswahl.
Der Druck von Blatt 2 erfolgt über einen Button (mit entspr. Makro).
Ich möchte nun in das Druckmakro integrieren, dass ein Ausdruck erst nach Eingabe der fehlenden Daten möglich ist, d.h. die Felder nicht mehr leer sind. Es sollte durch eine MSG-Box angezeigt werden, welche Eingaben fehlen und der Cursor sollte, nach Quittieren der Box, in das erste Feld mit fehlenden Eingaben springen.
So beginnt das Makro:
Private Sub CommandButton11_Click()
Sheets("Tabelle2").Range("A1:L53").PrintOut Copies:=2
Für Experten sicher eine lächerliche Frage, nicht aber für mich.
Für baldige Hilfe wäre ich sehr dankbar, die bisherigen Erfahrungen hier lassen mich hoffen.
Gruß Peter