Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Finden Suchfunktion funktioniert nicht

Finden Suchfunktion funktioniert nicht
Axel
Hallo Cracks,
ich habe unten anstehendem Code folgendes Problem (bei der Ermittelung einer Max-Wert-Zeile):
innerhalb des angegebenen Bereiches myRange wird ein Maximalwert gesucht und dieser via Worksheetfunction.max() an pk korrekt übergeben. Suche ich unmittelbar danach denselben Maximalwert Pk im gleichen Bereich myRange, bleibt meine Suchvariable leer, Rh = nothing.
Habt ihr Ideen?
Gruß,
Axel
PS: gebe ich anstelle des gefundenen Maximalwertes Pk z.B. "Haus" ein und sorge dafür, dass dieser Wert auch in myRange vorhanden ist, findet er "Haus" ohne Probleme... 

Set myRange = ActiveSheet.Range(Cells(xyValRow1, yCol), Cells(xyValRow2, yCol))
myRange.Select 'hier keine Probleme
pk = Application.WorksheetFunction.Max(myRange) ' =zahlenwert: 14592814,4246388
Set Rh = myRange.Find(pk)
If Not Rh Is Nothing Then 'bleibt auf Rh = nothing?
MsgBox Rh.Address
MsgBox Rh.Row
End If

AW: Finden Suchfunktion funktioniert nicht
18.01.2012 16:58:05
Rudi
Hallo,
würde ich mit Match machen. 
Sub xxx()
Dim r1 As Range, z As Long
Set r1 = Range(Cells(10, 1), Cells(20, 1))
z = Application.Match(Application.Max(r1), r1, 0)
MsgBox r1(z).Address
End Sub

Gruß
Rudi
AW: Finden Suchfunktion funktioniert nicht
19.01.2012 08:35:51
Axel
Guten morgen Rudi,
wenn ich Application.M... eingebe, bietet mir der Editor im Drop-Downmenue kein .Match an. Das hat mich bei der Recherche durch alte Beiträge schon gewundert, weil ein anderer User das gleiche Problem hatte.
Dennoch:
Dein Code klappt prima, dankeschön, das löst mein Problem. Wobei mich mein Teilproblem von oben schon interessieren würde. Denn: wenn ich den Bereich manuell über eine Schleife 

for i = 1 to 8760
if MaxVal

durchsuche, dann funktioniert es prima.
Wie auch immer: Ich werde Deinen Code nutzen, er ist kürzer und eleganter.
Nochmals Danke,
Axel
Anzeige
...Weil der Intellisense hier nur auf Worksheet...
19.01.2012 10:08:53
Luc:-?
…Function abstellt, Axel!
Manche meinen, sie müssten immer nur Application dafür verwenden, weil man nur so, wie vom TabBlatt gewohnt, ggf auch einen Fehlerwert geliefert bekommt. Dabei sollte es doch eigentl reichen, wenn man im Nachhinein feststellt, dass die jeweilige Variable leer (bzw auf 0 oder Voreinstellung) geblieben ist. Im TabBlatt versucht Mancher mit zusätzl Fktt genau dass zu erreichen, in Pgmm will er o.A. dann aber genau das Gegenteil! Irgendwie doch „verkehrte Welt”… ;->
Gruß Luc :-?
AW: ...Weil der Intellisense hier nur auf Worksheet...
20.01.2012 11:19:45
Axel
Hey Du Philosoph!
Ich würde Dich ja gerne verstehen,
aber Du bist auf einer höheren Umlaufbahn als ich…
Ich kann Dir nicht folgen. Kannst Du das etwas
konkreter beschreiben?
Gruß, Axel
Anzeige
Was ist da nicht zu verstehen, ...
20.01.2012 21:08:13
Luc:-?
…Axel?
Schau doch einfach mal in die VBE-Hilfe!
1. Stichwort WorksheetFunction: Das ist ein Objekt, dass einen Großteil der TabBlatt-Fktt beinhaltet, sozusagen ein Container für diese.
2. Stichwort Application: Das ist die Anwendung, also Xl selbst.
3. Stichwort Intellisense: Das ist ein Service des VB-Editors, der so programmiert ist, dass er nur auf korrekt referenzierte Objekte anspricht. Application.Match ist in diesem Sinne keine korrekte Referenzierung, fktt aber trotzdem und sogar etwas anders als bei korrekter Referenzierung, nämlich (fast) wie im TabBlatt.
Dahingehend hatte ich dein Erstaunen verstanden, weshalb ich es dir zu erläutern versucht habe.
Fazit: Ohne WorksheetFunction kein Intellisense für den Inhalt dieses Container-Objekts!
Alles andere magst du als „Philosophie” ansehen, beruht aber auf Erfahrungen und ist hier auch schon abundzu diskutiert worden.
Gruß+schöWE, Luc :-?
Anzeige
AW: Was ist da nicht zu verstehen, ...
20.01.2012 22:26:17
Gerd
Hallo Axel,
bei der Find-Methode sollte man die Parameter lookin, lookat u. ggf. matchcase mit angeben.
Ansonsten wird nach mit Einstellungen im Dialog "Suchen" gesucht u. diese passen nicht immer.
Gruß Gerd
...Das natürl außerdem auch! ;-) schöWE owT
21.01.2012 06:16:36
Luc:-?
:-?
AW: ...Das natürl außerdem auch! ;-) schöWE owT
23.01.2012 10:46:52
Axel
Männer,
danke für die Erklärungen.
Da hab ich wieder etwas dazu gelernt.
Axel

311 Forumthreads zu ähnlichen Themen

Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Anzeige
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 Beiträge
KW Funktion funktioniert nicht
Peter

Hallo Excelfreunde
Ich bekomme in einer Datei die KW Funktion nicht hin.
Bei mir zu Hause funktioniert die Ausgabe der jeweiligen Kalenderwoche.
Die Analysefunktion muss dafür per Add in angewählt werden.
Dann "=KALENDERWOCHE(A1205)" eingeben - fertig.
Aber im Betrieb läuft...
14.03.2009 19:26:55
Thread-ID: 1060238
4 Beiträge
Anzeige
SummeWenn bei nicht exaktem Zelleninhalt
Tommi

Liebes Excel-Forum,
ich habe eine Datei, bei der in ein Textfeld Namen eingegeben werden. Die eingegebenen Namen (z.B. Max Mustermann) werden über eine Zellverlinkung in Zelle K4 ausgeworfen. Eine SummeWenn-Funktion in Zelle K5 schaut dann, wieviele Kosten für den Namen bereits aufgelaufen...
01.04.2009 11:13:57
Thread-ID: 1065916
10 Beiträge
"summewenn" in Zeiterfassung funktioniert nicht
Gernot

Die Datei https://www.herber.de/bbs/user/61213.xls wurde aus Datenschutzgründen gelöscht
Liebe Forumsexperten
Ich habe so ziemlich alle "summewenn" und "summenprodukt"-Lösungen probiert, die im Forum so gut beschrieben sind. Leider funktioniert keine der Lösungen. Die Exceldatei habe i...
15.04.2009 18:40:21
Thread-ID: 1068933
6 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
Formel funktioniert nicht
Robert

Hallo Excel Freunde
ich habe mal wieder ein Problem mit einer Formel. Ich verwende in Zelle C13 die folgende Formel. Die Formel arbeitet soweit auch ordentlich. Jedoch wenn ich in Zele F13 "kz" eingebe wird in Zelle C13 ein F angezeigt.
Was mir sagt, dass die Funktion WENN(ODER(F13="F...
20.09.2009 21:47:16
Thread-ID: 1104307
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
7
3
4
9
5
7
5
4
6
4
2
5
6
7
4
5
1
9
2
9
3
19
1