Sub Test()
Dim lngRow As Long
Dim lngColumn As Long
Dim DateRow As Long
With Worksheets("Import2")
For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
For lngColumn = 3 To Worksheets("Tabelle2").Cells(1, .Columns.Count).End(xlToLeft).Column
For DateRow = 8 To Worksheets("Tabelle2").Cells(.Rows.Count, 1).End(xlUp).Row Step 24
If .Cells(lngRow, 1).Value = Worksheets("Tabelle2").Cells(1, lngColumn).Value Then
If .Cells(lngRow, 8).Value = Worksheets("Tabelle2").Cells(DateRow,1).Value Then
'wenn beide If Bedingungen stimmen, dann:
.Range(.Cells(lngRow, 10), .Cells(lngRow, 33)).Copy
Worksheets("Tabelle2").Cells(DateRow, 3).PasteSpecial Paste:= _
xlPasteValues, Transpose:=True
Else
'Wenn "If .Cells(lngRow, 8).Value = Worksheets("Tabelle2").Cells( _
DateRow, 1).Value Then" nicht stimmt:
'Dann nächste Zeile in Tabelle2 Prüfen
Next DateRow
End If
Else
'wenn "If .Cells(lngRow, 1).Value = Worksheets("Tabelle2").Cells(1,lngColumn).Value _
Then" nicht stimmt:
Next lngColumn
End If
Next lngRow
End With
End Sub
Aus logischer Sicht macht der Code für mich Sinn.
Aber ich habe wahrscheinlich ein paar Anfängerfehler beim coden gemacht.
Aktuelle Fehlermeldung: Next ohne For.
kann mir bitte jemand helfen den code funktionsfähig zu bekommen?