Thema Datum  Von Nutzer Rating
Antwort
25.01.2023 10:16:47 Tim B.
NotSolved
25.01.2023 10:21:21 Tim B.
NotSolved
Rot Mehrfachprüfung und dementsprechende aktion
 25.01.2023 13:07:08 Gast74196
NotSolved

Ansicht des Beitrags:
Von:
Gast74196		 Datum:
25.01.2023 13:07:08		 Views:
567		 Rating:
     
Antwort:
  Ja
Thema:
Mehrfachprüfung und dementsprechende aktion

ungefähr so

Option Explicit

Sub Test()
  
  Dim rngCell As Excel.Range
  Set rngCell = Worksheets("Tabelle1").Range("A13")
  
  Select Case CLng(rngCell.Value)
    Case 1 To 15
      Call Anweisung1
    Case 15 To 45
      Call Anweisung2
    Case 45 To 109
      Call Anweisung3
  End Select
  
End Sub

Private Sub Anweisung1()
  '...
End Sub

Private Sub Anweisung2()
  '...
End Sub

Private Sub Anweisung3()
  '...
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
25.01.2023 10:16:47 Tim B.
NotSolved
25.01.2023 10:21:21 Tim B.
NotSolved
Rot Mehrfachprüfung und dementsprechende aktion
 25.01.2023 13:07:08 Gast74196
NotSolved