Microsoft Excel

Herbers Excel/VBA-Archiv

For Each.. Next Anweisung

Betrifft: For Each.. Next Anweisung von: Andy
Geschrieben am: 26.08.2004 15:55:16

Hllöchen !

Ich habe in meinem Code die folgende "For Each.. Next" Anweisung. Sie bewirkt dass die zellwerte der zellen addiert werden, welche den FArbcode 35 besitzen.
Leider wird die Anweisung schon nach der ersten zelle, mit dem FArbcode, beendet. Was ist an der anweisung falsch?

Dim Wert as Variant
Dim Summe1 As Double
Summe1 = 0
For Each Wert In Range(Cells(9, 9), Cells(29, 9))
If Wert.Interior.ColorIndex = 35 Then
Summe1 = Summe1 + Wert.Value
Exit For
End If
Next
Cells(34, 6).Value = Summe1

Gruß
Andy

  


Betrifft: AW: For Each.. Next Anweisung von: AndreasST
Geschrieben am: 26.08.2004 15:56:52

Hallo,

das "Exit For" muß da weg!

Gruß
Andreas


  


Betrifft: AW: For Each.. Next Anweisung von: Udo
Geschrieben am: 26.08.2004 15:57:43

Wenn du Exit for schreibst, wird die Schleife verlassen.

Udo


  


Betrifft: AW: For Each.. Next Anweisung von: Andreas Walter
Geschrieben am: 26.08.2004 15:57:48

Schmeiss die Zeile
Exit For
raus (Ersatzlos löschen)
und Du wirst glücklich


  


Betrifft: Danke von: Andy
Geschrieben am: 26.08.2004 16:00:39

Ich danke euch.

Gruß
Andy