Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Probleme bei Formeleingabe

Probleme bei Formeleingabe
16.01.2013 21:15:21
Baris
https://www.herber.de/bbs/user/83440.zip
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme bei Formeleingabe
17.01.2013 06:48:43
Luschi
Hallo Baris,
so klappt es bei mir:

Sub Makro3a()
Dim Adresse As Long, wsF As WorksheetFunction, Bereich As Range
Dim a
Dim quo As Long
For quo = 1 To 2
ActiveSheet.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), LookIn:=xlValues).Row
MsgBox Adresse, vbInformation, "Adresse"
Set wsF = Nothing
Set rg = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
PS: Es lag am falschen Parameter im Find-Befehl. 'lookat:=xlWhole' ist nur bei der Suche von Text-Werten sinnvoll.

Anzeige
AW: LookIn:=xlValues
17.01.2013 06:50:05
hary
Hallo Baris
Adresse = Bereich.Find(what:=wsF.Max(Bereich), LookIn:=xlValues, lookat:=xlWhole).Row

gruss hary

AW: Probleme bei Formeleingabe
18.01.2013 19:24:43
Baris
Hallo,
Danke für deine Antwort.
Das war die Lösung.
Grüße
Baris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige