Office: (Office 2007) Rahmen von Formular Gruppenfeldern entfernen

Hallo zusammen,

ich habe einen Fragebogen mit Excel erstellt und es ist zwingend erforderlich die Rahmen von Gruppenfeldern, welche ich über die Formular-funktion erstellt habe, auszublenden oder auf eine andere Weise zu "verstecken".
Meine Recherche hat bis jetzt ergeben, dass mein Anliegen nur über eine VBA realisiert werden kann.
Ein VBA-Vorschlag habe ich dazu schon gefunden, allerdings funktioniert dieser nicht.
Ich selbst kann nicht VBA- programmieren.
Kann mir in diesem Zusammenhang irgendjemand helfen?

Gruß, Martin

:)

 

Hallo Martin,

nur wenige sehen Deine Datei und Deinen Code.

 

Hallo zusammen,

Als Anhang ein vereinfachtes Beispiel.
Hier den Code den ich schon gefunden habe, der allerdings nicht funktioniert.

Option Explicit

Public Sub MeineProzedur()
Dim s As Shape

For Each s In Sheets("Tabelle1").Shapes
If s.FormControlType = xlGroupBox Then
s.Visible = msoFalse
End If
Next s

Set s = Nothing
End Sub


Gruß Martin

 

Hallo Martin,

jetzt kann man auch was zum Code schreiben, damit wird das Steuerelement mit allen darauf befinglichen Steuerelementen ausgeblendet.

 

Hallo Martin,

du verwendest Steuerelemente aus der Formular-Symbolleiste. Meines Wissens kann der Rahmen dieser Gruppenfelder nicht ausgeblendet werden.

Wenn der Rahmen zwingend verschwinden muss, wird dir nichts anderes übrigbleiben, als das Gruppenfeld ganz zu löschen. Damit hast du dann natürlich das Problem, dass die Optionsfelder nicht mehr gruppiert sind.

Wirf diese ebenfalls raus und ersetze sie durch Optionsfelder aus der Symbolleiste Steuerelement-Toolbox. Im Unterschied zu ihren Pendants aus der Formular-Symbolleiste können diese auf zwei unterschiedliche Arten gruppiert werden. Erstens wie gehabt durch ein umgebendes Gruppenfeld (auch das gibt es in der Steuerelement-Toolbox).

Zweitens aber auch über den sogenannten Groupname. Wenn du mit der rechten Maustaste auf ein Optionsfeld und anschließend auf Eigenschaften klickst, kannst du für das Optionsfeld einen Groupname vergeben. Alle Optionsfelder mit demselben Groupname gehören dann zu einer Gruppe.

Gruß Ingolf

 

opps, war doppelt

 

Hallo Hajo,

Der Code funktioniert leider nicht bei mir. Hast du eine Idee woran das liegen könnte?

Noch was anderes, habe noch eine andere Möglichkeit gefunden, die aber leider nur teilweise funktioniert. Hier der Code:

Option Explicit

Sub Box1An()
'/// Rahmen 2 zuzuweisen
ActiveSheet.GroupBoxes(2).Visible = False ' unsichtbar
End Sub

Sub Box2An()
'/// Rahmen 1 zuzuweisen
ActiveSheet.GroupBoxes(1).Visible = False ' unsichtbar
End Sub

Allerdings habe ich mehr als 2 Rahmen, die ich Rahmen entfernen möchte. Wenn ich die Formel einfach weiter logisch weiterschreibe, dann funktioniert das aber leider nicht.
Vllt. hat hierzu noch jemand eine Idee.

Gruß, Martin

 

Hi Martin,

ändere deinen zuerst geposteten Code, indem du msoFalse in False ersetzt - bei mir funktionert der Code völlig korrekt (Excel2010).

Welche Excel-Version verwendest du?

 

Hallo allerseits,

Ich weiß, dass dieser Beitrag schon steinalt ist! Aber da er bei diesem Problem sehr weit oben in der Google-Suche auftaucht wollte ich noch meinen kurze und knackige Lösung präsentieren die auf dem aktuellen Sheet alle Formulargruppierungskästen ausblendet. Sollte man sie wieder einblenden wollen dann einfach das False durch True ersetzen *wink.gif*

Code:

LG an alle in diesem tollen Forum hier
Nirostar