Guten Morgen.
Ich habe hier ein Makro das bis dato funktioniert hat. Jetzt habe ich die Variable "h" hinzugefügt und würde gerne bei der fett gedrückten Stelle "D.Column", eine Lösung finden, dass es den kopierten text in die Spalte D.Column und h.Column einfügt, also wenn beide übereinstimmen.
"...
With Worksheets("Import")
For lngRow1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Suche1 = .Cells(lngRow1, 1)
Suche2 = .Cells(lngRow1, 12)
Set D = Worksheets("Ergebnis").Range("1:1").Find(Suche1, LookIn:=xlValues, LookAt:=xlWhole)
Set h = Worksheets("Ergebnis").Range("12:12").Find(Suche2, LookIn:=xlValues, LookAt:=xlWhole)
If Not D And Not h Is Nothing Then
For DateRow1 = 13 To Worksheets("Ergebnis").Cells(.Rows.Count, 1).End(xlUp).Row Step 96
If CDate(.Cells(lngRow1, 13).Value) = Worksheets("Ergebnis").Cells(DateRow1, 1).Value Then
Range(.Cells(lngRow1, 15), .Cells(lngRow1, 110)).Copy
Worksheets("Ergebnis").Cells(DateRow1, D.Column).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If
Next DateRow1
End If
Next lngRow1
End With
..."