Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken wenn Bedingungen erfüllt

Drucken wenn Bedingungen erfüllt
07.03.2016 13:20:05
Thomas
Hallo zusammen,
meine VBA-Kenntnisse stoßen mal wieder an meine Grenzen.
Ich habe eine Tabelle erstellt in der einige Daten eingegeben werden. Tabellenblattname "U 1000"
Ob die Daten korrekt eingegeben sind, wird in Spalte "CG" ausgewertet. (Auswertung WAHR, FALSCH)
Geprüft werden die Zeilen: 7-11, 14-26, 28, 31, 35, 38, 39, 41-44, 46-50, 52
Wenn ich die Tabelle drucke, soll bei fehlerhafter Dateneingabe eine Message Box aufgehen.
Fehlerhafte Dateneingabe in Zeile XX. Trotzdem drucken? Ja / Nein
Wäre super, wenn mir jemand hierbei helfen kann.
Viele Grüße,
Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken wenn Bedingungen erfüllt
07.03.2016 15:47:18
Michael
Hallo Thomas!
zB so (Makro muss in das Klassenmodul der Arbeitsmappe, also im VBE DoKlick auf "DieseArbeitsmappe"):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Const ChkBlatt As String = "U 1000" 'Tabellenblatt und...
Const ChkBereich As String = "CG7:CG52" '...Zellbereich mit WAHR/FALSCH-Prüfung
Dim chk As Boolean
Dim PruefZelle As Range
Dim FehlerZeilen As String
Dim Warnung
With ThisWorkbook.Worksheets(ChkBlatt)
chk = WorksheetFunction.And(.Range(ChkBereich))
If chk = False Then
For Each PruefZelle In .Range(ChkBereich)
If PruefZelle.Value = "Falsch" Then
FehlerZeilen = FehlerZeilen & PruefZelle.Row & vbLf
End If
Next
Warnung = MsgBox("Eingabefehler in Blatt [" & ChkBlatt & "] in Zeile(n):" & _
vbLf & vbLf & FehlerZeilen & vbLf & vbLf & "Trotzdem drucken?", _
vbOKCancel, "Fehler - Drucken?")
If Warnung = vbCancel Then Cancel = True
End If
End With
End Sub
Das Tabellenblatt und den entsprechenden Zellbereich, in dem die WAHR/FALSCH-Prüfungen zu finden sind, kannst Du einfach im Makro anpassen.
LG
Michael

Anzeige
AW: Drucken wenn Bedingungen erfüllt
07.03.2016 17:12:05
Thomas
Hallo Michael,
vielen Dank für den Code. Zum Ausprobieren komme ich heute nicht mehr.
Anpassen sollte kein Problem sein.
Melde mich aber wenn ich ihn eingebaut habe.
Gruß,
Thomas

Gerne, gib Bescheid ob's passt! LG und owT
07.03.2016 17:54:55
Michael

AW: Gerne, gib Bescheid ob's passt! LG und owT
08.03.2016 19:19:13
Thomas
Hallo Michael,
wenn alle Werte in Spalte CG auf WAHR stehen passt es. Wenn eine oder mehrere Zellen auf FALSCH stehen, werden die Leerzellen auch als Fehler ausgegeben. Ich habe aber die leeren Zellen mit WAHR ausgefüllt, da es sich eh nur um eine Hilfsspalte handelt.
So passt es dann.
Besten Dank noch mal.
Viele Grüße,
Thomas

Okay, dann...
08.03.2016 22:48:04
Michael
Hallo Thomas,
tausche die Zeile
If PruefZelle.Value = "Falsch" Then
mit
If Not IsEmpty(PruefZelle) And PruefZelle.Value = "Falsch" Then
dann sollte es auch mit den leeren Zellen klappen, ohne mit WAHR aufzufüllen.
Passt's?
LG
Michael
Anzeige

348 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9