If -Bedingung
11.12.2008 13:46:46
gp
ich habe folgenden Code:
If (Tabelle1.OLEObjects("CommandButton" & a).Object.BackColor = &H80FF&) And (Tabelle1.Cells(6 + a, 3) "ungleich" "N-16mm" Or Tabelle1.Cells(6 + a, 3) "ungleich" "S-16mm") Then
b = 0
Do
x = x + 1
If (Tabelle1.Cells(6 + x, 5) = "0-Blow-up" Or Tabelle1.Cells(6 + x, 5) = "K-Blow-up" Or Tabelle1.Cells(6 + x, 5) = "S-Blow-up") Then
b = b + 1
End If
Loop Until x = 26
Else
For i = 1 To 9
Me.Controls("Textbox" & i).Value = Tabelle1.Cells(80, i + 1)
Next i
End If
If b "grösser als" 0 Then
For i = 1 To 9
Me.Controls("Textbox" & i).Value = Tabelle1.Cells(74, i + 1)
Next i
End If
Problem ist bei der ersten If Abfrage. Da zeigt er mir beim debuggen an, dass Tabelle1.Cells(6+a,3) = "N-16mm" ist und er führt dann die Anweisungen aus. Ich erwarte aber, dass zum Else gesprungen wird.
Was ist denn falsch?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter