Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

OptionButton deaktiviern wenn....

Betrifft: OptionButton deaktiviern wenn.... von: Klaus
Geschrieben am: 27.08.2004 13:18:03

Hallo zusammen
Ich habe in eier Userform mehrere OptionButtob. Nun soll, wenn in Tabelle2 in der Spalte "J" keine Werte vorhanden sind, der OptionButton1 deaktiviert werden.
Das gleiche mit OptionButton2, wenn in Spalte "K" keine Werte vorhanden sind usw. in den Spalten J+K sind aber Formeln vorhanden.
Ist das machbar?

Gruss Klaus

  


Betrifft: AW: OptionButton deaktiviern wenn.... von: Thomas Risi
Geschrieben am: 27.08.2004 13:45:05

Hallo Klaus,

versuch's mal so ...


      
Option Explicit

Private Sub UserForm_Initialize()
    
    
On Error Resume Next
    
    
Dim rng As Excel.Range
    
    
Set rng = Nothing
    
Set rng = ActiveSheet.Columns(10).SpecialCells(xlCellTypeConstants, xlTextValues)
    
    
If rng Is Nothing Then _
        OptionButton1.Enabled = 
False
    
    
Set rng = Nothing
    
Set rng = ActiveSheet.Columns(11).SpecialCells(xlCellTypeConstants, xlTextValues)
    
    
If rng Is Nothing Then _
        OptionButton2.Enabled = 
False
    
End Sub 


     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
Thomas

Risi Thomas Softwareentwicklung




  


Betrifft: AW: OptionButton deaktiviern wenn.... von: Klaus
Geschrieben am: 27.08.2004 13:53:41

Hallo Thomas
Leider funktioniert das so nicht, denn ich habe verschwiegen, dass die Daten gefiltert sind. es kann also sein, dass in einer ausgeblendeten zelle etwas steht.
Geht es nicht irgendwie mit der "find" Methode?? die sucht doch nur in eingeblendeten Zellen.......
Gruss Klaus


  


Betrifft: doppelt...siehe weiter oben von: oT
Geschrieben am: 27.08.2004 15:07:12




 

Beiträge aus den Excel-Beispielen zum Thema "OptionButton deaktiviern wenn...."