|
Hallo Mase,
danke für deine schnelle Antwort
Jetzt kommt folgende Meldung
: 
Fehler beim Kompilieren
Innerhalb einer Prozedur ungültig
Auch F8 hilft hier nicht weiter...
Folgender Code wurde verwendet:
**************************************************************************************************
Sub selbstcopy30()
Option Explicit
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
**************************************************************************************************
|