Office: Radoibutton Abfrage - Spalten einblenden

Hallo Leute,
ich möchte über ein Userform per Radiobutton auswählen welche Spalten in meiner Tabelle ingeblendet werden sollen.
Leider bekomm ich es nicht ganz hin und bekomm immer eine Fehlermeldung das die Variable OptionButton nicht defniert ist. Ich hab aber dazu noch nichts gefunden wie man die OptionButton definiert.
Danke für Infos und Hilfe schon im Vorraus.
Gruß CX
Aktuell schaut mein Code so aus:

Code:

Sub Einblenden()
'Spalten einblenden
    Columns("L:N").Hidden = False

'Radiobuttonabfrage
If OptionButton1.Value = True Then
'C-Stahl
    Columns("AD").Hidden = False    'Mo
    Columns("AX").Hidden = False    'Ni
    Columns("BD").Hidden = False    'Mn
    Columns("BF").Hidden = False    'Cr
    Columns("BR").Hidden = False    'Si
ElseIf OptionButton2 = True Then
'austenitische Stähle
    Columns("AD").Hidden = False    'Mo
    Columns("AF").Hidden = False    'Nb
    Columns("AX").Hidden = False    'Ni
    Columns("BD").Hidden = False    'Mn
    Columns("BF").Hidden = False    'Cr
    Columns("BJ").Hidden = False    'Ti
    Columns("BR").Hidden = False    'Si
ElseIf OptionButton3 = True Then
'Alloy
    Columns("AD").Hidden = False    'Mo
    Columns("AF").Hidden = False    'Nb
    Columns("AV").Hidden = False    'Cu
    Columns("AZ").Hidden = False    'CO
    Columns("AX").Hidden = False    'Ni
    Columns("BD").Hidden = False    'Mn
    Columns("BF").Hidden = False    'Cr
    Columns("BJ").Hidden = False    'Ti
    Columns("BR").Hidden = False    'Si
ElseIf OptionButton4 = True Then
'CrNi-Stähle
    Columns("AD").Hidden = False    'Mo
    Columns("AF").Hidden = False    'Nb
    Columns("AX").Hidden = False    'Ni
    Columns("BD").Hidden = False    'Mn
    Columns("BF").Hidden = False    'Cr
    Columns("BR").Hidden = False    'Si
ElseIf OptionButton5 = True Then
'Cr-Stähle
    Columns("AD").Hidden = False    'Mo
    Columns("AF").Hidden = False    'Nb
    Columns("AX").Hidden = False    'Ni
    Columns("BD").Hidden = False    'Mn
    Columns("BF").Hidden = False    'Cr
    Columns("BH").Hidden = False    'V
    Columns("BR").Hidden = False    'Si
ElseIf OptionButton6 = True Then
'Schweißzusatzwerkstoff
    Columns("AD").Hidden = False    'Mo
    Columns("AF").Hidden = False    'Nb
    Columns("AX").Hidden = False    'Ni
    Columns("BD").Hidden = False    'Mn
    Columns("BF").Hidden = False    'Cr
    Columns("BH").Hidden = False    'V
    Columns("BR").Hidden = False    'Si
Else
MsgBox "Werkstoff auswählen"

End If

End Sub

 

Hi,

lad mal bitte Deinem Mappe MIT Deinem bereits bestehenden Userform hoch. Daten kannst Du gerne ALLE entfernen.

 

Hi Boris,
anbei mal die Datei. Hab die werte alle drinengelassen.
!!! Hab die Radiobutton in der Datei schon umbenannt. im Code hab ich sie gerad noch nicht umbenannt !!!
Gruß Marco

 

Ich habe nun schon 2 Begriffe der Radio Button in Zeile 1 gesucht und nicht gefunden, ich vermute die anderedn sind auch nicht da. Bei der Tag Eigenschaft steht auch nicht diue Spalte.
Ich vermute nur Du kennst die Info welche Spalte bei welchen Button ausgeblendet werden soll. Also musst Du es selber lösen.

Spalrte ausblenden
.EntireColumn.Hidden = True
lt. Makrorecorder.

 

Hallo Hajo_Zi
die Optionbutton hab ich bennant als optCStahl ....usw.
im Code hab ich sie noch mit Optionbutton1.... usw drinnen stehen.
Ich wollte es so amchen das ich erst alle Spalten ausblende und dann per Optionbutton die Spalten einblende die ich jeweils benötige je Stahlsorte.

Gruß

 

Gut habe ich also Recht Du möchtest es selber machen, da Du nicht mitteilst welche Spalte bei welchen Button ausgeblendet werden soll.
Ich bin dann raus. Da auch mein Beitrag nicht komplett gelesen wuirde.
Viel Erfolg.

Gruß Hajo

 

Hi,

schau Dir mal das Prinzip in der angehängten Beispieldatei an.
BTW: Das Umbenennen von Steuerelementen ist i.d.R. überhaupt nicht sinnvoll, da man sie dann meist nicht mehr in Schleifen ansprechen kann (ist hier jetzt nicht der Fall - aber es gibt genügend Fälle, wo das Schleifenprinzip sinnvoll ist).

 

Das stimmt so nicht ganz: in einer For-To-Schleife mag das zwar bis zu einem gewissen Grad richtig sein, allerdings kann man auch umbenannten Steuerelementen eine laufende Index-Nummer geben. In einer For-Each-Schleife dagegen spielt der Index überhaupt keine Rolle, da man dort andere Kriterien zur Identifizierung nutzt.

---

 

Hi Karin,

mit Zählschleife meinte ich auch For x = 1 To 10 - und weshalb soll ich erst umbenennen, um dann wieder einen Index zu vergeben...?
Natürlich kann man die Steuerelemente auch mit For Each ansprechen.
Ich sehe halt keinen echten Sinn darin, die Dinger umzubenennen - jeder aber nach seinem Gusto.

 

Angenommenes Beispiel: 4 CheckBoxen für Aufgabe A und 4 CheckBoxen für Aufgabe B - das wären dann CheckBox1 bis CheckBox8 nach deiner Lesart. Nach meiner wären das z.B. chkA1 bis chkA4 und chkB1 bis chkB4 und das lässt sich auch nach längerer Zeit wieder recht einfach nachvollziehen. Es geht also nicht um Gusto sondern einfach darum, wie man sich selbst (und auch anderen) die Arbeit erleichtern kann.

---

 

Hi Karin,

Es geht also nicht um Gusto

Natürlich geht es darum. Du machst es nach Deinem "Gusto", ich nach meinem. Den Code kann man bei Bedarf ja auch entsprechend kommentieren. Soll jeder selbst entscheiden, wie er es machen möchte.

 

Dann lasse dem Fragesteller doch die Freiheit, nach SEINEM Gusto die Elemente zu benennen, zumal es eben keinen ZWINGENDEN Grund gibt, den ursprünglichen Namen und Index zu belassen.

---

 

Hi Karin,

klar - kann er ja gerne machen. Er kann meine Randbemerkung (BTW) ja ignorieren - und dank des Threadverlaufs sich möglicherweise noch eine bessere eigene Meinung dazu bilden :-)

 

Moin Creator,
als Anregung für eine vereinfachte Lösung:

• Du sprichst Deine Spalten mit den Buchstaben-Bezeichnungen an. Wenn Du stattdessen Columns(Spaltennr.) verwendest kannst Du die hier schon vorgeschlagenen numerischen Schleifen verwenden. Das spart Unmengen Schreibarbeit.
• Du verwendest mehrfache If/Then/Else-Abfragen. Schau Dir mal Select Case an. Damit lässt eine solche Prozedur sehr viel übersichtlicher und einfacher gestalten.
• Mit den vorgeschlagen For Each-Schleifen kannst Du die gewünschten Spalten mithilfe eines simplen Kriteriums auswählen.

Schau heute Abend noch mal rein. Bis dahin habe ich die Zeit gefunden, Dir eine Beispiel-Datei zu basteln.

Schöne Grüße

 

Hallo Hajo,
Mercy für den Lösungsansatz. Doch ich hab doch in der Datei die ich hochgeladen habe schon drinnen stene welche Spalte bei Welchen Stahl ich einblenden will.