Supportnet / Forum / Tabellenkalkulation

Hi Leute, ich möchte in einer Datenliste von bestimmten Daten die Mittelwerte bilden. Durch ein Makro frage ich die Bereiche ab und möchte nun die Mittelwerte von dem Abgefragten Bereich bilden. Allerdings schein die Mittelwertformel keine Variablen zu benutzen und schreibt statt den Inhalt der Variablen den Namen dieser in die Formel. Ich hoff es kann mir jemand dabei helfen. Danke schon mal im Voraus. sev Hier noch ein Auszug aus dem Makro: Dim adrStart As String Dim adrEnd As String Dim XZ As String Dim XY As String Sub .......... adrStart = ActiveCell.Row ....... adrEnd = ActiveCell.Row ...... range("K" & adrStart).Activate XY = ActiveWindow.RangeSelection.Address range("K" & adrEnd).Activate XZ = ActiveWindow.RangeSelection.Address range("AI" & adrEnd).Formula = "=AVERAGE(XY:XZ)" .......... EndSub

Hi uhli,

mein Vorschlag (funzte jedenfalls bei mir):

Dim Bereich As Range

Set Bereich = Range(XY, XZ)

Range("AI" & adrEnd).Value = WorksheetFunction.Average(Bereich)

Klar, vor dem Set müssen XY und XZ zugewiesen sein.

Gruß Primut

hi primut,

klappt wunderbar. hatte es schon mal so ähnlich probiert nur ohne "set".
super!!!
velen dank hat mir sehr weitergeholfen.

gruß uhli

• Exel Tabelle nach Access exportieren mit VBA/Makro
• In Excel den Mittelwert in einer Spalter ermitteln in dem auch #NV steht
• Hlife zu Excel / VBA
• Excel - VBA: Variable Zellbezüge
• VBA - Bereich kopieren, für dessen 1. Zelle ein Name definiert wurde