Ich habe hier ein Makro dass noch kleine Schwierigkeiten aufweist:
"With Worksheets("Import_ZP")
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If WorksheetFunction.CountIfs(Worksheets("Ergebnis_ZP").Rows(1), rngC, Worksheets("Ergebnis_ZP").Rows(8), rngC.Offset(, 7)) = 1 Then
For DateRow = 9 To Worksheets("Ergebnis_ZP").Cells(.Rows.Count, 1).End(xlUp).Row Step 96
If CDate(rngC.Offset(, 8).Value) = Worksheets("Ergebnis_ZP").Cells(DateRow, 1).Value Then
Range(rngC.Offset(, 10), rngC.Offset(, 105)).Copy
Worksheets("Ergebnis_ZP").Cells(DateRow, Application.Match(rngC & rngC.Offset(, 7), Sheets("Ergebnis_ZP").Rows(1) & Sheets("Ergebnis_ZP").Rows(8), 0)).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If
Next DateRow
End If
Next rngC
End With"
Fehlermeldung: "Typen unverträglich"
Ich wollte fragen, ob mir jemand dabei helfen kann, Application.Match(rngC & rngC.Offset(, 7), Sheets("Ergebnis_ZP").Rows(1) & Sheets("Ergebnis_ZP").Rows(8), 0) richtig zu implementieren, so dass das Makro funktioniert und denn Sinn erfüllt.
Vielen Dank schonmal!