Makrofunktion auf alle Blättern benutzen

Forumthread: Makrofunktion auf alle Blättern benutzen
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makrofunktion auf alle Blättern benutzen

27.04.2006 00:26:46

Raik

Guten Abend Forum,
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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 00:51:16

Mustafa
AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 00:54:04

{Boris}
Sorry - natürlich @ Raik (nicht Ralf) ___oT

27.04.2006 00:55:28

{Boris}
AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 10:17:50

Raik
Das hört sich stark nach SUMMENPRODUKT an...

27.04.2006 12:08:53

{Boris}
AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 12:11:33

Heiko
AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 16:45:36

Raik
AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 10:08:13

Raik

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 00:51:16

Mustafa

Hallo Raik,
versuch es mal mit ActiveWorksheet.Cells(Zelle.Cells.Row,2)
ungetestet
Rückmeldung obs hilft ist gern gesehen.
Viele Grüße aus Köln.

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 00:54:04

{Boris}

Hi Mustafa,
ungetestet
Wohl war ;-)
@Ralf:
Was ist denn Cells(Zelle.Cells.Row, 2)?
Außerdem hab ich die Frage nicht wirklich verstanden...
Grüße Boris

Sorry - natürlich @ Raik (nicht Ralf) ___oT

27.04.2006 00:55:28

{Boris}

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 10:17:50

Raik

Hallo Boris,
es soll wie die Summenfunktion arbeiten, nur dass bei den Blättern auf Spalte 2 Wichtungen stehen. Es wird also die Summenspalte mit der Wichtungsspalte multipliziert, die Ergebnisse werden addiert, die Wichtungsspalte wird addiert und dann Ergebnissumme durch die Wichtungssumme dividiert.

Das hört sich stark nach SUMMENPRODUKT an...

27.04.2006 12:08:53

{Boris}

Hi Raik,
demzufolge brauchst du gar keine UDF.
Gib doch mal bitte ein kleines Zahlenbeispiel mit Angabe der Zellbereiche (und Blattnamen).
Grüße Boris

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 12:11:33

Heiko

Hallo Raik,
z.B. mit diesen Versionen, aber wenn Boris Recht hat dann brauchst du das ja garnicht per UDF.


Function SummeW1(Zelle As Range)
Dim W As Integer
Application.Volatile
For Each Zelle In Zelle.Cells
SummeW1 = SummeW1 + (Zelle.Value * ActiveSheet.Cells(Zelle.Cells.Row, 2).Value)
W = W + ActiveSheet.Cells(Zelle.Cells.Row, 2)
Next Zelle
SummeW1 = SummeW1 / W
End Function


Function SummeW2(Zelle As Range)
Dim W As Integer
Application.Volatile
For Each Zelle In Zelle.Cells
SummeW2 = SummeW2 + (Zelle.Value * Zelle.Offset(0, 1).Value)
W = W + Zelle.Offset(0, 1).Value
Next Zelle
SummeW2 = SummeW2 / W
End Function

Gruß Heiko
PS: Rückmeldung wäre nett !

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 16:45:36

Raik

Hallo Heiko,
ich wollte mich nurmal melden, dass ich bisher noch nicht dazugekommen bin, Deine Lösungen zu testen. Ich werde ev. erst heute Abend dies prüfen können.
Ich danke Dir aber für Deine Hilfe
Gruß Raik

AW: Makrofunktion auf alle Blättern benutzen

27.04.2006 10:08:13

Raik

Hallo Mustafa,
Nein das Funktioniert leider auch nicht.
Gruß Raik

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!