Office: Radoibutton Abfrage - Spalten einblenden

Hallo Boris,
dank dir für die Lösung. So hab ich es mir gedacht gehabt. Ich hatte auch schon an eine Casefunktion gedacht. Doch das war für mich erst mal zu weit weg...
Aber so wie du es gemacht hast denke ich kann ich es leicht anpassen. Werd mich gleich mal Versuchen das umzusetzten.

Danke

 

Hallo Dr Bastler,
ja ich weiß das ich da viel getippt habe
Ja die Lösung von Boris gefällt mir ganz gut. Die werd ich mal versuchen umzubauen auf meine Tabelle . Dann sollte es ja weniger Code werden.
Ja ich schau abend noch mal rein. Es gibt ja immer viele Lösungen für ein Problem.
Gruß CX

 

Hi,

ignoriere Hajo. War die Beispieldatei verständlich? Bzw. wo hakt es noch?

[EDIT]: Wollte diesen Beitrag löschen, weil ich erst dann gesehen habe, dass Du schon drauf eingegangen bist. Nach dem Löschen war Dein Beitrag aber für mich nicht mehr ersichtlich - auch nach F5 nicht...?! Jetzt, wo ich ihn nochmal getippt habe, sind die Beiträge für mich auch wieder alle da...
Hmmmmmm......

 

Hi,
also ich hab die CaseFun ktion mal übernommen und auch doe optionButton umbenannt, hab die Click events angepasst . Aber ich bekomme die Fehlermeldung "Fehler beim Kompelieren: Nach End Sub, End Funktion oder End Propertykönnen nur Komentare Stehen.
Hab noch ein paar optionbutton eingefügt, und hab mit dem ausbelnden versucht. Es funktioniert aber nur bei ein paar Button, die anderen und das einblenden funktioniert nicht.?? In deiner Datei funktioniert es. Aber ich werd den Code jetzt noch mal komplett neu erstellen.

 

Moin,

na diese Fehlermeldung ist doch noch eine der eindeutigeren im VBE. Du hast irgendwo Code außerhalb einer Sub, Funktion oder Property stehen oder einen Kommentar nicht mit dem Hochkomma eingeleitet.

Was das Einblenden betrifft, schau mal hier Erste Zeile/Spalte einblenden - Vielleicht hilft's.

@Boris : "ignoriere Hajo" Verflixt, ich habe vergessen, mir diesen Satz schützen lassen. Ich glaube damit könnte man Geld verdienen ... Hab eben übrigens folgendes Zitat gefunden. Schau mal auf's Datum ;-)

 

Kann die UF auch nicht, weil sie nicht aufgerufen wird ;-)

Pack mal die Zeilen hier in DieseArbeitsmappe

Code:

Private Sub Workbook_Open()
    Application.OnKey ("{F12}"), "UF_Aufruf"
    UserForm1.Show
End Sub

Damit wird die UF beim Öffnen der Datei aufgerufen. Falls Du sie dann schließt, hilft ihr F12 wieder auf die Beine. Zum Testen kannst Du einfach die Workbook_Open mit F5 starten.

Nachtrag: Kompliment! Dein Code sieht sauber aufgeräumt und logisch aus.

Grüße

 

Seltsam, Dein Beitrag mit Deiner Datei ...Code_neu und mit "Jetz startet noch nicht mal mehr die UF" ist weg??? Gibt's hier 'nen schwarzes Loch?

 

Hi Bastler,

er hat wohl den Beitrag gelöscht - oder er wurde automatisch gelöscht, denn beim Öffnen der Mappe (bzw. beim Anschauen des Code) kam ein Hinweis, dass "ein potentiell gefährliches Makro deaktiviert wurde". Hatte die Mappe aber schon gespeichert - insofern konnte ich mir den Code nun ansehen. Da wurde fälschlicherweise an den Eventnamen rumgeschraubt - hier der ganze Code aus dem Codemodul des Userforms:

Code:

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub optCStahl()
Call ausblenden(1)
End Sub

Private Sub optAustStahl_Click()
Call ausblenden(2)
End Sub

Private Sub optAlloy_Click()
Call ausblenden(3)
End Sub

Private Sub optCrNiStahl_Click()
Call ausblenden(4)
End Sub

Private Sub optCrStahl_Click()
Call ausblenden(5)
End Sub

Private Sub optZusatz_Click()
Call ausblenden(6)
End Sub

Private Sub optSpaltenEinblenden()
Call ausblenden(7)
End Sub

 

Hi Creator,

weshalb hast Du an den (Event-)Prozedurnamen rumgeschraubt? Der Coderahmen wird doch automatisch vergeben, wenn man einen Doppelklick auf das Steuerelement macht...?! Da darfst Du nix mehr dran ändern.

 

Hi Boris,
ich wollt es alles schön benennen und hab auch gerade bemerkt das ich da "_Click" gelöscht habe und beim letzten auch der "_" gefehlt hat. Asche auf mein Haupt....

 

Moin Boris,

Dank für Deine Erläuterung. Den Sicherheitshinweis hatte ich auch gesehen und dann direkt in den Code geschaut. Nach dem ersten entdeckten Fehler (kein Aufruf der USF) war ich dann aber schon wieder raus aus der (nicht gespeicherten) Datei. Und schwups war 'se wech...

Grüße

 

Fürs erste hab ichs geschaft. Spalten werden ausgeblendet und nur die benötigten werden eingeblendet.

 

Hi Creator,

das hört sich doch gut an :-)

 

Dann geh mal duschen, CX, dass die Asche nicht mehr so staubt ;-)