Thema Datum  Von Nutzer Rating
Antwort
23.08.2016 10:14:17 Stefan
NotSolved
23.08.2016 10:19:41 Andreas
NotSolved
23.08.2016 10:25:51 Stefan
NotSolved
23.08.2016 10:39:29 Andreas
NotSolved
23.08.2016 10:51:58 Stefan
NotSolved
Blau VBA If Or Or mehrere Steuerelemente
 23.08.2016 10:58:29 Gast89000
NotSolved
23.08.2016 11:13:39 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Gast89000		 Datum:
23.08.2016 10:58:29		 Views:
713		 Rating:
     
Antwort:
  Ja
Thema:
VBA If Or Or mehrere Steuerelemente

Hi Stefan,

grundsätzlich funktioniert der Code (bei mir).

Einzige Fehlermeldung 13 / Typen unverträglich wenn ComboBox3 keinen Wert!

Prinzipiell sollte man(n) jedoch die Verwendung von Code wie ActiveSheet bei Eigen- u. Variablennamen unterlassen!

LG

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.08.2016 10:14:17 Stefan
NotSolved
23.08.2016 10:19:41 Andreas
NotSolved
23.08.2016 10:25:51 Stefan
NotSolved
23.08.2016 10:39:29 Andreas
NotSolved
23.08.2016 10:51:58 Stefan
NotSolved
Blau VBA If Or Or mehrere Steuerelemente
 23.08.2016 10:58:29 Gast89000
NotSolved
23.08.2016 11:13:39 Stefan
NotSolved