Thema Datum  Von Nutzer Rating
Antwort
Rot SVERWEIS VBA IF
13.02.2020 19:42:50 Frank
NotSolved
13.02.2020 19:54:58 tscharl
NotSolved
13.02.2020 19:56:38 tscharl
NotSolved
13.02.2020 20:18:42 Frank
NotSolved
13.02.2020 20:43:41 tscharl
NotSolved

Ansicht des Beitrags:
Von:
Frank
Datum:
13.02.2020 19:42:50
Views:
98
Rating: Antwort:
  Ja
Thema:
SVERWEIS VBA IF

Ich habe mal eine Frage:

Ist es möglich einen SVerweis zu machen über VBA, der erst nach einer Zahl (Spalte A) sucht und wenn er nichts findet eine andere Zahl (in einer anderen Spalte) durchsucht?

Mein Code als SVerweis ist so:

Range(Cells(2, 6), Cells(letzteZeileSchleife, 6)) = WorksheetFunction.VLookup(Range(Cells(2, 5), Cells(letzteZeileSchleife, 5)), Sheets("Daten").[A2:I60000], 2, False)
Range(Cells(2, 8), Cells(letzteZeileSchleife, 8)) = WorksheetFunction.VLookup(Range(Cells(2, 5), Cells(letzteZeileSchleife, 5)), Sheets("Daten").[A2:I60000], 3, False)
Range(Cells(2, 9), Cells(letzteZeileSchleife, 9)) = WorksheetFunction.VLookup(Range(Cells(2, 5), Cells(letzteZeileSchleife, 5)), Sheets("Daten").[A2:I60000], 4, False)
Range(Cells(2, 11), Cells(letzteZeileSchleife, 11)) = WorksheetFunction.VLookup(Range(Cells(2, 5), Cells(letzteZeileSchleife, 5)), Sheets("Daten").[A2:I60000], 5, False)

Er sucht also immer wieder nach einer Zahl und befüllt dann jede Spalte einzelnd. Das würde ich auch Übersichtsgründen gerne so beibehalten. Wenn das nicht geht ist es aber auch nicht schlimm. Bin über jede Hilfe froh :)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot SVERWEIS VBA IF
13.02.2020 19:42:50 Frank
NotSolved
13.02.2020 19:54:58 tscharl
NotSolved
13.02.2020 19:56:38 tscharl
NotSolved
13.02.2020 20:18:42 Frank
NotSolved
13.02.2020 20:43:41 tscharl
NotSolved