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
|