Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
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")
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
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
© 2001 -
by Thomas Risi