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:
1065		 Rating:
     
Antwort:
  Ja
Thema:
Mehrfachprüfung und dementsprechende aktion

ungefähr so

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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