Makrofunktion auf alle Blättern benutzen
26.04.2006 22:26:46
Raik
Ich möchte gern folgende Funktion auf allen Blättern nutzen.
Function SummeW(Zelle As Range)
Dim W As Integer
Application.Volatile
For Each Zelle In Zelle.Cells
SummeW = SummeW + Zelle.Value * ActiveWorkbook.Sheets(1).Cells(Zelle.Cells.Row, 2).Value
W = W + ActiveWorkbook.Sheets(1).Cells(Zelle.Cells.Row, 2)
Next Zelle
SummeW = SummeW / W
End Function
Wenn ich das Activeworkbook.Sheets(1). weglasse, geht es auch nicht, und es kann vorkommen, dass die Funktion dann keine Ergebnisse liefert.
Das war meine erste Tabellenfunktion, deshalb bin ich an dieser Stelle ratlos.
Danke schonmal, bis morgen!
Raik