Thema Datum  Von Nutzer Rating
Antwort
Rot Vlookup (SVerweis) mit mehreren Datenbasen
16.11.2021 15:24:51 Rolf
NotSolved
16.11.2021 18:57:30 Gast97891
NotSolved
17.11.2021 12:25:18 Gast56807
NotSolved
17.11.2021 14:48:38 Gast55578
NotSolved
18.11.2021 08:07:30 Rolf
NotSolved
18.11.2021 09:45:49 Gast51608
NotSolved
18.11.2021 10:10:03 Rolf
NotSolved
18.11.2021 11:02:08 Gast92508
NotSolved
18.11.2021 11:21:22 Rolf
NotSolved
20.11.2021 02:38:06 Gast75607
NotSolved
20.11.2021 02:50:43 Gast75607
NotSolved
18.11.2021 11:05:09 Gast61795
NotSolved

Ansicht des Beitrags:
Von:
Rolf
Datum:
16.11.2021 15:24:51
Views:
83
Rating: Antwort:
  Ja
Thema:
Vlookup (SVerweis) mit mehreren Datenbasen

Hallo Zusammen

Ich habe auf folgender Website einen Code für die Sverweis-Funktion in VBA gefunden:

Sverweis Funktion und Makro Alternative (makro-excel.de)

Den Code habe ich verstanden und konnte diesen für meine Zwecke entsprechend anpassen und nutzen.

Nun habe ich jedoch in meiner Tabelle zwei verschiedene Datenbasen die ich bisher mit zwei verschieden angepassten Makros Nutze:

Frage zu den beiden Codes? 

Lassen die beiden sich in einem Makro vereinigen und wenn ja wie Steuere ich die Datenbasen an? 

Ich bekomme das einfach nicht gebacken... 

Vielen Dank für Eure Hilfe!

Rolf

Makro 1 mit diesem Code:

Sub SverweisEins()

'Dimensionieren der Parameter

Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet, Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Tabelle2") 'Tabellen definieren
Set Ziel = Arbeitsmappe.Worksheets("Grundliste") 'Tabellen definieren

letzteZeile = Datenbasis.Range("A" & Rows.Count).End(xlUp).Row 'Datenbasis als ganze Matrix

Set Bereich = Datenbasis.Range("A1:E" & letzteZeile) ' Matrix
Set WsF = Application.WorksheetFunction

For i = 4 To Ziel.Range("D" & Rows.Count).End(xlUp).Row ' D = Suchkriterium
    On Error Resume Next
    Ziel.Range("K" & i).Value = WsF.VLookup(Ziel.Range("D" & i).Value, Bereich, 3, False) ' K = Ziel
  Next i

End Sub

Makro 2 mit diesem Code:

Option Explicit

Sub SverweisZwei()

Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet, Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Tabelle 3")
Set Ziel = Arbeitsmappe.Worksheets("Genehmigerliste")

letzteZeile = Datenbasis.Range("A" & Rows.Count).End(xlUp).Row

Set Bereich = Datenbasis.Range("A1:E" & letzteZeile)
Set WsF = Application.WorksheetFunction

For i = 4 To Ziel.Range("D" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    Ziel.Range("L" & i).Value = WsF.VLookup(Ziel.Range("D" & i).Value, Bereich, 3, False)
Next i

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Vlookup (SVerweis) mit mehreren Datenbasen
16.11.2021 15:24:51 Rolf
NotSolved
16.11.2021 18:57:30 Gast97891
NotSolved
17.11.2021 12:25:18 Gast56807
NotSolved
17.11.2021 14:48:38 Gast55578
NotSolved
18.11.2021 08:07:30 Rolf
NotSolved
18.11.2021 09:45:49 Gast51608
NotSolved
18.11.2021 10:10:03 Rolf
NotSolved
18.11.2021 11:02:08 Gast92508
NotSolved
18.11.2021 11:21:22 Rolf
NotSolved
20.11.2021 02:38:06 Gast75607
NotSolved
20.11.2021 02:50:43 Gast75607
NotSolved
18.11.2021 11:05:09 Gast61795
NotSolved