Makro übernimmt Formeln nicht

[Baris]

Hallo,

habe folgendes Problem:
Makro soll in einer bestimmter Spalte die Zeilennummer von der Zelle mit Maximalwert geben.
Wennn ich die Spalte nur Werte eingetragen werden funktinoert der Makro.
Wenn aber in die Spalte auch eine Formel eingetragen wird, dann funktinoert der Makro wegen Varialendeklaration nicht.
Bitte um Unterstützung.

danke

Gruß

Baris

s. code unten:

Sub Makro3()

Dim Adresse As Long, wsF As WorksheetFunction, Bereich As Range
Dim a
Dim quo As Long

For quo = 1 To 2

Cells(quo, 1).Formula = "=(" & Cells(1, quo + 1).Address(0, 0) & ") +  (" & Cells(2, quo + 1).Address(0, 0) & ")"
Next quo

Set wsF = WorksheetFunction
Set Bereich = ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(15, 1))

Adresse = Bereich.Find(what:=wsF.Max(Bereich), lookat:=xlWhole).Row

MsgBox Adresse, vbInformation, "Adresse"
End Sub

 

[Zvoni]

Check mal "formulalocal" anstatt "formula"