Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

sverweis vba große datenbank

sverweis vba große datenbank
06.03.2003 11:39:32
jürgen
wie funktioniert der sverweis in vba
hab eine große datenbank
ich möchte im dabellenblatt "datenbank" bereich a1 : z5000
eine durch imputbox eingegebene nummer suchen und dann den wert der 2 Spalte auslesen und im dabellenblatt "auswertung" in zelle b7 eintragen aber nur wenn die nummer in der datenbank vorhanden ist
danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: sverweis vba große datenbank
06.03.2003 11:50:59
Ramses

Hallo,

eine kleine Begrüssung lässt die Frage gleich freundlicher erscheinen und erhöht die Bereitschaft diese zu beantworten ;-)

In deinem Fall lautet die äquivalente Funktion

Application.WorksheetFunction.VlookUp(Aufbau Gleich wie SVERWEIS)

Allerdings kannst du den Fehler nicht richtig abfangen wenn der Eintrag nicht gefunden wird.
Deshalb bevorzuge ICH eine Schleife, ob elegant oder nicht :-), lässt mir das mehr Freiheit:

Sub Start_Suche()
Dim Suchbegriff As Variant
Suchbegriff = InputBox("Suchbegriff eingeben","Suche",1)
For i = 1 to 5000
If worksheets("Datenbank").cells(i,1) = Suchbegriff Then
Worksheets("Auswertung").Cells(7,2) = worksheets("Datenbank").cells(i,2)
Exit Sub
End If
Next I
MsgBox "Suchbegriff: " & Suchbegriff & " wurde nicht gefunden"
End Sub

Gruss Rainer

Anzeige
Re: sverweis vba große datenbank
06.03.2003 11:51:00
Ramses

Hallo,

eine kleine Begrüssung lässt die Frage gleich freundlicher erscheinen und erhöht die Bereitschaft diese zu beantworten ;-)

In deinem Fall lautet die äquivalente Funktion

Application.WorksheetFunction.VlookUp(Aufbau Gleich wie SVERWEIS)

Allerdings kannst du den Fehler nicht richtig abfangen wenn der Eintrag nicht gefunden wird.
Deshalb bevorzuge ICH eine Schleife, ob elegant oder nicht :-), lässt mir das mehr Freiheit:

Sub Start_Suche()
Dim Suchbegriff As Variant
Suchbegriff = InputBox("Suchbegriff eingeben","Suche",1)
For i = 1 to 5000
If worksheets("Datenbank").cells(i,1) = Suchbegriff Then
Worksheets("Auswertung").Cells(7,2) = worksheets("Datenbank").cells(i,2)
Exit Sub
End If
Next I
MsgBox "Suchbegriff: " & Suchbegriff & " wurde nicht gefunden"
End Sub

Gruss Rainer

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige