Probleme bei Formeleingabe
16.01.2013 21:15:21
Baris
Hallo,
habe folgendes Problem:
Makro soll in einer bestimmten Spalte, die Zeilennummer von der Zelle mit Maximalwert ausgeben.
Wennn ich die Spalte nur Werte eingetragen werden funktinoert der Makro.
Wenn aber in die Spalte auch eine Formel eingetragen wird, dann funktioniert 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
https://www.herber.de/bbs/user/83440.zip