Hilfe beim Makro schreiben

Hallo zusammen,
ich bin absoluter Neuling in Sachen VBA. Allerdings benötige ich dringend ein Makro, dass folgendes erledigen soll:
Ich habe auf einem Excel-Tabellenblatt bereits verschiedene Berechnungen mittels Formeln vorgenommen. Nun möchte ich die Zelle E52 (Dezimalzahl) dieses Tabellenblatts schrittweise um 0,01 erhöhen. Durch die bereits hinterlegten Formeln wird durch die Veränderung in E52 jeweils eine neue Zahl in der Zelle G45 (Dezimalzahl) berechnet. Die Zelle E52 soll nun solange um 0,01 erhöht werden, bis erstmalig der dadurch berechnete Wert in G45 kleiner dem in dem vorherigen Schritt ermittelten Wert von G45 ist, d.h. bevor ich E52 um 0,01 erhöht habe. Wenn dieser Fall eintritt, soll mir der entpsrechende Wert von G45 als Dezimalzahl in einem neuen Tabellenblatt "Ergebnis" Zelle B5 angezeigt werden.
Ich denke, dass mir eine Schleife helfen könnte. Allerdings habe ich überhaupt keine Ahnung, wie der Code dazu lautet.
Ich bin um jede Hilfe und jeden Rat dankbar.
Schon jetzt vielen Dank!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub iteration() Dim i As Long Dim wert As Double i = 0 ' Notnagel zur Verhinderung einer Endlosschleife Do wert = Range("G45").Value Range("E52") = Range("E52") + 0.01 i = i + 1 Loop Until (Range("G45") 998 Then Sheets("Ergebnis").Range("B2").Value = "Iterationen: " & i Else Sheets("Ergebnis").Range("B2").Value = Range("g45") End If End Sub

Hi Juli,
das Makro bezieht sich (sofern keine konkreten Angaben Sheets(...) gemacht werden) immer auf das Blatt, in dem es steht: *wenn* es in einem Blatt steht, und das scheint bei Dir der Fall zu sein.
Füge ein Modul ein (im VB-Editor Einfügen/Modul), schneide den Code im Blatt aus und kopiere ihn dorthin,
und die Sache sollte flutschen: wenn das Ding im Modul steckt, wird (ohne konkrete Angaben) immer das gerade "aktive" Blatt genommen, also das, von dem das Makro aufgerufen wird.
Vergiß nicht, die Buttons neu zuzuweisen, denn das Makro ist jetzt woanders als zuvor.
So. Jetzt schreibst Du ins Blatt "Ergebnis" in eine freie Zelle, z.B. B1, eine 2 und verwendest das Makro mit den folgenden, kleinen Änderungen:

Sub iteration()
Dim i As Long, j As Long
Dim wert As Double
j = Sheets("Ergebnis").Range("B1").Value
i = 0 ' Notnagel zur Verhinderung einer Endlosschleife
Do
wert = Range("G45").Value
Range("E52") = Range("E52") + 0.01
i = i + 1
Loop Until (Range("G45") j = j + 1
If i > 998 Then
Sheets("Ergebnis").Range( "B" & j ).Value = "Iterationen: " & i
Else
Sheets("Ergebnis").Range( "B" & j ).Value = Range("g45")
End If
Sheets("Ergebnis").Range("B1").Value = j
End Sub

Dadurch "merkt" sich Excel die zuletzt verwendete Ausgabezeile und nimmt immer die nächsthöhere.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread