Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: SVerweis auf anderes Sheet nicht hinbekommen

SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:09:05
Burak
Guten Morgen
also ich habe den sverweis auf ein anderes Tabellenblatt versucht und bin dabei kläglich gescheitert :D
Also in Tabellenblatt "Hilfstabelle" stehen in Spalte A Werte, die in Tabellenblatt "BarcodeLPMatrix" Spalte A gesucht werden sollen. Bei Übereinstimmung soll in "Hilfstabelle" Spalte D der Wert aus "BarcodeLPMatrix" Spalte B kopieren.
Code:
Private Sub CommandButton1_Click()
Dim Zeilenzahl As Long
Zeilenzahl = Range("A1").CurrentRegion.Rows.Count
For i = 2 To Zeilenzahl
Range("D" & i) = Application.WorksheetFunction.VLookup(Range("A" & i).Value, Worksheets(" _
BarcodeLPMatrix").Range("A2:A150"), Worksheets("BarcodeLPMatrix").Range("B2;B150"))
Next i
End Sub
Datei:
https://www.herber.de/bbs/user/119353.xlsm
Freundliche Grüße und vielen Dank
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:26:26
ChrisL
Hi
Der Aufbau ist genau gleich wie bei einer Formel =SVERWEIS(Kriterium;Bereich;Spalte;FALSCH)
Application.WorksheetFunction.VLookup(Range("A" & i).Value, Worksheets("BarcodeLPMatrix").Range("A2:B150"), 2, False)
cu
Chris
AW: SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:31:12
Burak
ah super, danke.
arbeite sonst auch nich viel mit SVerweis, daher die Schwäche.
Jetzt läuft es, danke!
Anzeige
AW: SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:26:45
UweD
Hallo
Range("D" & i) = Application.WorksheetFunction.VLookup(Range("A" & i).Value, _
Worksheets("BarcodeLPMatrix").Range("A2:B150"), 2, 0)
LG UweD
AW: SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:30:14
Bernd
Hi,
mit Schaltfläche eine möglichkeit:
Sub Test()
Range("D2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],BarcodeLPMatrix!C[-3]:C[-2],2)"
Selection.AutoFill Destination:=Range("D2:D734"), Type:=xlFillDefault
Range("D2:D734").Select
Range("D2").Select
End Sub
MfG Bernd
Anzeige
AW: SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:36:32
Burak
abgesehen von den letzten beiden Zeilen (also die Selects) auch super. Erkenne zwar noch nicht den Unterschied, aber sieht komplizierter und daher professioneller aus :D
AW: SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:40:26
Bernd
Hi,
würde eher sagen unprofessionell da es lediglich vom Makrorecorder stammt :-)
MfG Bernd

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

SVerweis auf anderes Tabellenblatt erfolgreich umsetzen


Schritt-für-Schritt-Anleitung

Um einen SVerweis auf ein anderes Tabellenblatt in Excel durchzuführen, kannst Du die folgende VBA-Lösung nutzen. Hier ist ein einfaches Beispiel:

  1. Öffne die Excel-Datei und gehe in den VBA-Editor (Alt + F11).

  2. Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul).

  3. Kopiere den folgenden Code in das Modul:

    Private Sub CommandButton1_Click()
       Dim Zeilenzahl As Long
       Zeilenzahl = Range("A1").CurrentRegion.Rows.Count
       For i = 2 To Zeilenzahl
           Range("D" & i) = Application.WorksheetFunction.VLookup(Range("A" & i).Value, Worksheets("BarcodeLPMatrix").Range("A2:B150"), 2, False)
       Next i
    End Sub
  4. Stelle sicher, dass die Daten in der "Hilfstabelle" in Spalte A die Werte enthalten, die Du suchst.

  5. Klicke auf die Schaltfläche, um den SVerweis auszuführen.


Häufige Fehler und Lösungen

  • SVerweis auf anderes Tabellenblatt funktioniert nicht: Überprüfe, ob der Bereich im VLookup korrekt angegeben ist. Stelle sicher, dass Du die richtige Tabelle und den richtigen Bereich verwendest.

  • Fehler bei der Zellreferenz: Achte darauf, dass Du die Spalten im VLookup richtig angibst. Der zweite Parameter sollte den gesamten Bereich (z.B. A2:B150) umfassen.

  • Falsche Rückgabewerte: Stelle sicher, dass der Suchwert tatsächlich im angegebenen Bereich vorhanden ist. Andernfalls gibt der SVerweis einen Fehler zurück.


Alternative Methoden

Wenn Du den SVerweis in einer Formel verwenden möchtest, kannst Du dies direkt in einer Zelle tun, indem Du die Formel wie folgt schreibst:

=SVERWEIS(A2;BarcodeLPMatrix!A2:B150;2;FALSCH)

Diese Formel sucht den Wert in Zelle A2 und gibt den entsprechenden Wert aus der zweiten Spalte des angegebenen Bereichs zurück.


Praktische Beispiele

Hier ist ein praktisches Beispiel zur Verwendung des SVerweises auf ein anderes Tabellenblatt:

Angenommen, in der "Hilfstabelle" hast Du folgende Werte in Spalte A:

A
12345
67890

Und in der "BarcodeLPMatrix" hast Du:

A B
12345 Produkt1
67890 Produkt2

Wenn Du den SVerweis korrekt anwendest, sollte das Ergebnis in Spalte D der "Hilfstabelle" so aussehen:

A D
12345 Produkt1
67890 Produkt2

Tipps für Profis

  • Verwende den Parameter FALSCH im VLookup, um eine exakte Übereinstimmung zu erzwingen.
  • Nutze die Funktion SVERWEIS auch für Datenanalysen, um schnell Informationen aus anderen Tabellen zu ziehen.
  • Überlege, den SVerweis mit einer dynamischen Tabelle zu kombinieren, um den Datenbereich automatisch zu aktualisieren.

FAQ: Häufige Fragen

1. Wie kann ich den SVerweis auf ein anderes Tabellenblatt in VBA nutzen?
Du kannst den SVerweis in VBA mit Application.WorksheetFunction.VLookup verwenden. Achte darauf, den richtigen Bereich anzugeben.

2. Was mache ich, wenn der SVerweis einen Fehler zurückgibt?
Überprüfe die Referenzen in Deinem VLookup und stelle sicher, dass die gesuchten Werte im angegebenen Bereich vorhanden sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige