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
|