VBA-Beispiel 124
mail schreiben
mail schreiben

Durchschnitt berechnen

Berechnet den Durchschnitt der Spalten B und C aller Exceltabellen dieser Mappe.

Public Sub MittelwertAlleTabellen()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim lngZeile As Long

Workbooks.Add
Set wksZiel = ActiveSheet

For Each wksQuelle In ThisWorkbook.Worksheets
  lngZeile = lngZeile + 1
  wksZiel.Cells(lngZeile, 1) = WorksheetFunction.Average(wksQuelle.Columns("B:C"))
Next wksQuelle

With wksZiel
  .Cells(1, 2) = WorksheetFunction.Average(wksZiel.Columns("A:A"))
  .Columns("A:A").Delete
End With

Set wksZiel = Nothing
End Sub


Download:   vba124.zip