Hallo VBA-Profis,
ich hab ein Anliegen an euch:
Sub Makro1()
For n = LBound(tabName) To UBound(tabName)
With Worksheets(tabName(n))
lz = Cells(Rows.Count, 1).End(xlUp).Row
.Cells(3, 6).Value = Application.Average(Range(Cells(4, 2), Cells(lz, 2)))
End With
Next n
End Sub
Und zwar möchte ich einen Mittelwert in Zelle (F3) von (B4 bis ende)
Was mache ich falsch?
Viele Grüße
Andi
|