Office: Ein / Ausblenden von Formularsteuerelementen

Hallo,

ich habe eine Dokument erstellt in dem ich auf der ersten Seite ActiveX-Steuerelemente eingebaut habe um nachfolgende Zeilen auszublenden.
Der Code im VBA ist wie folgt.

Private Sub CheckBox1_Click()

Select Case CheckBox1.Value
Case False
Rows("90:181").Hidden = True
Case True
Rows("90:181").Hidden = False
End Select

End Sub

Die Zeilenanzahl, die ausgeblendet wird, entspricht einer Seite.
Davon gibt es mehrere, die bei Bedarf über die Kontrollkästchen ein oder ausgeblendet werden sollen.

Auf den folgenden Seiten befinden sich wiederum auch Kontrollkästchen, die auch mit ausgeblendet werden sollen.
Zur Info: Ich habe da momentan Formularsteuerelemente eingefügt. Ich glaube die sind allerdings nicht richtig. Es müssten nach meinen Erkenntnissen auch ActiveX Elemente sein. Ich bin allerdings da noch nicht weitergekommen.

Die Kästchen werden allerdings nicht ausgeblendet sondern bleiben auf Ihrer Position.
Wenn ich "Seite 2" ausblende, rücken folgende Zeilen auf und die "Seite 3" wird zur "Seite 2". Die Kästchen von der ursprünglichen Seite 2 und 3 bleiben auf Ihren ursprünglichen Positionen und liegen nachdem Seite 2 ausgeblendet wurde nun auf den Seiten 3 und Seite 4, da diese hochgerutscht sind.

Daher habe ich folgende Fragen:

Welche Steuerelemente müsste ich verwenden?

Wie muss Ich es im VBA eingeben das ein Kontrollkästchen in Abhängigkeit von einem anderen Kontrollkästchen eingeblendet wird oder auch nicht?

Wie stelle ich sicher das die Kontrollkästchen an der richtigen Stelle im Dokument verbleiben.

Ich habe kein Dokument angefügt, da das original sensible Daten enthält. Ich hatte leider nicht die Zeit einen Dummy zu erstellen.

Ich bin leider ein blutiger VBA Anfänge rund bitte das bei der Beantwortung zu berücksichtigen.

Ich danke euch schon einmal für eure Hilfe.

:)

 

Guten Morgen Viking,

soll dein Ergebnis aussehen wie nach einer Gruppierung in Excel?
Daten->Gliederung->Gruppierung


gruß
Marco

 

Hallo Marco, danke für deine Antwort. Deine Frage habe ich nicht so ganz Verstanden.

Ich habe mal einen Dummy erstellt. Vielleicht hilft das.

Die Checkboxen 1 & 2 sind da um die entsprechenden Seiten auszublenden.
Die Checkboxen 3 & 4 sind dazu dazu da um dokumentieren, ob bestimmte Vorgänge stattgefunden haben.

 

Hi Viking,

die Eigenschaft die du suchst ist checkbox.Visible:

Code:

gruß
Marco

 

Entschuldige, falls die Frage blöd ist. Wie muss dann der VBA text aussehen und wie findet da die Abhängigkeit zu den anderen Kontrollkästchen statt?

 

Code:

Wichtig:
Den Startwert der Eigenschaft kannst du beim Start schon definieren. (siehe Bild)

Entwurfsmodus -> Rechtsklick Checkbox -> Eigenschaften -> Visible = True (Standard) oder False setzen.


gruß
Marco

 

Habe es glaube ich hinbekommen.

Jetzt werden die Kästchen ausgeblendet. Wenn ich nun die Seite 2 ausblende. Ist leider bloß das Kontrollkäschen 4 auf der dritten Seite bloß der Text von der dritten Seite rutsch durch das ausblenden der zweiten hoch. Und das Kästchen ist auf der falschen Position

Hättest du da auch eine Idee?

 

Beispiel an Checkbox1:
'Checkbox1 an Zelle E47
ActiveSheet.Shapes("Checkbox1").Top = Range("E47").Top
ActiveSheet.Shapes("Checkbox1").Left = Range("E47").Left


gruß
Marco

 

Danke für die Antwort, wie müsste das dann im VBA aussehen?

Klappt bei mir noch nicht so ganz.


Private Sub CheckBox1_Click()

Select Case CheckBox1.Value
Case False
Rows("51:100").Hidden = True
CheckBox3.Visible = False
Case True
Rows("51:100").Hidden = False
CheckBox3.Visible = True
ActiveSheet.Shapes("Checkbox3").Top = Range("C54").Top
ActiveSheet.Shapes("Checkbox3").Left = Range("C54").Left

End Select

End Sub

Private Sub CheckBox2_Click()

Select Case CheckBox2.Value
Case False
Rows("101:150").Hidden = True
CheckBox4.Visible = False
Case True
Rows("101:150").Hidden = False
CheckBox4.Visible = True
CheckBox4.Top = Range("C103").Top
CheckBox4.Left = Range("C103").Left

End Select

End Sub

 

Hi,

denk an die Startwerte je Checkbox wie oben beschrieben.


gruß
Marco

 

Hallo,

meinst Du es so ? (Position Steuerelement abhängig von Zellposition)

LG Dax