Thomas Risi Softwareentwicklung

Steuerelement in Abhängigkeit von Spalte

Aus einer Frage in einem Forum ...

In einer UserForm befinden sich zwei OptionButton. Diese sollen auf Enabled = True/False gesetzt werden, je nach dem, ob sich Spalte J, bzw. K, ein Wert befindet. Bei weiteren Überprüfungen würde es sich anbieten, eine eigene Funktion hierfür zu erstellen.

Option Explicit ' Die UserForm wird geöffnet,und überprüft, ob sich in Spalte J oder K ' ein Wert (Text odet Zahl) befindet. Je nach Ergebnis wird OptionButton1 ' bzw. OptionButton2 auf Enabled = True/False gesetzt. Private Sub UserForm_Initialize() On Error Resume Next Dim tbl As Excel.Worksheet Dim rngTextValues As Excel.Range Dim rngNumbers As Excel.Range Set tbl = ThisWorkbook.Worksheets("Tabelle1") ' Test Spalte 'J' Set rngTextValues = Nothing Set rngTextValues = tbl.Columns(10).SpecialCells(xlCellTypeConstants, xlTextValues) Set rngNumbers = Nothing Set rngNumbers = tbl.Columns(10).SpecialCells(xlCellTypeConstants, xlNumbers) If rngTextValues Is Nothing And rngNumbers Is Nothing Then _ OptionButton1.Enabled = False ' Test Spalte 'K' Set rngTextValues = Nothing Set rngTextValues = tbl.Columns(11).SpecialCells(xlCellTypeConstants, xlTextValues) Set rngNumbers = Nothing Set rngNumbers = tbl.Columns(11).SpecialCells(xlCellTypeConstants, xlNumbers) If rngTextValues Is Nothing And rngNumbers Is Nothing Then _ OptionButton2.Enabled = False End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)