Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

sverweis in VBA

689 views
Skip to first unread message

Hubert Reiter

unread,
Jan 29, 2001, 10:59:14 AM1/29/01
to
Hallo NG'ler,

ich bräuchte eine äquivalente Funktion von sverweis in VBA. Gibt es etwas
vergleichbares?

Mein Ziel ist es, aus einer anderen Excel-Datei eine Information in
Abhängigkeit von einem Kriterieum zu holen und diese in einer anderen Datei
zu speichern.

Wer kann mir helfen?

Im Voraus vielen Dank und freundliche Grüße

Hubert Reiter


Manfred Grieble

unread,
Jan 29, 2001, 2:20:08 PM1/29/01
to
Hubert Reiter schrieb...

>ich bräuchte eine äquivalente Funktion von sverweis in VBA. Gibt es
>etwas vergleichbares?

Hallo Hubert,

man kann XL-Tabellenfunktione teilw. auch in VBA anwenden. Aller-
dings mußt du dann auch Anwendung davorschreiben etwa in der Form:

Var = Application.VLookup("a", "a1:a2", 5) (ungeprüft)

Welche Funktionen möglich sind findest du in der Onlinehilfe.

Gruß, Manfred

Frank Arendt-Theilen

unread,
Jan 29, 2001, 5:34:17 PM1/29/01
to
Hallo Hubert,
die gesuchte Function heißt VlookUp, also
Application.WorksheetFunction.VlookUp(Suchkriterium;Matrix;Spaltenindex;Bereich_Verweis)

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Mon, 29 Jan 2001 16:59:14 +0100, schrieb "Hubert Reiter"
<hubert...@kvb.de> in microsoft.public.de.excel zu "sverweis in
VBA":

Hubert Reiter

unread,
Jan 30, 2001, 2:49:50 AM1/30/01
to
Hallo Manfred,

erstmal vielen Dank für die Funktion, aber ich habe da noch ein paar Fragen:

Manfred Grieble <gri...@dialup.nacamar.de> schrieb in im Newsbeitrag:
954h8v$g3ge1$1...@ID-13535.news.dfncis.de...


> Hubert Reiter schrieb...
>
> >ich bräuchte eine äquivalente Funktion von sverweis in VBA. Gibt es
> >etwas vergleichbares?
>
> Hallo Hubert,
>
> man kann XL-Tabellenfunktione teilw. auch in VBA anwenden. Aller-
> dings mußt du dann auch Anwendung davorschreiben etwa in der Form:
>
> Var = Application.VLookup("a", "a1:a2", 5) (ungeprüft)
>

Wie muß ich den Suchbereich (Hier "a1:a2") angeben, wenn der Bereich in
einer anderen Tabelle liegt und einen Namen verpaßt bekommen hat?


>
> Welche Funktionen möglich sind findest du in der Onlinehilfe.
>

In der Online-Hilfe ist diese Funktion leider nicht zu finden. Wo kann ich
die Eigenschaften und Methoden nachschauen?
>
> Gruß, Manfred
>
>
>
>
>


Hubert Reiter

unread,
Jan 30, 2001, 2:51:27 AM1/30/01
to
Hallo Frank,

Frank Arendt-Theilen <Thei...@t-online.de> schrieb in im Newsbeitrag:
8h6b7tcb41roaduph...@4ax.com...


> Hallo Hubert,
> die gesuchte Function heißt VlookUp, also
>
Application.WorksheetFunction.VlookUp(Suchkriterium;Matrix;Spaltenindex;Bere
ich_Verweis)
>

In welcher Form ist die Matrix anzugeben, wenn die Matrix in einer anderen
Datei liegt (mit Bereichsnamen)?


>
> MfG Frank
> _____________________________________________________
> Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
> E-Mail: Thei...@t-online.de
>

MfG.

Hubert Reiter


Lutz Gentkow

unread,
Jan 30, 2001, 3:02:03 AM1/30/01
to
Hallo Hubert,

>Wie muß ich den Suchbereich (Hier "a1:a2") angeben, wenn der Bereich in
>einer anderen Tabelle liegt und einen Namen verpaßt bekommen hat?

einfach den Bereich mit der Maus markieren, Excel setzt den korrekten
Code selbständig ein.

Viele Grüße vom Niederrhein

Lutz

Frank Arendt-Theilen

unread,
Jan 28, 2001, 6:41:37 AM1/28/01
to
Hallo Hubert,
wie folgt :

Application.WorksheetFunction.VLookup(ActiveSheet. _
Range("A1").Value, Workbooks("Mappe1.xls"). _
Worksheets("Tabelle1").Range("A1:B4"), 2, False)

In diesem Fall muß der Suchbereich nicht sortiert vorliegen.

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Tue, 30 Jan 2001 08:51:27 +0100, schrieb "Hubert Reiter"
<hubert...@kvb.de> in microsoft.public.de.excel zu "Re: sverweis
in VBA":

Hubert Reiter

unread,
Jan 31, 2001, 5:08:09 AM1/31/01
to
Hallo Frank,

welcher Fehler ist in meiner Formel?

ActiveCell.Value = Application.WorksheetFunction.VLookup_
(ActiveCell.Offset(0, -2).Value, Workbooks_
("H:\Daten\Batches\users.xls").Worksheets("Tabelle1").Range(Cells(1, 1),_
Cells(400, 2)), 2, False)

Arg1 = Kriterium steht 2 Spalten vorher in der gleichen Zeile
Arg2 = andere Datei (users.xls) mit dem Worksheet und dem Bereich A1:B400
(evtl. wäre statt B400 auch die letzte beschriebene Zeile und die Spalte B
als Variable denkbar)
Arg3 = Zielspalte (es gibt nur zwei Spalten)
Arg4 = wahr oder falsch (genaue Übereinstimmung ist gewünscht)

Ich hoffe, du findest den Fehler. Die Fehlermeldung lautet:

Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs

Beenden Testen Hilfe

Danke und Gruss

Hubert


Manfred Grieble

unread,
Feb 3, 2001, 11:41:37 AM2/3/01
to
Hubert Reiter schrieb...

>In der Online-Hilfe ist diese Funktion leider nicht zu finden.
>Wo kann ich die Eigenschaften und Methoden nachschauen?

Hallo Hubert,

hier nochmal etwas verspätet ein weiterer Hinweis zur Unter-
stützung beim Verwenden von Tabellenfunktionen in VBA. Suche
auf deinem Compi die Datei "vbaliste.xls". Da stehen die Über-
setzungen Deutsch/Englisch drin.

Gruß, Manfred


0 new messages