For schleife Zeile Überspringen

Hallo zusammen,
ich habe eine For-Schleife in der ich den Mittelwert aus einer Zeile mit gewisser Range bestimmen möchte. Ist diese Zeile fertig wandert die For-Schleife einen Wert weiter und soll in dieser Zeile den Mittelwert berechnen.
Jetzt hab ich zwischendrin eine Leerzeile bei welcher mein Programm eine Fehlermeldung ausspuckt.
Meine Idee war nun die Zeile zu überspringen indem ich eine If-Abfrage mache, falls die Anzahl meiner gezählten Werte in der Zeile 0 ist, soll die Schleife mit dem nächsten Laufindex weitermachen.
Bekomme ich leider nicht richtig umgesetzt. Habt ihr da bessere Ideen?

Sub Mittelwert()
For i = 0 To 17
anz = Application.WorksheetFunction.Count(Worksheets("Tabelle1").Range(Cells(3 + i, 4), Cells(3  _
+ i, 19)))
meani = Application.WorksheetFunction.Sum(Worksheets("Tabelle1").Range(Cells(3 + i, 4), Cells(3  _
+ i, 19))) / anz
Set RangeMean = Worksheets("Tabelle1").Cells(3 + i, 19)
RangeMean.Value = meani
Next i
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Mittelwert() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1") Dim i As Long, meani As Double Dim r As Range, RangeMean As Range With Ws For i = 0 To 17 Set r = .Range(.Cells(3 + i, 4), .Cells(3 + i, 19)) If WorksheetFunction.Count(r) > 0 Then meani = WorksheetFunction.Sum(r) / WorksheetFunction.Count(r) Set RangeMean = .Cells(3 + i, 19): RangeMean.Value = meani End If Next i End With End Sub

Sub Mittelwert() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1") Dim i As Long, r As Range, RangeMean As Range With Ws For i = 0 To 17 Set r = .Range(.Cells(3 + i, 4), .Cells(3 + i, 19)) If WorksheetFunction.Count(r) > 0 Then Set RangeMean = .Cells(3 + i, 19): RangeMean.Value = WorksheetFunction.Average( _ r) End If Next i End With End Sub

For i = 0 To 17 anz = Application.WorksheetFunction.Count(Worksheets("Tabelle1").Range(Cells(3 + i, 4), _ Cells(3 + i, 19))) If anz 0 Then meani = Application.WorksheetFunction.Sum(Worksheets("Tabelle1").Range(Cells(3 + i, 4), _ Cells(3 + i, 19))) / anz Set RangeMean = Worksheets("Tabelle1").Cells(3 + i, 19) RangeMean.Value = meani End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

For schleife Zeile Überspringen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread