ich habe einen recht einfachen Code, der aber nicht ausgeführt wird, sondern zu einem Fehler führt. Leider komme ich nicht drauf. Hier ist erst einmal der Code:
[code]
Public Sub Copy_Kursnet()
Sheets("kursnet").Select
ActiveSheet.Unprotect
Range("4:99").Formula = Range("4:4").Formula
Sheets("kursnet").Range("C4:AS150").Copy Sheets("kursnet_xml").Range("A1")
Sheets("kursnet").Select
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Range("4:99").Formula = Range("4:4").Formula
ActiveSheet.Protect
Sheets("Master").Select
End Sub
[/code]Der Fehler wird für diese Zeile angezeigt:
[code] Sheets("kursnet").Range("C4:AS150").Copy Sheets("kursnet_xml").Range("A1")[/code]
Ziel des Codes ist es, einfach einen Bereich aus einer Tabelle in ein anderes Blatt zu kopieren. "kursnet" ist das Blatt, aus dem die Daten genommen werden sollen, "kursnet_xml" dasjenige, in das die Daten eingefügt werde sollen.
Hat vielleicht jemand eine Idee, wo der Fehler liegen könnte?
Vielen Dank!