Warum wird die For-Schleife(n) nicht bearbeitet?
10.06.2005 09:28:23
Jochen
ich steh mal iwedre vor einem problem, welches ich mit meinen Programmierkentnissen nicht so einfach lösen kann.(Ok eigentlich hab ich auch nie VBA zuvor programmiert sondern nur Java).
leider wird im unten genannten Codeschnipsel (den rest hab ich rausgelassen, der dürfte theoretisch damit nichts zu tun haben) die For-Schleife nicht ausgeführt.
Die Schleifen werden einfach übergangen (für den Test ob der Code ausgeführt wird hab ich die MSGBox-Zeilen eingefügt). Demnach kommt bei der Ausführung nur die beiden MSg-Boxen:
'Vor-Schleife' und dann MSG-Box 'Nach-Schleife'
ich gehe mal von einem recht trivialen fehler aus, da zumindest das Konzept der geschachtelten Schleife richtig sein müsste.
Die variablen i & j sind jeweils als Integer definiert.
Danke für die Antworten
Gruß
Jochen
i = 16
MsgBox ("vor schleife")
For i = 16 To i = 85
j = 23
MsgBox ("Schleife 1")
For j = 23 To j = 46
MsgBox ("Schleife 2")
If Cells(i, j).Value > 0.949 Then
MsgBox ("if")
Range(Cells(i, j)).Select
Selection.FormatConditions.Add Type:=xlCellValue,Operator:=xlEqual, _
Formula1:="=""-"""
Selection.FormatConditions(1).Interior.Pattern = xlNone
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:="0,95"
Selection.FormatConditions(2).Interior.ColorIndex = 4
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="0", Formula2:="0,949"
Selection.FormatConditions(3).Font.ColorIndex = 2
Selection.FormatConditions(3).Interior.ColorIndex = 3
End If
j = j + 1
Next
i = i + 1
Next i
MsgBox ("nach schleife")