Problem bei Makro
28.03.2018 11:54:52
Annabel
ich bin leider noch VBA-Neuling und komme leider bei meinem Makro nicht weiter.
Ich hoffe ihr könnt mir weiterhelfen.
Ich habe leider einige Fehler in meinem Makro. Es soll von einer Tabelle "Artikel zu _
kalkulieren" die Artikelnummer kopiert werden und in die Tabelle "Kalkulation" eingefügt werden. _
Nach der Berechnung sollen die Werte MK, HK, SK kopiert werden und in die Tabelle "Artikel zu _
kalkulieren" eingefügt werden.
Sub kopieren_kalkulieren()
Dim i As Integer
Dim letzteZeile As Integer
Dim Artikelzukalkulieren As Worksheet
Dim Kalkulation As Worksheet
letzteZeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
For i = 1 To letzteZeile
Sheets("Artikelzukalkulieren").Range("B2+i").Copy
Sheets("Kalkulation").Range("J3:W3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Run "'Kalkulation Neu3.xlsm'!Material_auswerten"
Sheets("Kalkulation").Range("BH18:BK18").Select
Selection.Copy
Sheets("Artikel zu kalkulieren").Range("I1+i").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Kalkulation").Range("BH24:BK24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Artikel zu kalkulieren").Range("J1+i").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Kalkulation").Range("BH30:BK30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Artikel zu kalkulieren").Range("K1+i").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Vielen Dank im Voraus.
Annabel