ich weiß nicht mehr weiter.
ich übertrage beim öffnen der tabelle mit dem unten stehenden code, 30 datenblöcke:
ActiveSheet.Unprotect "test"
Range("B419").Value = Sheets("Datenblatt-Junioren").Range("D527").Value
Range("B421:C428").Value = Sheets("Datenblatt-Junioren").Range("D531:E538").Value
Range("D421:D428").Value = Sheets("Datenblatt-Junioren").Range("F531:F538").Value
Range("E421:E428").Value = Sheets("Datenblatt-Junioren").Range("I531:I538").Value
Range("F421:F428").Value = Sheets("Datenblatt-Junioren").Range("L531:L538").Value
Range("G421:G428").Value = Sheets("Datenblatt-Junioren").Range("G531:G538").Value
Range("H421:H428").Value = Sheets("Datenblatt-Junioren").Range("J531:J538").Value
Range("I421:I428").Value = Sheets("Datenblatt-Junioren").Range("M531:M538").Value
Range("J421:J428").Value = Sheets("Datenblatt-Junioren").Range("H531:H538").Value
Range("K421:K428").Value = Sheets("Datenblatt-Junioren").Range("K531:K538").Value
Range("L421:L428").Value = Sheets("Datenblatt-Junioren").Range("N531:N538").Value
Range("D429").Value = Sheets("Datenblatt-Junioren").Range("F540").Value
Range("E429").Value = Sheets("Datenblatt-Junioren").Range("I539").Value
Range("F429").Value = Sheets("Datenblatt-Junioren").Range("L539").Value
Range("G429").Value = Sheets("Datenblatt-Junioren").Range("G540").Value
Range("H429").Value = Sheets("Datenblatt-Junioren").Range("J539").Value
Range("I429").Value = Sheets("Datenblatt-Junioren").Range("M539").Value
Range("J429").Value = Sheets("Datenblatt-Junioren").Range("H540").Value
Range("K429").Value = Sheets("Datenblatt-Junioren").Range("K539").Value
Range("L429").Value = Sheets("Datenblatt-Junioren").Range("N539").Value
ActiveSheet.Protect "test"
als hinweis bekomme ich angezeigt:
der kompitierte code für diese prozedur umfaßt mehr als 64kb.
teilen sie diese und andere große prozeduren in zwei oder mehrere kleinere prozeduren auf.
was mache ich verkehrt und wie kann ich das ändern?
vielleicht kann mir einer von euch helfen (sicherlich).
im vorraus, danke!!!
gruß
martin