Suche über x Tabellenblätter nach variablem Kriterium
28.01.2020 11:36:29
Walter
ich habe heute auch eine Frage, wo ich bitte eure Hilfe bräuchte. Ich habe eine Gesamtliste, die mit Informationen aus den übrigen Tabellenblättern in der Arbeitsmappe befüllt werden soll. Der Code der gesucht ist funktioniert als ähnlich wie ein Sverweis, nur über x Tabellenblätter. Folgende Anforderungen habe ich:
Arbeitsmappe besteht aus Tabellenblatt Gesamt sowie x Tabellenblätter mit gleichem Aufbau aber unterschiedlicher Benahmung
Sverweis über x Tabellenblätter
Variables Suchkriterium in Sverweis kommt aus Tabellenblatt "Gesamt" Zelle K4
Suchbereich in Sverweis auf jedem Tabellenblatt gleich (M6:Q17)
Ausgabe des 5 Wertes je Tabellenblatt, wenn dieses nicht leer ist sonst weitersuchen
Wenn kein Wert gefunden nächstes Tabellenblatt
Gefundene Werte werden in Gesamtliste übertragen ein Wert je Zeile nächster Wert nächste Zeile
Wenn es eine unkompliziertere Variante als die mit Sverweis gibt, dann bin ich dafür auch sehr offen. Mein Ansatz war der folgende:
Sub Gesamtfüllen()
Debug.Print Now
Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction
lngsheets = ThisWorkbook.Sheets.Count
For t = 10 To lngsheets
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets(t)
Set Ziel = Arbeitsmappe.Worksheets("Gesamt")
letzteZeile = ThisWorkbook.Sheets.Count.End(xlUp).Row
Set Bereich = Datenbasis.Range("A1:H" & letzteZeile)
Set WsF = Application.WorksheetFunction
For i = 7 To Ziel.Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
Ziel.Range("K" & i).Value = WsF.VLookup(Ziel.Range("K3").Value, Range("M6:Q17"), 5, _
False)
Next i
Next t
Debug.Print Now
End Sub
Beste Grüße
Walter