Thema Datum  Von Nutzer Rating
Antwort
Rot If Schleifen & Cases
 02.12.2016 13:08:50 Gast NR 1
NotSolved
02.12.2016 16:31:41 Mackie
NotSolved
05.12.2016 14:36:35 Gast48279
NotSolved
05.12.2016 16:35:52 Mackie
NotSolved
06.12.2016 10:14:06 Gast NR1
NotSolved
06.12.2016 17:00:26 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast NR 1 		Datum:
02.12.2016 13:08:50		 Views:
1399		 Rating:
     
Antwort:
  Ja
Thema:
If Schleifen & Cases

Halli Hallo,

Ich habe folgendes Problem;

Ich lasse zwei unterschiedliche Werte durch eine InputBox abfragen.

-> InputBox 1 : "NR"

-> InputBox 2: "Status"

select Case:

Case 1: Nr1 , Nr2, Nr3 ....

darin dann abfrage.

 

Hat die Case Nr:  den select Case:

Case2: Status1, Status2, Status3

 

Also am Ende; !!!!!!!!!Nehme den Case1, welcher auch mit Case2 übereinstimmt.!!!!!

 

Wie ist die logische Aufreihung. ACHTUNG, ich will das nicht für alle Cases1 eingeben. (Sind an die 100) und Cases2 sind 4

 

?
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
sachNummer = InputBox("Gebenb Sie die Nr ein?")
                status = InputBox("Status?")
                             
 If Cells(zl, sp + 3).Value <> 0 Then
                 
                        Select Case sachNummer:
                                      
                            Case "01":
                            sachNummer = "R1"
         
                            Case "02":
                            sachNummer = "R2"
 
                               Select Case status:
                                     
                                        Case "90000000000010":
                                        status = "A"
                                        GoTo Seidel
                                                          
                                        Case "90000000000020":
                                        status = "B"
                                        GoTo Seidel
                                                          
                                         
                                End Select
                                 
                                If Cells(zl, sp + 2).Value <> status Then
                                zl = zl + 1
                                End If
                                         
                                If Cells(zl, sp + 2).Value <> status Then
                                zl = zl + 1
                                End If
                                         
                                If Cells(zl, sp + 2).Value <> status Then
                                         
                                MsgBox ("Dieser Status ist  " & Cells(zl, sp - 1).Value & " nicht vorhanden.")
                                GoTo Ende
                                End If
                                        
                        End Select
                
                        If Cells(zl, sp + 1).Value <> Nr Then
                        zl = zl + 1
                        End If
                                         
                        If Cells(zl, sp + 1).Value <> Nr Then
                        zl = zl + 1
                        End If
                                         
                        If Cells(zl, sp + 1).Value <> Nr Then
                                         
                        MsgBox ("Die Nr ist " & Cells(zl, sp - 1).Value & " nicht vorhanden.")
                        GoTo Ende
                        End If
                         
                                 
                    End If
 
Seidel:

 

Beste Grüße...

 

 

 

 

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
Rot If Schleifen & Cases
 02.12.2016 13:08:50 Gast NR 1
NotSolved
02.12.2016 16:31:41 Mackie
NotSolved
05.12.2016 14:36:35 Gast48279
NotSolved
05.12.2016 16:35:52 Mackie
NotSolved
06.12.2016 10:14:06 Gast NR1
NotSolved
06.12.2016 17:00:26 Mackie
NotSolved