Office: VBA Makro: Tabelle nach 2 Kriterien durchsuchen & in diese Zeile weitere Werte eintragen

Hi Zusammen,

langsam bin ich am verzweifeln, da ich mich nicht perfekt in VBA auskenne und zu keiner Lösung komme.
Grundlegend möchte ich das "Tool" per 3. Tabelle öffnen (Speicherorte sollen dort eingegeben werden, die bis jetzt noch Hardcodiert sind).
Folgendes Problem: Ich lese von der ersten Tabelle mithilfe einer Schleife die Einträge aus und "merke" mir Straße (Spalte T) und Hausnr (Spalte U). Diese zwei Werten sollen dann in der zweiten Tabelle (anderes Workbook) gefunden werden, sozusagen die Zeilennummer gemerkt werden und dann bspw. Spalte S aus der ersten Tabelle in die Spalte L der zweiten Tabelle dieser Zeile geschrieben werden.


Die Autofilter-Lösung wäre am naheliegendsten, jedoch funktioniert das nicht, da ein Blattschutz hinterlegt ist, dessen Code ich nicht kenne.

Die erste Schleife mit der Suche im ersten Dok habe ich bereits geschafft. Leider weiß ich nun nicht mehr weiter..

Vielen Dank schon mal!

Code:

Option Explicit

Sub PrüfungAdresse()

Dim sPfad1 As String
Dim sPfad2 As String
Dim SP1, SP2, ZE As Integer
Dim LR1, LR2, i As Double
Dim wbQuelle As Workbook
Dim wbZiel As Workbook
Dim strasse As String
Dim hausnr As String

'Dateipfad der Dateien
sPfad1 = "C:\Users\....Excel1"
sPfad2 = "C:\Users\....Excel2"

'Excel öffnen
Set wbQuelle = Workbooks.Open(sPfad1)
Set wbZiel = Workbooks.Open(sPfad2)

SP1 = 20 'Spalte T
SP2 = 21 'Spalte U
ZE = 7 'Erste Zeile von Tabelle
strasse = ""
hausnr = ""

LR1 = wbQuelle.Worksheets("Spleißplan NELLI-MFF-01").Cells(Rows.Count, SP1).End(xlUp).Row 'letzte Zeile der Spalte

For i = ZE To LR1
    strasse = wbQuelle.Worksheets("Spleißplan NELLI-MFF-01").Cells(i, SP1).Value
    hausnr = wbQuelle.Worksheets("Spleißplan NELLI-MFF-01").Cells(i, SP2).Value
    
    'Suchen & Finden der entsprechenden Zeile in Excel 2 + Eintragen weiterer Werte aus Excel1
    

Next i

'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=False
wbZiel.Close SaveChanges:=True

End Sub

 

Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.

Bilder statt Datei | Excel ist sexy!
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm*, Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Bei Download beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)

Das ist nur meine Meinung zu dem Thema.

 

Ich hab mal die Tabellen (vereinfacht) kopiert und in eine Excel zweier Tabellenblätter gelegt. Ist das besser?

 

Ich bin wohl Blind, ich konnte keine werte in Spalte S erste Tabelle finden.
Ich bin dann raus.
Vielleicht sieht jemand andres mehr.

Gruß Hajo

 

Ich hatte ein paar Spalten gelöscht, daher nun auch andere Spaltennamen.

Folgendes Problem: Ich lese von der ersten Tabelle mithilfe einer Schleife die Einträge aus und "merke" mir Straße (Spalte H) und Hausnr (Spalte I). Diese zwei Werten sollen dann in der zweiten Tabelle (anderes Workbook) gefunden werden, sozusagen die Zeilennummer gemerkt werden und dann bspw. Spalte G aus der ersten Tabelle in die Spalte L der zweiten Tabelle dieser Zeile geschrieben werden.