Nummern ändern

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von mamawagner.

    Nummern ändern

    Hallo,



    brauche mal wieder Euro Hilfe. Mein Problem:

    Habe mehrere Tabellenblätter, jedes Tabellenblatt hat eine Nummer. Im ersten Tabellenblatt habe ich eine Schaltfläche mit einer Zahl diese soll dann in den Tabellenblättern eingetragen werden. Mein Code lautet:

    Visual Basic-Quellcode

    1. Private Sub CommandButton1_Click()
    2. Sheets("Protokoll").Select
    3. Range("D2:E2").Select
    4. ActiveCell.FormulaR1C1 = "2-1, 2-2, 2-3, 2-4"
    5. Sheets("Feld1").Select
    6. Range("E7:F7").Select
    7. ActiveCell.FormulaR1C1 = "2-1"
    8. Range("G7").Select
    9. Sheets("Feld2").Select
    10. ActiveCell.FormulaR1C1 = "2-2"
    11. Range("G7").Select
    12. Sheets("Feld3").Select
    13. ActiveCell.FormulaR1C1 = "2-3"
    14. Range("G7").Select
    15. Sheets("Feld4").Select
    16. Range("E7:F7").Select
    17. ActiveCell.FormulaR1C1 = "2-4"
    18. Range("G7").Select
    19. Sheets("Start").Select
    20. End Sub


    Leider kommt immer dieser Fehler Laufzeitfehler 1004.

    Vielen Dank für Eure Hilfe

    Der Code sieht aufgezeichnet aus.
    Die Selects sind doch Sch... überflüssig.

    Mein Ansatz wäre:

    Sheets("Protokoll").Range("D2:E2").Formula = "2-1, 2-2, 2-3, 2-4"
    Sheets("Feld1").Range("E7:F7").Formula = "2-1"
    usw.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „petaod“ ()

Facebook
Telefonspende