Thema Datum  Von Nutzer Rating
Antwort
Rot Aktualisierung von Variablen in mehreren Arbeitsblätter
01.06.2023 09:00:54 MF
NotSolved
01.06.2023 15:03:07 Gast1006
NotSolved
01.06.2023 15:15:47 Der Steuerfuzzi
NotSolved
01.06.2023 17:27:12 MF
NotSolved
01.06.2023 17:33:58 Der Steuerfuzzi
NotSolved

Ansicht des Beitrags:
Von:
MF
Datum:
01.06.2023 09:00:54
Views:
942
Rating: Antwort:
  Ja
Thema:
Aktualisierung von Variablen in mehreren Arbeitsblätter

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aktualisierung von Variablen in mehreren Arbeitsblätter
01.06.2023 09:00:54 MF
NotSolved
01.06.2023 15:03:07 Gast1006
NotSolved
01.06.2023 15:15:47 Der Steuerfuzzi
NotSolved
01.06.2023 17:27:12 MF
NotSolved
01.06.2023 17:33:58 Der Steuerfuzzi
NotSolved