Hallo zusammen, 

ich würde gerne in mehreren Arbeitsblättern jeweils variabeln aktualisieren. Folgendes funktioniert leider nur im einzelnen Arbeitsblatt aber nicht über gewünschten Arbeitsblätter. Was mache ich falsche bzw. kann mir jemand weiterhelfen? Sorry, bin noob :) 

Sub MakroEinzel()
  ' Beispiel Einzelaktualisierung zweier Zellen
  
  Worksheets("Anlagevermögen A").Range("G12").Select
  Call Application.Run("mWacFieldUpdate")
    Worksheets("Anlagevermögen A").Range("G13").Select
  Call Application.Run("mWacFieldUpdate")
Worksheets("Anlagevermögen A").Range("G14").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Vorräte B.1").Range("K8").Select
  Call Application.Run("mWacFieldUpdate")
Worksheets("Forderungen B.2").Range("G10").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Forderungen B.2").Range("G11").Select
  Call Application.Run("mWacFieldUpdate")
Worksheets("Aktive RAP C").Range("G9").Select
  Call Application.Run("mWacFieldUpdate")
Worksheets("Eigenkapital D").Range("G10").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Eigenkapital D").Range("G10").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Eigenkapital D").Range("G11").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Eigenkapital D").Range("G12").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Eigenkapital D").Range("G13").Select
  Call Application.Run("mWacFieldUpdate")
  Worksheets("Eigenkapital D").Range("G14").Select
  Call Application.Run("mWacFieldUpdate")
    Worksheets("Eigenkapital D").Range("G15").Select
  Call Application.Run("mWacFieldUpdate")
    Worksheets("Eigenkapital D").Range("G16").Select
  Call Application.Run("mWacFieldUpdate")
    Worksheets("Eigenkapital D").Range("G17").Select
  Call Application.Run("mWacFieldUpdate")
      Worksheets("Rückstellungen E").Range("G9").Select
  Call Application.Run("mWacFieldUpdate")
        Worksheets("Verbindlichkeiten F").Range("G9").Select
  Call Application.Run("mWacFieldUpdate")
         Worksheets("Passive RAP G").Range("G9").Select
  Call Application.Run("mWacFieldUpdate")
           Worksheets("Latente Steuern H").Range("D18").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D19").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D20").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D21").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D22").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D23").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D24").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D25").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D26").Select
  Call Application.Run("mWacFieldUpdate")
             Worksheets("Latente Steuern H").Range("D27").Select
  Call Application.Run("mWacFieldUpdate")
               Worksheets("Anhang I").Range("I12").Select
  Call Application.Run("mWacFieldUpdate")
                 Worksheets("Anhang I").Range("I14").Select
  Call Application.Run("mWacFieldUpdate")
                   Worksheets("Anhang I").Range("I24").Select
  Call Application.Run("mWacFieldUpdate")
                   Worksheets("Anhang I").Range("I26").Select
  Call Application.Run("mWacFieldUpdate")
                   Worksheets("Anhang I").Range("I28").Select
  Call Application.Run("mWacFieldUpdate")
                   Worksheets("Anhang I").Range("I30").Select
  Call Application.Run("mWacFieldUpdate")
                   Worksheets("Anhang I").Range("I32").Select
  Call Application.Run("mWacFieldUpdate")
                     Worksheets("GmbH Strl. Gewinn").Range("D9").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B37").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B38").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B39").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B40").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B41").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B42").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B43").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B44").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B45").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("B46").Select
  Call Application.Run("mWacFieldUpdate")
                         Worksheets("GmbH Strl. Gewinn").Range("c37").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c38").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c39").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c40").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c41").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c42").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c43").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c44").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c45").Select
  Call Application.Run("mWacFieldUpdate")
                       Worksheets("GmbH Strl. Gewinn").Range("c46").Select
  Call Application.Run("mWacFieldUpdate")
                         Worksheets("GmbH Strl. Gewinn").Range("d49").Select
  Call Application.Run("mWacFieldUpdate")
                           Worksheets("Arbeitspapier Steuerbilanz").Range("I10").Select
  Call Application.Run("mWacFieldUpdate")
        Worksheets("Arbeitspapier Steuerbilanz").Range("I11").Select
  Call Application.Run("mWacFieldUpdate")

End Sub