Hallo liebes forum,
möchte ein Bereich kopieren. Verursacht manchmal ein Fehler und ich weiss net
warum.
Set objSh = ActiveWorkbook.Worksheets(1)
With ThisWorkbook.Worksheets(2)
for..
.Cells(a, 6).Value = "/"
End If
.Cells(a, 8).Value = Reihe8
.Cells(a, 12).Value = "/"
Next a
KopieIndexA = MerkeIndex + 2
.Range(.Cells(3, 1), .Cells(KopieIndexA, 13)).Copy
KopieIndexA = KopieIndexA + 2
.Cells(KopieIndexA, 1).Paste
KopieindexE = KopieIndexA + MerkeIndex
..
end with
Habe es schon mit activesheet versucht, funktioniert leider net.
Dank und Gruss
ticonhh