Thema: VBA - Fehlermeldung bei Zahlenformatierung

Hallo,

aus einem Arbeitsblatt starte ich einen Code, der auf anderen Arbeitsblättern Datenfelder mit einer Zahlenformatierung versieht. Beim Start des Codes stoppt dann der Codeablauf im dritten Abschnitt bei Kampf 1 (Laufzeitfehler 1004: Die Number-Eigenschaft des Range-Objektes kann nicht festgelegt werden.), obwohl im vorherigen ähnlichen Code der Ablauf nicht stoppt. Wenn ich dann nach 'Debuggen' den Code neu starte, dann läuft er bei diesem Codeteil durch und stoppt beim folgenden Abschnitt (Kampf 2), und so weiter.

Sub Wertung_voll_komplett()

'

    Application.ScreenUpdating = False

    

    Sheets("Stammbl.").Activate

    Range("J13:L29,G37:O49").Select

    Selection.NumberFormat = "0"

    Range("A1").Select

    

    Sheets("Gesamtwtg.").Activate

    Range("D4:R10").Select

    Selection.NumberFormat = "0"

    Range("A1").Select

    

    Sheets("Kampf 1").Activate

    Range("G12:G18,R12:R18,G23:G26,L23:L26").Select

    Selection.NumberFormat = "0"

    Range("G12").Select

    

    Sheets("Kampf 2").Activate

    Range("G12:G18,R12:R18,G23:G26,L23:L26").Select

    Selection.NumberFormat = "0"

    Range("G12").Select

Wo liegt der Fehler? Ich bin ratlos.

Viele Grüße
Franz

Kann es vielleicht sein, dass du mit Blattschutz arbeitest und der Schutz nicht deaktiviert ist, oder etwas in der Richtung?
Ich würde im Übrigen das "Activate" und "Select" eher vermeiden und den Code etwa so schreiben:

    Sheets("Stammbl.").Range("J13:L29,G37:O49").NumberFormat = "0"

    Sheets("Stammbl.").Range("A1").Select

    

    Sheets("Gesamtwtg.").Range("D4:R10").NumberFormat = "0"

    Sheets("Gesamtwtg.").Range("A1").Select

    

    Sheets("Kampf 1").Range("G12:G18,R12:R18,G23:G26,L23:L26").NumberFormat = "0"

    Sheets("Kampf 1").Range("G12").Select

    

    Sheets("Kampf 2").Range("G12:G18,R12:R18,G23:G26,L23:L26").NumberFormat = "0"

    Sheets("Kampf 2").Range("G12").Select

Hallo Oppawinni,

wie recht du doch hast. Ich muss den Blattschutz nutzen, damit die Anwender nur die Datenfelder beschreiben, die beschrieben werden dürfen. Das Aus- und Einschalten habe ich nun wieder berücksichtigt, ebenso wie das Vermeiden von "Activate" und "Select". Vielen Dank und noch einen schönen Sonntag.

Viele Grüße
Franz