Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro mit Schleife Programmieren

Forumthread: Makro mit Schleife Programmieren

Makro mit Schleife Programmieren
18.09.2005 13:07:58
Mathias
Hallo an Alle zusammen,
ich würde gerne in einer Zelle einen Wert ausgeben lassen, der erst berechnet wird und dann auf zwei Bedingungen hin überprüft werden muss(eine obere und eine unter Grenze), bevor er ausgegeben wird. Wenn die Bedingungen nicht erfüllt werden, muss der Wert erst verändert, und dann wieder überprüft werden, solange bis er die Bedingungen erfüllt. Dann soll er in der Zelle ausgegeben werden.
Kann mir jemand eine Vorlage hierfür liefern?
Vielen Dank schon mal im voraus....
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro mit Schleife Programmieren
18.09.2005 13:54:31
Franz
Hallo Mathias,
' In diesem Beispiel ist die Bedingung für Wert bei X Werten von 11 bis 25 erfüllt
Sub Pruefung()
Unten = 100 ' Unterer Grenzwert
Oben = 1000 ' Oberer Grenzwert
Do
'==== Anweisungen zur Berechnung von Wert Anfang
X = Val(InputBox("Wert = " & Wert & " Bitte X eingeben, so dass Wert >=" & Unten _
& " UND <=" & Oben, "Testen", X))
Wert = Berechnung(X)
'==== Anweisungen zur Berechnung von Wert Ende
Loop Until Wert >= Unten And Wert <= Oben
Application.Range("A4").Value = Wert 'Wert der Zelle "A3" zuweisen
End Sub
Function Berechnung(X)
' Berechnungsformel zur Bestimmung von Wert
Berechnung = 2 * X ^ 2 - 10 * X - 3
End Function

Gruß
Franz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige