|
Hi zusammen :)
Bräuchte kurz eure Hilfe. Ich kenne mich in Sachen VBA leider null aus.
Hab mir jetzt nachfolgenden Code zusammengeschustert und funktioniert an sich einwandfrei, sobald ich jedoch statt "if", "if or or" schreibe und mehrere Steuerelemente ansprechen will, funktioniert leider nichts mehr.
Wäre super falls ihr mir helfen bzw sagen könntet wie ich den Code umschreiben muss :)
Danke, Stefan
Private Sub ActiveSheet()
With Worksheets("Alternativen")
If CLng(.ComboBox3) > Worksheets("Stammdaten").Cells(.Range("O4") + 2, 28) _
Or .OptionButton1 = True _
Or .OptionButton3 = True Then
Worksheets("Alternativen").Range("H24") = "Text!"
Worksheets("Alternativen").Range("H25") = "Text2"
.Hyperlinks.Add Anchor:=.Range("H27"), _
Address:="Link", _
ScreenTip:="Text3", _
TextToDisplay:="Text4"
Else: Worksheets("Alternativen").Range("H24:H27") = ""
End If
End With
End Sub |