wieder mal sitz ich und versuche eine Lösung mit VBA zu finden
Tab = Abkürzung für Tabellenblatt
Problem: (finden gleicher Zellinhalts in beiden Tab, kopieren aus Tab Bibliothek nach Tab Station 000.
In der Excelmappe befinden sich 2 Tabellenblätter (Bibliothek und Station 000)
Möchte:
Tabellenblatt Station 000: befinden sich in der gleichen Zeile Spalte B Nummer und Spalte D Name.
Nehme Inhalt Zelle B2 und D2 aus Tab Station 000 und duchlaufe das Tab Bibliothek (selbe Spalten bis nach unten)
Bei Treffer kopiere von der gefundenen Zeile Inhalt der Zelle E bis K in Tab Station 000
Dann nächste Zeile in Tab Station 000 Zelle B3 und D3 und suchen in Tab Bibliothek, bis alle Zeilen in Tab Station 000 durch sind.
Normal sind es ca. 200 Zeilen die ich regelmäßig mit der Bibliothek vergleiche.
Ich weiß es geht auch mit S-Verweis, doch bin ich von VBA fasziniert.
Lieber Excelexperte, vielen Dank für die Mühe. Meine Theorie:
Sub_vergleichen()
Dim LoLetzteB as Integer, LoLetzteSt as Integer
Dim I as Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("Bibliothek").Select
'ermittelt die letzte Zeile
loLetzteB = .Cells(.Rows.Count, 2).End(xlUp).Row
Sheets("Station 000").Select
loLetzteSt = .Cells(.Rows.Count, 2).End(xlUp).Row
If Worksheets("Station 000").Cells(I, B) & .Cells(I, D)= Worksheets("Bibliothek").Cells(I, B) & .Cells(I, D) Then
'kopiere bei Treffer Inhalt nach Zelle E bis K aus Bibliothek und füge in Tab Station 000 ein.
Next I
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub