Thema Datum  Von Nutzer Rating
Antwort
14.11.2012 10:33:35 Marten
NotSolved
14.11.2012 13:14:24 Dekor
NotSolved
Rot Endlosschleife, die keine Sein sollte
 14.11.2012 13:45:36 Marten
NotSolved
14.11.2012 16:09:31 Dekor
NotSolved
14.11.2012 16:55:48 Gast8647
NotSolved
14.11.2012 20:01:03 Dekor
NotSolved
16.11.2012 04:45:24 Marten
NotSolved
16.11.2012 04:58:30 Marten
Solved

Ansicht des Beitrags:
Von:
Marten		 Datum:
14.11.2012 13:45:36		 Views:
1221		 Rating:
     
Antwort:
  Ja
Thema:
Endlosschleife, die keine Sein sollte

Danke erstmal für die antwort, aber das mit der Forschleife habe ich schon probiert und es kommt wieder zu einer endlos schleife.

Ich bin eigentlich erfahren im Schleifen programmieren, bin nur neu im VBA unterwegs.

an bei mal noch mein ganzer code

?
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Option Explicit
 
Private Sub WorkSheet_Change(ByVal Target As Range)
   
    Call Montagevorspannkraft
'    Call Farbabfrage_Flaechenpressung
    'Call Farbabfrage_Schraubenauslastung
     
End Sub
 
Sub Montagevorspannkraft()
Dim Abschnitt, S, N, M, Zeile, Spalte, Zeile2, Spalte2 As Integer
    Abschnitt = 0
    S = 1
        Do
            Zeile = S + Abschnitt
            Zeile2 = S + 1 + Abschnitt
                If Cells(Zeile, 16) = "" Then
                    Cells(Zeile, 17) = ""
                    Else
                    Cells(Zeile, 17) = Cells(Zeile, 16) + Cells(Zeile2, 16)
                End If
            Abschnitt = Abschnitt + 13
            S = S + 1
       Loop Until S > 3
    Cells(1, 15) = S
End Sub
 
Sub Farbabfrage_Flaechenpressung()
Dim S, N, M, Zeile, Spalte, Zeile2, Spalte2 As Integer
 
  For S = 0 To 26 Step 13
 
    For N = 1 To 3 Step 2
    Zeile = S + N
    Zeile2 = Zeile + 1
   
     For M = 1 To 5 Step 2
     Spalte = 0 + M
     Spalte2 = Spalte + 1
    
      Select Case Cells(Zeile, Spalte)
       Case Is = ""
         ' Grau
         With Sheets("Tabelle1")
         .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 15
         End With
       Case Is <= Cells(S + 1, 8)
         'Gruen
         With Sheets("Tabelle1")
          .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 43
         End With
       Case Is > Cells(S + 1, 8)
         ' Rot
         With Sheets("Tabelle1")
          .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 3
         End With
      End Select
     
     Next M
    
   Next N
    
  Next S
   
End Sub
 
Sub Farbabfrage_Schraubenauslastung()
Dim S, N, M, Zeile, Spalte, Zeile2, Spalte2 As Integer
 
  For S = 0 To 26 Step 13
   
  For N = 1 To 3 Step 2
  Zeile = S + N
  Zeile2 = Zeile + 1
   
   For M = 1 To 5 Step 2
   Spalte = 8 + M
   Spalte2 = Spalte + 1
    
    Select Case Cells(Zeile, Spalte)
     Case Is = ""
       ' Grau
       With Sheets("Tabelle1")
         .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 15
       End With
     Case 85 To 92
       'Gruen
       With Sheets("Tabelle1")
        .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 43
       End With
     Case Is > 92
       ' Rot
       With Sheets("Tabelle1")
        .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 3
       End With
     Case Is > 0 And Cells(Spalte, Zeile) < 85
       ' Orange
       With Sheets("Tabelle1")
         .Range(Cells(Zeile, Spalte), Cells(Zeile2, Spalte2)).Interior.ColorIndex = 46
       End With
    End Select
     
   Next M
    
 Next N
  
 Next S
   
End Sub

Die Schleifen in meinen zwei anderen sub strukturen laufen ohne probleme, irgendwie muss es an meiner if abfrage glaube ich liegen! er spring immer wieder zu der end if anweisung in der ersten sub struktur nachdem er alles durchlaufen hat!

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
14.11.2012 10:33:35 Marten
NotSolved
14.11.2012 13:14:24 Dekor
NotSolved
Rot Endlosschleife, die keine Sein sollte
 14.11.2012 13:45:36 Marten
NotSolved
14.11.2012 16:09:31 Dekor
NotSolved
14.11.2012 16:55:48 Gast8647
NotSolved
14.11.2012 20:01:03 Dekor
NotSolved
16.11.2012 04:45:24 Marten
NotSolved
16.11.2012 04:58:30 Marten
Solved