Vielen Dank für deine Hilfe.

Ich hoffe der Code ist jetzt so wie du es willst.

Er kopiert mir aber jetzt immer nur die erste Zeile aus der "Eingabe"
Wenn ich mit F8 es durchspiele, dann überspringt er mir das "Next i".
Nach dem 15. Mal des IF-Befehls wird das "i" angsprochen und hochgezählt.

Ich weiß nicht weiter...



Option Explicit

Sub selbstcopy333()

  Dim u As Integer
  Dim i As Integer
  Dim numr As Variant
  Dim artikelnr As Variant
  Dim hoehe As Variant
  Dim Besch As Variant
  Dim besch2 As Variant
  Dim zartikelnr As Variant
  Dim zhoehe As Variant
  Dim anzahl As Variant
  Dim breite As Long
  Dim laenge As Long
  
  Besch = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A1").Value
  besch2 = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A2").Value
  breite = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A3").Value
  zhoehe = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A4").Value
  laenge = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A5").Value
  zartikelnr = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A6").Value
  anzahl = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A8").Value
  artikelnr = Workbooks("woodworks.xlsm").Worksheets("Einstellungen").Range("B15").Value
  hoehe = Workbooks("woodworks.xlsm").Worksheets("Einstellungen").Range("B16").Value
  
  For i = 3 To 15
  For u = 2 To 14

    
    
      If Worksheets("Eingabe").Cells(i, 3) = artikelnr Then
        If Worksheets("Eingabe").Cells(i, 10) = hoehe Then
          'länge
          Worksheets("Eingabe").Cells(i, laenge).Copy Destination:=Worksheets("Teile").Cells(u, 1)
          'breite
          Worksheets("Eingabe").Cells(i, breite).Copy Destination:=Worksheets("Teile").Cells(u, 2)
          'ActiveSheet.Paste
          Worksheets("Eingabe").Cells(i, anzahl).Copy Destination:=Worksheets("Teile").Cells(u, 3)
          'ActiveSheet.Paste
          'beschreibung
          Worksheets("Eingabe").Cells(i, Besch).Copy Destination:=Worksheets("Teile").Cells(u, 9)
          Sheets("Teile").Select
        End If
    
      End If
    Next u
 Next i
End Sub