Datenüberprüfung bei leeren Zellen?

Hallo zusammen, 🙋
bei folgenden Sachverhalt komme ich im Moment nicht weiter und bitte um Unterstützung.
Gibt es eine Möglichkeit dieses erstellte Formular mit einer Art Überprüfung (Info-, Warn-, oder Stopmeldung) auszustatten, ob die Zellen D6,D7 und D13,D14 mit einem Text ausgefüllt sind bevor auf der rechten Seite eine von den 4 Meldungen angeklickt werden kann?
Noch schöner würde ich es finden wenn erst D13 und D14 ausgefüllt werden muss und dann die Zellen D6 und D7 bevor eine von den 4 Meldungen angeklickt werden kann.
Versuche es im Moment mit Datenüberprüfung, (zähle die Werte über die Formel anzahl2) aber dort komme ich nicht auf eine funktionierende Lösung. Das Ergebnis von der Formel =anzahl2() habe ich auf ein zweites Tabellenblatt. Dachte ich könnte an den 2 Werten ein Datenüberprüfung koppeln und die Bedingung dafür in eine Formel bei der Datenüberprüfung reinschreiben. Habe selbst noch nicht die große Erfahrung mit Datenüberprüfung. Evtl. gibt es ja auch einen anderen Lösungsweg, welcher mir noch unbekannt ist oder der Ansatz mit anzahl2() ist evtl. doch gut aber ich bekomme es nicht umgesetzt.
Über Hilfe wäre ich sehr dankbar. 👍
https://www.herber.de/bbs/user/148231.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() 'die Tabelle mit der AU wird aktiviert Tabelle1.Activate 'die Zellen leeren Cells(5, 4) = "" Cells(6, 4) = "" Cells(7, 4) = "" 'Optionsfelder unsichtbar und Wert auf Null ActiveSheet.Shapes("Optionsfeld 1").Visible = False ActiveSheet.Shapes("Optionsfeld 2").DrawingObject.Value = 0 ActiveSheet.Shapes("Optionsfeld 2").Visible = False ActiveSheet.Shapes("Optionsfeld 2").DrawingObject.Value = 0 End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(5, 4).Value "" And Cells(6, 4).Value "" And Cells(7, 4).Value "" And Cells(13, 4).Value "" And Cells(14, 4).Value "" Then ActiveSheet.Shapes("Optionsfeld 1").Visible = True ActiveSheet.Shapes("Optionsfeld 2").Visible = True ActiveSheet.Shapes("Optionsfeld 3").Visible = True ActiveSheet.Shapes("Optionsfeld 4").Visible = True ElseIf Cells(5, 4).Value = "" Or Cells(6, 4).Value = "" Or Cells(7, 4).Value = "" Or Cells(13, 4).Value = "" Or Cells(14, 4).Value = "" Then ActiveSheet.Shapes("Optionsfeld 1").Visible = False ActiveSheet.Shapes("Optionsfeld 2").Visible = False ActiveSheet.Shapes("Optionsfeld 3").Visible = False ActiveSheet.Shapes("Optionsfeld 4").Visible = False End If End Sub

Hallo ich war spontan außer Lande, habe aber jetzt etwas weiter an eine Lösung gesucht.
Wenn in den Zeilen nichts drin steht dann sind per VBA die Optionsfelder ausgblendet.
Werden die Zeilen gefüllt dann scheinen erst die Optionsfelder zum anklicken.
Sobald eine Zelle unbefüllt bleibt erscheinen also nicht die Optionsfelder.
Hier ist der VBA Code und besteht aus 2 Teilen:
Beim starten der Datei werden die Zellen erstmal gelöscht damit sie nach dem Öffnen auch neu befüllt werden.
Dies kann aber auch ausgeschaltet werden.
In meine Arbeitsmappe kommt:
Option Explicit


Private Sub Workbook_Open()
'die Tabelle mit der AU wird aktiviert
Tabelle1.Activate
'die Zellen leeren
Cells(5, 4) = ""
Cells(6, 4) = ""
Cells(7, 4) = ""
'Optionsfelder unsichtbar und Wert auf Null
ActiveSheet.Shapes("Optionsfeld 1").Visible = False
ActiveSheet.Shapes("Optionsfeld 2").DrawingObject.Value = 0
ActiveSheet.Shapes("Optionsfeld 2").Visible = False
ActiveSheet.Shapes("Optionsfeld 2").DrawingObject.Value = 0
End Sub

und in das entsprechende Tabellenblatt kommt folgender Code:
Dieser beschreibt mit Cells die Zellen, welche befüllt sein sollen, nämlich soll der Inhalt der Zelle größer als null sein (Value "") um Wahr zu sein und dann folgend die Optionsfelder, welche mit True daraufhin eingeblendet werden sollen. Wenn der Wert in den einer von den Zeilen null ist (Value = ""), dann werden durch False keine Optionsfelder eingeblendet.


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(5, 4).Value  "" And Cells(6, 4).Value  "" And Cells(7, 4).Value  "" And Cells(13, 4).Value  "" And Cells(14, 4).Value  "" Then
ActiveSheet.Shapes("Optionsfeld 1").Visible = True
ActiveSheet.Shapes("Optionsfeld 2").Visible = True
ActiveSheet.Shapes("Optionsfeld 3").Visible = True
ActiveSheet.Shapes("Optionsfeld 4").Visible = True
ElseIf Cells(5, 4).Value = "" Or Cells(6, 4).Value = "" Or Cells(7, 4).Value = "" Or Cells(13, 4).Value = "" Or Cells(14, 4).Value = "" Then
ActiveSheet.Shapes("Optionsfeld 1").Visible = False
ActiveSheet.Shapes("Optionsfeld 2").Visible = False
ActiveSheet.Shapes("Optionsfeld 3").Visible = False
ActiveSheet.Shapes("Optionsfeld 4").Visible = False
End If
End Sub

Die Optionsfelder mit ihren Nummerierungen müssen mit den Optionsfeldernamen auf dem Tabellenblatt übereinstimmen.
Dies Funktion funktionert auch mit Kontrollkästchen. ;-)
ActiveSheet.Shapes("Kontrollkästchen 1").Visible = True
ActiveSheet.Shapes("Kontrollkästchen 1").Visible = False

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung bei leeren Zellen?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung bei leeren Zellen?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread