Office: (Office 2007) Kontrollkästchen, Ein- und Ausblenden

alky · 13. März 2007

Hi there

Nochmals ne Frage zum Thema Kontrollkästchen:

Ich möchte, bestimmte Kontrollkästchen verschwinden lassen, wenn eine bestimmte Zelle einen bestimmten Wert untersteigt
=Wenn(a1

:)

User · 15. März 2007

Hallo Alky,

Kontrollkästchen verschwinden lassen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn Du damit meinst, dass das Ganze nicht mehr sichtbar sein soll, dann geht's nur über VBA...(oder net *rolleyes.gif* ?) Über eine LinkedCell kannst Du nur beeinflusse, ob es angetickt ist oder nicht.

*rolleyes.gif* Hab's soeben gecheckt. Man könnte auch das Ganze Kästchen, abhängig von einem Zellwert, verschwinden und anzeigen lassen. Allerdings ist es dann nicht mehr klickbar, sondern nur noch über eine LinkedCell steuerbar.

alky · 15. März 2007

hallo EtoPHG

Vielen Dank für deine Versüche. es müsste auch nur im sichtbaren Zustand klickbar bleiben. Das wär schon I.O. Wie hast du denn das hergekriegt?

alky · 21. März 2007

sorry, wenn ich mir selbst antworte, könnte jemand vielleicht nochmals mein Thema behandeln??

User · 21. März 2007

Hallo Alky,

Ich dachte das wär erledigt. Wie gesagt: DAS GEHT NUR MIT VBA!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Const iKleinerAlsWert = 4
If Intersect(Target, ActiveSheet.Range("A1")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox1").Visible = False
Else
ActiveSheet.Shapes("CheckBox1").Visible = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

alky · 21. März 2007

Hallo EtoPHG

VIELEN DANK! Ein Kästchen kann ich verschwinden lassen, aber bei mehreren kiregs ich's nicht gebacken.

Code:

' Kontrollkästchen ausblenden

Private Sub Worksheet_Change(ByVal Target As Range)
Const iKleinerAlsWert = 5
If Intersect(Target, ActiveSheet.Range("A33")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox29").Visible = False
Else
ActiveSheet.Shapes("CheckBox29").Visible = True
End If
If Intersect(Target, ActiveSheet.Range("A35")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox62").Visible = False
Else
ActiveSheet.Shapes("CheckBox62").Visible = True
End If
If Intersect(Target, ActiveSheet.Range("A34")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox61").Visible = False
Else
ActiveSheet.Shapes("CheckBox61").Visible = True
End If
If Intersect(Target, ActiveSheet.Range("A35")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox31").Visible = False
Else
ActiveSheet.Shapes("CheckBox31").Visible = True
End If
If Intersect(Target, ActiveSheet.Range("A34")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox30").Visible = False
Else
ActiveSheet.Shapes("CheckBox30").Visible = True
End If
If Intersect(Target, ActiveSheet.Range("A33")) Is Nothing Then Exit Sub
If Target.Value < iKleinerAlsWert Then
ActiveSheet.Shapes("CheckBox60").Visible = False
Else
ActiveSheet.Shapes("CheckBox60").Visible = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie würdest du mehrere Codes aneinanderreichen? Hab auch versucht die Bezeichnung "Private Sub Worksheet_Change" aufzulisten, d.h. mit "Private Sub Worksheet_Change1" usw. Aber: "Leider Nein!"

User · 22. März 2007

Hallo Alky,

Hab's zwar nicht getestet. Probier halt mal:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Const iKleinerAlsWert = 5
Dim bVisible As Boolean
bVisible = Not (Target.Value < iKleinerAlsWert)
Select Case Target.Address(0, 0)
Case "A33"
ActiveSheet.Shapes("CheckBox29").Visible = bVisible
Case "A35"
ActiveSheet.Shapes("CheckBox62").Visible = bVisible
Case "A34"
ActiveSheet.Shapes("CheckBox61").Visible = bVisible
Case "A35"
ActiveSheet.Shapes("CheckBox31").Visible = bVisible
Case "A34"
ActiveSheet.Shapes("CheckBox30").Visible = bVisible
Case "A33"
ActiveSheet.Shapes("CheckBox60").Visible = bVisible
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

alky · 22. März 2007

*grins wir (ich bin so frech) kommen immer näher ans Optimum.

Also irgenwie produziert es so ein "Laufzeitfehler 13, Typen unverträglich" und zwar immer dann wenn ich Bedingte Formatierung kopieren will, hmmm

E1.jpg

Ich hab mal das File hochgeladen.

Es geht darum, wenn ein bestimmter Monat ausgewählt ist (z.B. Februar) soll in den Zeilen 33 bis 35 keine Formatierungen, Schriften und Kästchen zu sehen sein.

User · 22. März 2007

Hallo Alky,

Vielleicht besser:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Const iKleinerAlsWert = 5
Dim bVisible As Boolean
On Error Resume Next
bVisible = Not (Target.Value < iKleinerAlsWert)
Select Case Target.Address(0, 0)
Case "B33"
ActiveSheet.Shapes("CheckBox29").Visible = bVisible
Case "A35"
ActiveSheet.Shapes("CheckBox62").Visible = bVisible
Case "A34"
ActiveSheet.Shapes("CheckBox61").Visible = bVisible
Case "B35"
ActiveSheet.Shapes("CheckBox31").Visible = bVisible
Case "B34"
ActiveSheet.Shapes("CheckBox30").Visible = bVisible
Case "A33"
ActiveSheet.Shapes("CheckBox60").Visible = bVisible
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

alky · 22. März 2007

Vielen Dank EtoPHG, äusserst professionelle Hilfe!!

Office: (Office 2007) Kontrollkästchen, Ein- und Ausblenden

Kontrollkästchen, Ein- und Ausblenden

Kontrollkästchen, Ein- und Ausblenden

Kontrollkästchen, Ein- und Ausblenden

Kontrollkästchen, Ein- und Ausblenden

Kontrollkästchen, Ein- und Ausblenden - Similar Threads - Kontrollkästchen Ausblenden

Zeilen mithilfe von Kontrollkästchen ausblenden

VBA = Text ein- und ausblenden per Kontrollkästchen

Zeilen über Kontrollkästchen und abhängig von Zelleninhalt ausblenden

Zeilen / Spalten ausblenden per Kontrollkästchen

Zeilen m.H.v. Kontrollkästchen ein - u. ausblenden und Zellenhalt löschen

Zellen mit Kontrollkästchen ein-und ausblenden/ ausgeblendete Zellen nicht mitdrucken

Text über Kontrollkästchen ein-/ausblenden