Microsoft Excel

Herbers Excel/VBA-Archiv

Fehler in If Schleife

Betrifft: Fehler in If Schleife von: Max
Geschrieben am: 12.09.2004 17:23:02

Hallo,

im folgenden Code ist ein Fehler in der zweiten If-Anweisung. Irgendwie mag er die Variable Index2 an der Stelle nicht und ich verstehe nicht warum.

Danke und Grüße
Max

Sub calc()
Dim Index As Integer
Dim b As Double
Dim Index2 As Integer
b = 0
For Index = 1 To 256 Step 1
    If Sheet3.Cells(4, Index) = "Wert1" Then b = b + Sheet3.Cells(21, Index).Value
    Index2 = Index + 1
    If Sheet3.Cells(4, Index2) = "" Then b = b + Sheet3.Cells(21, Index2).Value
Next
Cells(6, 2).Value = b
End Sub

  


Betrifft: AW: Fehler in If Schleife von: ypsilon
Geschrieben am: 12.09.2004 17:28:14

hi Max
index2 ist wie du ja selbst geschrieben hast index + 1
und jetzt ist index eben 256 und damit index2 257 und soviele spalten gibts in excel nun mal nicht
cu Micha


  


Betrifft: AW: Fehler in If Schleife von: Max
Geschrieben am: 12.09.2004 17:36:27

OK danke das hab ich verstanden aber wenn ich jetzt noch eine zweite IF-Anweidung um das abzufangen kennt er Index2 in der unteren If-Anweisung auch nicht.

CU
Max


Sub calc()
Dim Index As Integer
Dim b As Double
Dim Index2 As Integer
b = 0

For Index = 1 To 256 Step 1

    If Sheet3.Cells(4, Index) = "Merger" Then
        b = b + Sheet3.Cells(21, Index).Value
        If Index < 256 Then
            Index2 = Index + 1
        End If
    End If
    If Sheet3.Cells(4, Index2) = "" Then b = b + Sheet3.Cells(21, Index2).Value
Next
Cells(6, 2).Value = b
End Sub



  


Betrifft: Vergiss es hab den Fehler o.T. von: Max
Geschrieben am: 12.09.2004 17:37:30

.


  


Betrifft: ok vergessen ! ;-) o.t. von: y
Geschrieben am: 12.09.2004 18:11:37

.


 

Beiträge aus den Excel-Beispielen zum Thema "Fehler in If Schleife"