Office: For Each Schleife abbrechen mit IF

fruitfly · 12. Dezember 2016

Liebe Community,

mir stellt sich gerade die Frage, wie ich eine For Each Schleife abbrechen kann.

In der anhängenden Excel-Datei habe ich den Bereich A1:A25 mit dem Bereichsnamen "open" versehen.

Im Bereich B3:B25 soll dann ein Mittelwert ausgegeben werden.

Aber nur, wenn auch in jeder Zelle im Bereich ein Wert steht.

Sind nun im Bereich "open" nur Werte von A1 bis A17 vorhanden, dann soll das Makro auch nur die Zellen B3 bis B17 befüllen.

Hab schon viel gegoogelt und auch verschiedene Varianten ausprobiert, leider komme ich nicht weiter.

Vielleicht könnt Ihr mir helfen!

Vielen Dank und Grüße

Alois

Code:

Dim rngOpen As Range
Dim rngZeile As Range
Dim intZaehler As Integer

Set rngOpen = Range("open")

For Each rngZeile In rngOpen

'If rngZeile.Value = "" Then
If IsEmpty(rngZeile.Value) = True Then
Exit For
Else
With WorksheetFunction

intZaehler = 1

For intZaehler = 3 To rngOpen.Rows.Count

Cells(intZaehler, 2) = .Average(Range(Cells(1, 1), (Cells(3, 1))))

Next intZaehler

End With
End If

Next rngZeile

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 14. Dezember 2016

If Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel, Fehler usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

if Cells(intZaehler, 1) = "" then
Exit For
else
Cells(intZaehler, 2) = .Average(Range(Cells(1, 1), (Cells(3, 1))))
Endif

fruitfly · 15. Dezember 2016

Servus Hajo,

vielen Dank füe Deine Antwort, ohne Dich hätte ich nachfolgenden Code nicht zum laufen gebracht, bzw. so wie ich das gern haben wollte!

Selbstverständlich werde ich zukünftig hochgeladene Dateien mit einen aussagekräftigen Namen versehen!

Code:

Sub Mittelwert()

Dim rngOpen As Range
Dim rngMittelwert As Range
Dim intZaehler As Integer
Dim intMittelwert As Integer

Set rngOpen = Range("open")
Set rngMittelwert = Range("mittelwert")

intMittelwert = 6

With WorksheetFunction

For intZaehler = 1 To rngOpen.Rows.Count
If Cells(rngOpen.Row - 2 + intMittelwert + intZaehler, rngOpen.Column) = "" Then
Exit For
Else

Cells(rngOpen.Row - 2 + intMittelwert + intZaehler, rngMittelwert.Column) = _
.Average _
(Cells(rngOpen.Row - 1 + intZaehler, rngOpen.Column), _
(Cells(rngOpen.Row - 2 + intMittelwert + intZaehler, rngOpen.Column)))

End If
Next intZaehler

End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: For Each Schleife abbrechen mit IF

For Each Schleife abbrechen mit IF

For Each Schleife abbrechen mit IF

For Each Schleife abbrechen mit IF - Similar Threads - For Each Schleife

For Each Next läuft nur einmal durch

For Each Schleifen als Struktogramm

For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

For Each Schleife, Zellen von zwei Bereichen vergleichen

For Each Schleife mehrmals nach gleichem Wert suchen

Recordset mit For each durchlaufen

VBA: For Each Schleife mit mehreren Bedingungen