Salut,
danke für die ehrliche Rückmeldung.
Ziel ist vereinfacht gesagt:
Prüfe in Blatt1 der Datei1 ob in einer bestimmten Zelle einer Zeile der Wert "a" vorkommt. Wenn "a" nicht vorkommt, dann kopiere aus Blatt1 der Datei2 die ganze Zeile (nur Werte) in Blatt1 der Datei 1 an die selbe Position. Wenn a Prüfe Zeile um Zeile. Wenn "a" vorkommt auf gar keinen Fall die Zeile kopieren und damit den Stand in Datei1 überschreiben.
Hier der Code-Zwischenstand, allerdings bekomme ich einen Fehler ausgegeben:
Fehler 1004; anwendungs- oder objektdefinierter fehler
Sub CommandButton1_Click()
Dim i As Variant
a = 2
For Each i In Workbooks("SollStand_Mehrwegschütten_LK_20200519_Makros.xlsm").Sheets("IST_Stand").Range("2:200")
If Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Cells(i, 6).Value = "" Then
Workbooks("SollStand_Mehrwegschütten_LK_20200519_Makros.xlsm").Sheets("IST_Stand").Rows(i).Range("2:200").Copy
Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Cells(a, 1).PasteSpecial Paste:=xlPasteValues
Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Cells(a, 1).PasteSpecial Paste:=xlPasteFormats
a = a + 1
End If
Next i
End Sub
|