https://www.berndplumhoff.de/tags/vba-class/ Recent content in VBA Class on Bernd Plumhoff Hugo en Wed, 13 May 2026 14:30:00 +0100 https://www.berndplumhoff.de/systemstate_de/ Wed, 13 May 2026 14:30:00 +0100 https://www.berndplumhoff.de/systemstate_de/ <h2 id="abstract">Abstract</h2> <p>Mein ehemaliger Kollege Jon T. entwickelte die kleinste mir bekannte sinnvolle VBA Klasse: Mit <em>SystemState</em> kann man Systemstatusvariablen leicht speichern und für eigene Zwecke optimieren.</p> <p>Um die Programmausführung zu beschleunigen, schreibt man normalerweise zu Beginn eines VBA Makros</p> <div class="highlight"><pre tabindex="0" style="background-color:#fff;-moz-tab-size:2;-o-tab-size:2;tab-size:2;"><code class="language-VB.net" data-lang="VB.net"><span style="display:flex;"><span>Application.Calculation = xlCalculationManual </span></span><span style="display:flex;"><span>Application.ScreenUpdating = <span style="color:#00f">False</span> </span></span></code></pre></div><p>und am Ende des Makros</p> <div class="highlight"><pre tabindex="0" style="background-color:#fff;-moz-tab-size:2;-o-tab-size:2;tab-size:2;"><code class="language-VB.net" data-lang="VB.net"><span style="display:flex;"><span>Application.Calculation = xlCalculationAutomatic </span></span><span style="display:flex;"><span>Application.ScreenUpdating = <span style="color:#00f">True</span> </span></span></code></pre></div><p>Mit dem Klassenmodul <em>SystemState</em> schreibt man am Start lediglich</p> <div class="highlight"><pre tabindex="0" style="background-color:#fff;-moz-tab-size:2;-o-tab-size:2;tab-size:2;"><code class="language-VB.net" data-lang="VB.net"><span style="display:flex;"><span><span style="color:#00f">Dim</span> state <span style="color:#00f">As</span> SystemState </span></span><span style="display:flex;"><span><span style="color:#00f">Set</span> state = <span style="color:#00f">New</span> SystemState </span></span><span style="display:flex;"><span><span style="color:#008000">&#39;Bitte beachten: Dies kann NICHT mit &#34;Dim state as New SystemState&#34; abgekürzt werden! </span></span></span></code></pre></div><p>und am Ende</p>