ich habe ein Problem. Ich versuche in Datei 1 (ThisFileName), Tabelle 1("NewBOM") einen bestimmten Inhalt einer Spalte zu suchen, und bei jedem gefundenen Eintrag, die gesamt Zeile in Dateie 2(NewFileName) Tabelle 1 ("New BOM") zu kopieren. Mappen heißen unterschiedlich, die Ziel und Quellmappen jeweils gleich.
Danach möchte ich das Gleiche mit Tabelle 2 ("OldBOM") durchführen (suchen in Datei1(ThisFileName), kopieren in Datei2(NewFileName))
Ich übergebe Suchstring, Namen von Quell- und Zieldatei, Namen der jeweiligen Tabelle in ein private Sub. Hier der Source Code.
Private Sub ExtractData(ThisFileName As String, NewFileName As String, _
SearchString As String, Table As String)
Dim lRow As Long
Dim lRowL As Long
Dim lRowT As Long
With Worksheets(Table)
lRowL = Cells(Rows.Count, 79).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If (Cells(lRow, 79).Value = "Change!") Then
lRowT = lRowT + 1
Workbooks(NewFileName).Worksheets(Table).Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
End With
End Sub
Ausruf Private sub'extract data from "New BOM"
ExtractData ThisFileName, NewFileName, SearchString, "New BOM"
' extract data from "Old BOM"
ExtractData ThisFileName, NewFileName, SearchString, "Old BOM"
Das Programm läuft soweit, der erste Aufruf ergibt das gewünscht Ergebnis, jedoch beim zweiten Aufruf, wird wieder nur die "NewBOM" ausgelesen und kopiert. Der Wechsel zur Queldatei und "OldBOM" klappt nicht.
Danke für Eure Unterstützung
Bernhard