Daten übernehmen --> Fehler
17.11.2003 21:53:02
Markus
ich brauche bitte mal Eure Hilfe.
Ich möchte gern Daten von einer Tabelle in eine andere übernehmen
1. alles (Formel, Formate etc.)
2. nochmal Formeln, da diese beim kopieren geändert werden
Dies mache ich mit folgendem Makro
Sub frm_uebernehmen()
Dim BTR As String
BTR = ActiveWorkbook.Sheets("NW").Range("D3").Value
Dim wkb As Workbook
Set wkb = Workbooks("TB" & BTR & "FC.xls")
Dim quelle As Workbook
Set quelle = Workbooks("TB" & BTR & ".xls")
'Blattschutz
Dim wks As Worksheet
For Each wks In wkb.Worksheets
For i = 1 To 18
For j = 6 To 600
wks.Range("A6:R600").Copy Destination:=quelle.wks.Range("A6:R600")
wks.Cells(j, i).FormulaR1C1 = quelle.wks.Cells(j, i).FormulaR1C1
Next j
Next i
Next wks
End Sub
Mein Problem ist, dass Excel bei der Zeile
wks.Range("A6:R600").Copy Destination:=quelle.wks.Range("A6:R600")
wks.Cells(j, i).FormulaR1C1 = quelle.wks.Cells(j, i).FormulaR1C1
hängen bleibt.
Fehler:
Objekt unterstützt diese Eigenschaft oder Methode nicht.
In den beiden Arbeitsmappen sind die Blätter alle gleich aufgebaut, es soll wirklich übernommen werden!
Danke schonmal
Markus