Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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....

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige