Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Checkboxen ausblenden, wenn Zelle leer

Forumthread: Mehrere Checkboxen ausblenden, wenn Zelle leer

Mehrere Checkboxen ausblenden, wenn Zelle leer
14.07.2024 17:19:43
Morph
Hallo an alle,

ich bräuchte eure Hilfe, um 6 Checkboxen (befinden sich alle in der selben Zelle, nur falls das wichtig ist) auszublenden, wenn eine bestimmte Zelle (B2) leer ist. Dasselbe möchte ich in einem Bereich von B2-B26 machen mit jeweils 6 eigenen Kästchen. Brauche ich dafür dann für jede Zeile einen Extra-Code? Zusätzlich, sollen die Checkboxen auch wieder deaktiviert sein, wenn sie wieder erscheinen.
Und wenn sich dann zusätzlich noch de Farbe der Checkbox von Grau zu Schwarz ändern würde, wenn sie aktiviert wird, hab ich endlich die gesamte Datei fertig.
Ich danke jetzt schon mal vielmals für die Hilfe mit meinen Problemen.

Beste Grüße
Marvin
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
14.07.2024 18:02:26
ralf_b
wie benutzt du denn 6 Checkboxen in 1 Zelle?
Wenn deine Datei fertig ist, kannst du uns doch eine Beispieldatei erstellen mit den Checkboxen, und dem Zellbereich den es betrifft. Das spart ne Menge Fragerei.
Du fragst nach den Ausblenden. Das Einblenden hast du wohl schon fertig? Zeig gleich mal mit in der Beispieldatei.
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 10:31:15
daniel
Hi
kannst du mal eine Beispieldatei hochladen?
es wäre wichtig zu wissen, ob du ActiveX- oder Formularfeld-Checkboxen verwendest und wie die Zellen B2:B26 zu ihrem Wert kommen.
Werden die vom Anwender direkt befüllt oder steht da eine Formel drin?
die nächste Frage wäre, wie kann man erkennen, welche Checkboxen zu welcher Zelle gehören, dh. stehen die in der gleichen Zeile ? wenn nein, wie dann?
Gruß Daniel
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 14:28:47
Morph
Hallo Daniel,

danke, für die Rückfrage. Bitte verzeih, dass ich sehr unbeholfen in dem Thema bin. Versuche eigentlich zusammen mit meinem Chef unsere Kinderklinik zu digitalisieren und bin eindeutig kein ITler. :D
Die Zellen B2-B26 werden von Hand beschrieben (im endgültigen Dokument stehen dort Namen). Ich habe es schon geschafft, dass die Spalten C-H in der jeweiligen Zeile geleert werden, wenn entsprechende Zelle B geleert wird (z.B. wenn jemand entlassen wird). Nun möchte ich, dass die Kontrollkästchen der jeweiligen Zeile nicht angezeigt werden, wenn B nicht beschrieben ist (wird dann übersichtlicher). Zudem soll die Beschriftung des jeweiligen Kontrollkästchens hellgrau/ausgegraut sein, wenn das Kätschen inaktiv ist.
Vielen vielen Dank für die Rückmeldung.
https://www.herber.de/bbs/user/170902.xlsm

Beste Grüße
Marvin
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 15:02:38
daniel
Hi
probier mal diesen Code im Modul des Tabellenblatts:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim shpe As Shape
If Not Intersect(Target, Range("B6:B15")) Is Nothing Then
For Each shpe In Me.Shapes
With shpe.TopLeftCell
If .Column = 9 Then
If .Row >= 6 Then
If .Row = 15 Then
If Intersect(.EntireRow, Columns(2)) = "" Then
shpe.Visible = False
Else
shpe.Visible = True
shpe.OLEFormat.Object.Value = False
End If
End If
End If
End If
End With
Next
End If

End Sub

die Gültigkeiten (Zeilen, Spalten) habe ich deiner Beispieldatei entnommen, die musst du ggf anpassen.
Grau bei nicht angehakt sein ist mit Formularsteuerelementen nicht möglich, das ginge ggf mit ActiveX
allerdings bedeutet ein ausgegrauter Text normalerweise, dass dieses Kontrollkästchen gesperrt ist und gar nicht ausgewählt werden kann.
für die Anzeige, ob es ausgewählt ist oder nicht, ist der Haken da.

Gruß Daniel
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 19:29:18
Morph
Hey Daniel,

wirklich vielen lieben Dank. Ein Problem gibt es noch: Wenn ich B6 leere, dann werden die ersten 3 Kontrollkästen von I6 und die letzten 3 von I7 etc. ausgeblendet. Ich werde nicht ganz schlau woran es liegt. Könntest du noch einmal drüber schauen.

Gruß
Marvin
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 20:00:07
daniel
du musst schauen, ob die Linke obere Ecke (TopLeftCell) der Checkbox in der richtigen Zelle liegt.
dabei ist der rechteckige Rahmen mit den Kreisen an den Ecken relevant, der erscheint wenn du die Checkbox zum Bearbeiten markierst.
Gruß Daniel
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 21:18:14
Morph
Könntest du mir noch helfen beide Codes miteinander zu verbinden? Oder kann ich einen von beiden umbenennen, dass er trotzdem noch funktioniert? 
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngTMP As Range

    On Error GoTo Fin

    Application.EnableEvents = False

    If Not Intersect(Target, Range("B2:B26")) Is Nothing Then

        For Each rngTMP In Target

            If Trim(rngTMP.Value) = "" Then

                Range(Target.Offset(0, 1), Target.Offset(0, 6)).ClearContents

            End If

        Next rngTMP

    End If

Fin:

    Application.EnableEvents = True

    If Err.Number > 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim shpe As Shape

If Not Intersect(Target, Range("B2:B26")) Is Nothing Then

For Each shpe In Me.Shapes

With shpe.TopLeftCell

If .Column = 9 Then

If .Row >= 2 Then

If .Row = 26 Then

If Intersect(.EntireRow, Columns(2)) = "" Then

shpe.Visible = False

Else

shpe.Visible = True

shpe.OLEFormat.Object.Value = False

End If

End If

End If

End If

End With

Next

End If



End Sub
Anzeige
AW: Mehrere Checkboxen ausblenden, wenn Zelle leer
15.07.2024 21:38:58
daniel
Es kann auf jedem Tabellenblatt nur genau ein Makro geben, das automatisch ausgeführt wird, wenn du einen Zellwert änderst.
Das liegt daran, dass dieses Makro genau so benannt sein muss:
"Private Sub Worksheet_Change(ByVal Target As Range)"
und es diesen Namen im Modul nur einmal geben darf.

daher musst du die beiden Makros zu einem zusammenfassen.
ja dazu muss man sich mal damit beschäftigen, was die Makros machen damit man erkennt, was in welcher Reihenfolge ablaufen muss.
aber das muss du dir sowieso erarbeiten, da letztendlich du dafür verantwortlich bist, dass das ganze funktioniert.
Anzeige
;

Forumthreads zu verwandten Themen

Checkboxen
Gordon

Moin,
ich habe auf einem Blatt 39 Checkboxen (CheckBox1 bis Checkbox40).
Der Code für Checkbox2 schaut so aus:
Private Sub CheckBox1_Click() With Worksheets("Neu") If CheckBox2.Value = True Then .Columns("I:K").ColumnWidth = 10.14 .Columns("L").ColumnWidth = 1.71 ElseIf CheckBox2....
17.09.2008 12:56:00
Thread-ID: 1010340
12 Beiträge
Variable Checkboxen
Gordon

Moin,
ich habe neulichst glaube ich schon mal eine ähnliche Frage gestellt, aber ich bin mir nun nicht sicher, ob es das selbe ist. Daher bitte ich um Verzweihung falls ich die selbe Frage stellen sollte. ;-)
Also ich habe 10 Checkboxen (1 bis 10). Kann man diese Boxen eigentlich Var...
22.09.2008 11:11:00
Thread-ID: 1011408
5 Beiträge
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 Beiträge
Checkboxen in Userform
Sebastian

Hallo zusammen,
Dank Tino (https://www.herber.de/bbs/user/56484.xls
) konnte ich einen Teil meines Problems schon lösen. Aber leider noch nicht ganz. Kurz zu meinem eigentlichen Problem. Ich möchte in einer (flexiblen) Userform Textboxen aus einer Tabelle füllen. Diesen Teil konnte ich...
04.11.2008 15:22:00
Thread-ID: 1021663
4 Beiträge
Frage zu checkboxen auf userform
chris

Hallo und guten morgen,
habe eine frage hoffe ihr könnt mir helfen.
ich habe eine Userform auf dieser habe ich mehere checkboxen von Name
chb_1
bis chb_40
Wie kann ich im VBA code abfragen ob eine bestimmte checkbox value true ist ?
im string fehler steht drinnen:
W...
13.11.2008 09:04:45
Thread-ID: 1024049
3 Beiträge
Problem mit Checkboxen per Vba zu erzeugen
Reinhard

Hallo Wissende,
im Zuge meines Versuches jmdm. in einem anderen Forum dabei zu helfen in einer Spalte ca. 90 Checkboxen per Vba zu erstellen stiess ich auf sehr unerwartete Schwierigkeiten.
Ich bekam es hin, daß die ca. 90 Checkboxen erstellt werden, aber sie sind schon mit einem Häkche...
13.11.2008 23:45:36
Thread-ID: 1024386
7 Beiträge
Mit checkboxen Einträge in Liste färben
adrian

Hallo,
habe fogendes kleines/ bzw. großes Problem und keine Idee wie ich es am geschicktesten Lösen könnte.
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen) Supplier habe ich 3 Checkbo...
18.11.2008 16:54:24
Thread-ID: 1025705
2 Beiträge
Anzeige
Checkboxen!!
adrian

Hallo,
falls sich hier jemand gut mit "checkboxen" gut auskennt und mir helfen könnte folgendes Problem zu lösen wäre das echt super!
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen)...
24.11.2008 10:50:00
Thread-ID: 1027215
3 Beiträge
Checkboxen
Tim

Hi
Wie kann ich zwei Checkboxen verbinden. Die eine Checkbox ist auf Tabelle1 und die andere auf Tabelle2.
Wenn Checkbox1 auf Tab1 angeklickt ist, sollte auch Checkbox2 auf Tab2 angeklickt sein oder umgekehrt.
Danke für Eure Hilfe
Gruß
Tim
15.01.2009 08:24:00
Thread-ID: 1039889
3 Beiträge
Checkbox im Zusammenspiel mit anderen Checkboxen
Stefen

Hi Leute
Ich bin am Ende meines bescheidenen Wissen. Daher wende ich mich lieber an Euch bevor der PC brennt.
Wollte nur, dass wenn eines der Checkboxen 38 bis 41 true ist sollte CheckboxNr. 37 nicht true sein.
also angeklickt.
Was mache ich da bloß wieder falsch?
If CheckBo...
25.01.2009 21:07:40
Thread-ID: 1043685
3 Beiträge
Änderung von Checkboxen n. Druckansicht verhindern
Checkboxen

Hallo zusammen,
ich habe auf meinen Arbeitsblatt ein Rechteck eingefügt. Auf diesem Rechteck habe ich eine Textbox und drei Checkboxen platziert. Jedes dieser Objekte habe ich per Objekteigenschaften wie folgt formatiert:
Von Zellposition und -größe unabhängig
Den Haken bei Objekt d...
29.01.2009 08:31:00
Thread-ID: 1044782
3 Beiträge
Checkboxen bleiben nicht mit Hacken konstant
Leon

Hi Zusammen
Habe eine so tolle Datei erstellt mit einigen UF's und auch Checkboxen etc. und erst jetzt merke ich, daß
wenn ich von einer UF zur anderen gehe und zurück meine angeklickten Checkboxen nicht mehr angeklickt sind.
Kann man dieses Problem beheben?
Gruß
Leon
01.02.2009 00:12:54
Thread-ID: 1045803
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige