Hallo Leute,

ich habe ein Problem mit einer For...Next Schleife

Hier ist der Code:

**************************************************************************************************************************************

Sub selbstcopy3()

Dim u As Integer
Dim i As Integer


Dim numr As Variant, artikelnr As Variant, hoehe As Variant, Besch As Variant, besch2 As Variant, zartikelnr As Variant, zhoehe As Variant, anzahl As Variant


artikelnr = Workbooks("woodworks.xlsm").Worksheets("Einstellungen").Range("B15").Value
hoehe = Workbooks("woodworks.xlsm").Worksheets("Einstellungen").Range("B16").Value

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
laenge = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A5").Value
anzahl = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A8").Value
zartikelnr = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A6").Value
zhoehe = Workbooks("woodworks.xlsm").Worksheets("Datenbank").Range("A4").Value



 Sheets("Eingabe NAV").Select


For i = 3 To 15

For u = 2 To 14
 
If Worksheets("Eingabe NAV").Cells(i, zartikelnr) = "0201-SK" Then

  If Cells(i, zhoehe) = hoehe Then
 
 
  'länge
  Worksheets("Eingabe NAV").Cells(i, laenge).Copy Destination:=Worksheets("Teile").Cells(u, 1)
 
            
        'breite
        
        
  Worksheets("Eingabe NAV").Cells(i, breite).Copy Destination:=Worksheets("Teile").Cells(u, 2)
          '  ActiveSheet.Paste
            

            
  Worksheets("Eingabe NAV").Cells(i, anzahl).Copy Destination:=Worksheets("Teile").Cells(u, 3)
            'ActiveSheet.Paste
            
     
            
                'beschreibung
  Worksheets("Eingabe NAV").Cells(i, Besch).Copy Destination:=Worksheets("Teile").Cells(u, 9)
            
                            
            
    
  Sheets("Teile").Select
    
    



        End If
    End If

    Next u
Next i


End Sub

*****************************************************************************************************************

Es kommt keine Fehlermeldung, allerdings macht er nicht das was er soll.

Es kommt mir so vor, als würde er mir "u" nicht hochzählen. Er macht mir bei "Next u" das "u" auch nicht blau, was er bei "i" schon macht.

"i" wird auch hochgezählt.

Danke für jeden Hinweiß

Vielen Dank

Gruß Julian