Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich mit If-Then - 2.Versuch

Vergleich mit If-Then - 2.Versuch
27.12.2004 17:38:01
Jan
Da sich der Link nicht öffnen ließ ein zweiter Versuch
Hallo Ihr fleißigen Helferlein,
ich habe folgendes Problem:
Ich will mit Hilfe eines Makros einen eingegebenen Wert(Variable(gelb hinterlegt)) mit zwei weiteren Werten (Konstanten(min.Fensterhöhe,max.Fensterhöhe))vergleichen. VBA soll dann eine MsgBox öffenen und angeben, ob der eingegebene Wert den Vorgaben entspricht(Wert OK) oder ob der Wert den Vorgaben nicht entspricht(Wert überprüfen!).
Ich erhalte immer die Meldung "Wert überprüfen!", auch wenn die Vorgaben eingehalten werden.
Danke für die Hilfe sagt Jan
https://www.herber.de/bbs/user/15335.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt o.T.
27.12.2004 17:42:08
DieterB
AW: Vergleich mit If-Then - 2.Versuch
Ramses
Hallo
Der Code und deine aktuellen Zell Werte hätten genügt

Sub IfThen()
IstWert = Range("Variable").Value
minWert = Range("min.Fensterhöhe").Value
MaxWert = Range("max.Fensterhöhe").Value
If minWert < IstWert And MaxWert > IstWert Then
MsgBox "Wert OK"
End If
If minWert > IstWert Or MaxWert < IstWert Then
MsgBox "Wert überprüfen!"
End If
End Sub

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige