Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VLookup nach links

VLookup nach links
Horst
Hallo Excel-Freunde,
eine Frage, die ihr sicher schnell beantworten könnt: Mit folgendem Befehl suche ich per VBA mit dem SVerweis ausgehend von Spalte A (Datumsspalte) nach rechts, um dort den Wert in der 40. Spalte ausgeben zu lassen:
"VLOOKUP(today(),'C:\Dokumente und Einstellungen\User\Desktop\Test_Order\Test_Order\[results.xls]results'!R1C1:R65536C125,40)"
Jetzt ist das Problem, das das Datum nicht in Spalte A, sondern in der 127. Spalte steht und von dort aus nach links der Wert in der 40. Spalte gesucht werden soll. Wie müsste die obige VBA-Anweisung dann aussehen?
Zudem findet der Befehl nur "ganze Tage". Wie müsste der Befehl aussehen, damit nach dem aktuellen Datum und der aktuellen Uhrzeit (hh:mm) gesucht wird. Mit "now" (statt "today") bekomme ich Laufzeitfehler 13 "Typen unverträglich". Die Datumwerte haben folgende Form: 40690.825, 40690.82569, 40690.82639, 40690.82708, 40690.82778 usw. (minütliche Daten)
Besten Dank für Eure Vorschläge!

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VLookup nach links
01.06.2011 23:24:14
Mustafa
Hallo Horst,
unter http://www.excelformeln.de/formeln.html?welcher=24 steht für SVerweis nach links diese Formel :
Suchspalte ist B
Ergebnisspalte ist A
Suchbegriff ist Schulze
=INDEX(A:A;VERGLEICH("Schulze";B:B;0))
Müsstest du halt dann nur für deine Bedürfnisse umstellen und in deinen Code einbinden.
Rückmeldung obs hilft wäre nett.
Gruß aus der Domstadt Köln.
AW: VLookup nach links
01.06.2011 23:32:08
Horst
Hallo Mustafa,
danke für den Hinweis, das habe ich auch bereits gefunden. Nur kann ich "INDEX(A:A;VERGLEICH("Schulze";B:B;0))" so einfach in eine VBA-Prozedur reinschreiben? "SVERWEIS" funktioniert ja im VBA-Code auch nicht, dort heißt es "VLookup". Wie muss ich dann "Index" und "Vergleich" innerhalb des Codes angeben? Evtl. kann jemand ein Bsp. reinstellen.
Die zweite Frage mit der genauen Systemzeit ist noch offen. Wenn ich in der 127. Spalte Datum + Uhrzeit (minütlich) stehen habe, ist dann "now" der richtige Befehl?
Gruß, Horst
Anzeige
AW: VLookup nach links
02.06.2011 01:34:11
Florian
Hallo Horst!
Nimm doch einfach die Formeln mit dem VBA-Recorder aus, dann siehst Du's. Genauso mit der Uhrzeit in min/h.
Gruss Florian
AW: VLookup nach links
02.06.2011 06:42:47
BoskoBiati
Hallo Horst,
mit FormulaLocal kannst Du die Formeln in VBA (fast) so eingeben, wie Du es bei Formeln gewohnt bist.
Now ist sekundengenau, da wäre die Frage was Du vorhast. Entweder suchst Du nach Ganzzahl, dann hast Du es auf Tage genau, oder Du musst festlegen, wie genau der Wert gesucht werden soll. Vergleich kann ja bei sortierten Listen auch nach dem nächstkleineren Wert suchen.
Gruß
Bosko
zur 1. Frage ...
02.06.2011 07:11:37
Matthias
Hallo
 ABCD
133Schulze99Lehmann
212Meier33Schulze
399Lehmann12Meier

Formeln der Tabelle
ZelleFormel
C1=INDEX(A:A;VERGLEICH(D1;B:B;0))
C2=INDEX(A:A;VERGLEICH(D2;B:B;0))
C3=INDEX(A:A;VERGLEICH(D3;B:B;0))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

MsgBox WorksheetFunction.Index(Columns(1), WorksheetFunction.Match("Schulze", Columns(2), 0))
Userbild
Anzeige
AW: VLookup nach links
02.06.2011 11:37:35
fcs
Hallo Horst,
theoretisch sollte es so funktionieren.
Bei der Suche nach einer Uhrzeit kommt sehr schnell die Rechengenauigkeit von Excel ins Spiel.
Minuten sind excel-intern Zahlen mit 10 Nachkommenstellen.
Bei manueller Eingabe von Datum/Zeit funktioniert es nach meiner Erfahrung immer.
Ist Datum+Uhrzeit das Ergebnis einer Berechnung, dann kann es zu Rundungsabweichungen kommen und Match findet die Datum/Zeitangabe nicht. In diesem Fall muss berechnetes Datum/Zeit nochmals aufbereitet werden mit Formel:
=DATWERT(TEXT(AM2;"JJJJ-MM-TT")) + ZEITWERT(TEXT(AM2;"hh:mm"))
Gruß
Franz Sub aaTime_min() Dim vTime As Date, vZahl As Double, vZeile, wert On Error GoTo Fehler vTime = CDate(Format(Now, "YYYY-MM-DD hh:mm")) vZahl = CDbl(vTime) vZeile = Application.WorksheetFunction.Match(vZahl, Columns(127), 0) wert = Application.WorksheetFunction.Index(Columns(40), vZeile, 1) 'Testausgabe Anzeige: MsgBox vTime & vbLf & vZahl & vbLf & wert Fehler: With Err Select Case .Number Case 0 'Alles OK Case 1004 wert = "nicht gefunden" Resume Anzeige Case Else MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description End Select End With End Sub
Anzeige
AW: VLookup nach links
02.06.2011 14:50:45
Horst
Hallo Franz,
danke für den Tipp; irgendwie denke ich, dass man die Datumswerte (z.b. 40695.88611 für 01.06.2011 21:16) auf zwei Nachkommstellen runden muss, damit sie gefunden werden. Es handelt sich dabei um minütliche Daten. Ich habe dir anbei eine Beispielmappe samt VBA-Code (in Modul 1) hochgeladen:
https://www.herber.de/bbs/user/75137.zip
Grundsätzlich geht es darum, dass die in der 41. Spalte (Spalte "AO") des Tabellenblatts "results" stehenden Werte abhängig von der Systemzeit gefunden werden und das Ergebnis in eine .html geschrieben wird. Ist also die aktuelle Systemzeit der 01. Juni 2011 21:16, soll in Spalte "DV" nach dem Datum gesucht werden und der zugehörige Zeilenwert der Spalte "AO": 21.40 in die .html geschrieben werden.
In untenstehenden VBA-Code steht der Befehl "VLookup" der natürlich nicht funktioniert, da einerseits nach links statt nach rechts gesucht werden soll und andererseits die "now"-Anweisung hinsichtlich der Nachkommestellen zu genau ist. Wie baue ich hier ein "=INDEX(AO:AO;VERGLEICH(DV2;DV:DV;0))" sowie dein obiges Makro ein?
Wenn noch Zeit bleibt, würde mich dann abschließend noch interessieren, ob man in der .html eine "bedingte Formatierung" berücksichtigen kann, sodass sofern der aus Spalte "AO" ausgelesene Wert größer 50 ist, er in der .html farblich hinterlegt wird.
Allerbesten Dank vorab für deine Bemühungen!
Gruß, Horst
Anzeige
AW: VLookup nach links
02.06.2011 18:09:27
Horst
Hallo Franz,
besten Dank. Ich habe ein kleines Problem: Selbst wenn ich die Systemzeit auf 01.06 21:00 Uhr rückstelle, bekomme ich die Fehlermeldung "Laufzeitfehler 1004: Die Methode 'ExecuteExcel4Macro' für das Objekt _Global ist fehlgeschlagen. Woran könnte das liegen?
Gruß , Horst
AW: VLookup nach links
02.06.2011 22:15:49
fcs
Hallo Horst,
den Fehler kann ich bei mir (Excel 2007) nicht nachvollziehen.
Möglicherweise wird der Formeltext zu lang (mehr als 255 Zeichen) weil du deine Dateien in einem Pfad speicherst, der sehr viele Zeichen beinhaltet. Speichere deine Dateien z.B. mal im Verzeichnis. C:\Dokumente\Test
und passe das Makro an.
Damit es keine Fehlermeldung gibt, wenn die Uhrzeit nicht gefunden wird, muss die Variablendeklaration korrigiert werden.
Außerdem hab ich noch einige nicht benutzte Objektvariablen gelöscht bzw. umbenannt.
Hier eine Datei, die bei mir funktioniert.
https://www.herber.de/bbs/user/75141.xls
Gruß
Franz
Anzeige
AW: VLookup nach links
02.06.2011 23:20:16
Horst
Hallo Franz,
der Fehler unter Excel 2003 steht offenbar tatsächlich mit der Länge des Formeltextes in Verbindung (55 Zeichen scheinen hier bereits zu viel zu sein; gibt es hier Abhilfe außer Excel 2010 zu kaufen?). Ich habe den Pfad auf "C:\Test_Order" geändert und die Werte werden sowohl im Arbeitsblatt als auch in der .html korrekt angezeigt. Einfach großartig.
Du hast erwähnt, dass sofern die Uhrzeit nicht gefunden wird, die Variablendeklaration korrigiert werden müsste. Ich nehme an, dass ist bereits geschehen?
Nochmal allerbesten Dank für deine Bemühungen!
Schöne Grüsse, Horst
Anzeige

301 Forumthreads zu ähnlichen Themen

SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Anzeige
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
Datum von rechts nach links
rechts

Guten morgen,
ich habe folgendes Problem. Ich möchte ein Datum 11.12.2010 in folgendes Format umwandeln: 20101211 (JJJJMMTT ohne Punkte). Kann mir jemand dabei helfen?
Viele Grüße und Danke
Rüdiger
22.11.2010 11:06:56
Thread-ID: 1188121
7 Beiträge
Anzeige
Wenn, mit links und anzahl kombinieren?
Sascha

Hallo Freunde,
mein Problem: Ich habe zb. eine Spalte : D und moechte in die Spalte C: die ersten 2 beiden zahlen/zeichen haben und in die Spalte E: von rechts aus die 3.
Das geht ja mit zb. =LINKS(D2;2) und =RECHTS(D2;3).
Nun sind die Zahlen in der Spalte aber leider nicht alle 5 s...
14.02.2011 09:48:37
Thread-ID: 1200630
4 Beiträge
Wenn Funktion in Verbindung mit Links-Funktion
kathy

Hallo Leute,
ich habe Werte die wie folgt aussehen, z.B.:
1-242;1-440.9;1-632;3-200;3-990 oder
5-399.5;5-399.5:R;8-701;8-771
Jetzt benötige ich nur die erste Ziffer. Wenn nach der fünften Stelle ein ";" dann nur die ersten fünf Stellen und wenn ein "." erscheint, dann die erste...
17.03.2011 13:51:42
Thread-ID: 1206129
6 Beiträge
Wenn Funktion gekoppelt mit Links Funktion
kathy

Hallo Leute,
ich habe zwei verschiedene Zahlenformate (entweder 7 oder 8 stellig), z.B.
- 5-690.1
- 5-790.1C
Wie müsste die Formel aussehen, wenn man sagen möchte,
wenn(zahl 7stellig; dann links 3 zahlenwerte und wenn 8stellig dann links 4 zahlenwerte)
Vielen Dank für Eu...
10.01.2012 23:28:11
Thread-ID: 1245564
4 Beiträge
SVERWEIS in anderer Tabelle nur gültige Werte
Christoph

Liebe Leute,
bitte um Unterstützung bei folgender Fragestellung:
Aus einer Tabelle mit Stamdaten (60 Spalten, ca. 500 Zeilen) wird mittels SVERWEIS
=SVERWEIS("Argument Spalte A";Stammdaten!$A2:$BH2;Suchspalte;FALSCH)
nach unterschiedlichen Argumenten in der Spalte A gesucht und...
13.01.2012 11:41:23
Thread-ID: 1246003
7 Beiträge
SVERWEIS mit Linksbezug
Bones26

Hallo!
Ich habe ein Problem mit SVERWEISEN. Die Grundidee verstehe ich, aber wenn es über mehrere Tabellenblätter geht, komme ich leider nicht mehr mit.
Ich habe in einer Tabelle mehrere Tabellenblätter in denen Fälle aufgelistet sind. Ich gebe nun einen Wert aus der Spalte B ein (egal...
26.02.2012 03:14:03
Thread-ID: 1252509
12 Beiträge

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
4
2
4
6
6
3
5
3
6
11
5
8
8
1
2
3
6
1
7
1
2
2
2
5
4