Office: zwei schleifen ineinander

Toulousi · 28. Januar 2017

Hallo Leute,

folgendes:

Ich hab eine Schleife, die in einer Spalte Zeile für Zeile durchsucht nach einem Wert.
Nun springe ich per Hand in die nächste Spalte und so weiter. Beginnend von Spalte 5 bis spalte 229 mit step 7. sieht so aus:

Code:

For i = 1 To Worksheets(jahr).Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets(jahr).Cells(i, 5).Value = CInt(CBArtikel.Value) Then
s = s + Worksheets(jahr).Cells(i, 10).Value
End If
Next i

For i = 1 To Worksheets(jahr).Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets(jahr).Cells(i, 12).Value = CInt(CBArtikel.Value) Then
s = s + Worksheets(jahr).Cells(i, 17).Value
End If
Next i

For i = 1 To Worksheets(jahr).Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets(jahr).Cells(i, 19).Value = CInt(CBArtikel.Value) Then
s = s + Worksheets(jahr).Cells(i, 24).Value
End If
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich könnte nun Spalte für Spalte programmieren. Aber es geht doch sicherlich leichter?!

Danke für die Hilfe.

:)

Crazy Tom · 30. Januar 2017

Hallo

ungetestet

Code:

Sub test()
For i = 1 To Worksheets(jahr).Cells(Rows.Count, 1).End(xlUp).Row
For j = 5 To 229 Step 7
If Worksheets(jahr).Cells(i, j).Value = CInt(CBArtikel.Value) Then
s = s + Worksheets(jahr).Cells(i, j + 5).Value
End If
Next
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

Toulousi · 30. Januar 2017

Hallo Tom,
danke. So hab ich das bereits versucht. Es kommt aber am Ende das falsche Ergebnis heraus. Die zu addierenden Werte stehen zwar in der Tabelle als Betrag (z.b. 50,00 €), die Zelle ist aber als Text formatiert. Kann es sein das er deswegen nicht das richtige Ergebnis ausgibt??

Toulousi · 30. Januar 2017

Guten Morgen,

habe gerade meinen Fehler gefunden. Es war einfach zu offensichtlich. ;-)

Gruß und danke

Office: zwei schleifen ineinander

zwei schleifen ineinander

zwei schleifen ineinander

zwei schleifen ineinander

zwei schleifen ineinander - Similar Threads - schleifen ineinander

Verkettung von Zellen - Schleife

While-Schleife wird nicht beendet

For Next Schleife

VBA Schleife kopieren und einfügen von Spalten

Eine Schleife mit zwei tebellen vba Access

Bestimmte Daten zwischen innerhalb eines Datumsbereichs einer Tabelle Anfügen

VBA Loop : Werte suchen und löschen