Problem bei Makro

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Annabel,
bitte nicht andauernd mit F5 aktualisieren, du stellst ständig den immer gleichen Beitrag ein - schau dir mal die Latte an.
Und mal eine bescheidene Frage:

Range("B2+i")

Wohin willst du denn mit dieser Codezeiel kopieren?
In Spalte B und Zeile i ?
Weitere Frage:
Muss es tatsächlich sein, dass deine Daten Zeilenweise kopiert werden und nach jedem Kopiervorgang die Kalkulation angestoßen werden muss? Oder kann man nicht einfach erst mal den Kopiervorgang im Block abarbeiten und dann am Schluß die Kalkulation anstoßen?
Habe den Code jetzt mal überarbeitet, die zeilenweise Abarbeitung ist aber immer noch drin.

Sub kopieren_kalkulieren()
Dim i As Long
Dim letzteZeile As Long
Dim Artikelzukalkulieren As Worksheet
Dim Kalkulation As Worksheet
'Datei bzw. Blattnamen bitte anpassen
Set Artikelzukalkulieren = ThisWorkbook.Worksheets("DeinArtikelzukalkulierenBlatt")
Set Kalkulation = Workbooks("DeineKalkulationsdatei.xlsm").Worksheets("DeinKalkulationsblatt")
With Artikelzukalkulieren
letzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To letzteZeile
.Range("B" & i).Copy
Kalkulation.Range("J3:W3").PasteSpecial Paste:=xlPasteValues
Application.Run "'Kalkulation Neu3.xlsm'!Material_auswerten"
Kalkulation.Range("BH18:BK18").Copy
.Range("I" & i).PasteSpecial Paste:=xlPasteValues
Kalkulation.Range("BH24:BK24").Copy
Artikelzukalkulieren.Range("J" & i).PasteSpecial Paste:=xlPasteValues
Kalkulation.Range("BH30:BK30").Copy
Artikelzukalkulieren.Range("K" & i).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next i
End With
Set Artikelzukalkulieren = Nothing: Set Kalkulation = Nothing
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

45 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

45
Beiträge zum Forumthread

Beiträge zu diesem Forumthread