Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck erst nach erfüllter Bedingung

Ausdruck erst nach erfüllter Bedingung
04.05.2005 12:50:15
Bastian
Hallo liebe Leute,
ich möchte, dass der Benutzer seine Tabelle erst ausdrucken lassen kann, wenn er Eingaben korrekt ausgeführt hat.
Dafür möchte ich mit einer "Wenn-Beziehung" die Werte jeder Zeile auf Richtigkeit überprüfen. Liegt ein Fehler vor schreibt die Wenn-Beziehung die Ziffer 0 in Spalte X der entsprechenden Zeile sonst eine 1. Sind alle Werte Null bzw. die Summe aller Zeilen Null kann das Tabellenblatt ausgedruckt werden, sonst sollte eine Mitteilung ergehen, dass der Benutzer seinen Fehler beseitigen soll.
Kann mir dafür einer einen Code zu Verfügung stellen? Für alle Fälle schon mal Danke.
Viele Grüße, Bastian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck erst nach erfüllter Bedingung
04.05.2005 13:22:30
Hajo_Zi
Hallo Bastian,
unter DieseArbeitsmappe.
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Tabelle1" Then Exit Sub
If Application.WorksheetFunction.Sum(Range("X:X")) = 0 Then
MsgBox "Fehler"
Cancel = True
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Ausdruck erst nach erfüllter Bedingung
04.05.2005 13:49:36
Bastian
Lieber Hajo,
für mich bist Du ein echter Könner. Vielen Dank, bin glücklich damit.
Ich wünsche Dir viel Erfolg.
Gruß, Bastian

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige