mir fehlt eigentlich "nur noch" eine Zeile in meinem Konstrukt.
Ich habe 2 Arbeitsblätter, "Ergebnisse" & "Korrektur"
Das Blatt "Ergebnisse" beinhaltet unvollständige Daten und Blatt "Korrektur" entsprechende Korrekturen.
Mein Ansatz;
In einer Schleife werden die Korrekturen aufgerufen und jeweils wird entsprechender Datensatz in "Ergebnisse" gesucht und gefiltert, dann die Korrektur kopiert ("J2:O2") und in "Ergebnisse" eingefügt.
Bis auf das einfügen, habe ich alles.
Code;
Sub ergebnisse_aktualisieren()
Dim wksBlatt As Worksheet
Dim lngLastRow As Long
Dim lngC As Long
Set wksBlatt = ActiveSheet
With wksBlatt
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngC = 2 To lngLastRow
.Cells(lngC, 1).Copy .Cells(2, 10)
.Cells(lngC, 2).Copy .Cells(2, 11)
.Cells(lngC, 3).Copy .Cells(2, 12)
.Cells(lngC, 4).Copy .Cells(2, 13)
.Cells(lngC, 5).Copy .Cells(2, 14)
.Cells(lngC, 6).Copy .Cells(2, 15)
On Error Resume Next
Worksheets("Ergebnisse").ShowAllData
On Error GoTo 0
With Worksheets("Ergebnisse")
loZeile = .Cells(.Rows.Count, "A").End(xlUp).Row
Set raBereich = .Range(.Cells(2, "A"), .Cells(loZeile))
raBereich.AutoFilter Field:=3, Criteria1:=Sheets("Korrektur").Range("J2")
raBereich.AutoFilter Field:=4, Criteria1:=Sheets("Korrektur").Range("K2")
Sheets("Korrektur").Range("J2:O2").Copy
' und jetzt soll eingefügt werden !!!!!!!
End With
Next lngC
End With
End Sub
Meine Frage;
kann mir bitte jemand das fehlende (letzte Zeile in ""with") schreiben?!
Zum besseren Verständnis;
https://www.herber.de/bbs/user/141726.xlsb
Gruss
Fred