Office: Fehlermeldung erstellen (MsgBox?)

Hallo Excel Freunde.
Es geht um eine Excel Datei (siehe Anhang), die eine Fehlermeldung zur Folge haben soll, falls bei der 'gewünschten Trinktemperatur' die gewünschte Trinktemperatur und die Temperatur des Kaffees kleiner ist, als die Raumtemperatur (ist dann ja nicht
möglich) und wenn die gewünschte Trinktemperatur größer ist als die Temperatur des Kaffees und des Raums! Derzeit erscheint bei einem Fehler ein Laufzeittfehler, wie kann ich in den Code eine MSG Box generieren?
zb: If wunsch <raum> wunsch
kaffe = kaffe - (kaffe - raum) * wlq
min = min + 1
Wend
Range("D25") = min
End Sub

Vielen Dank an Alle!

 

Hallo!

Da sind aber einige Fehler drin...
Zumindest die Variable kaffe musst du als Single definieren, denn diese kann ja auch Nachkommastellen besitzen.
Zum Zweiten musst du mittels .Value den Variablen den WERT der Zellen zuweisen.
Für die Fehlermeldung reicht ein If-Then.
Prüf mal, ob es so passt:

Code:

Private Sub CommandButton2_Click()
Dim kaffe, raum, wlq, wunsch, min As Single
 kaffe = Range("D16").Value
 raum = Range("D18").Value
 wlq = Range("D20").Value
 wunsch = Range("D22").Value
If wunsch "kleiner" raum Or wunsch "größer" kaffe Then
MsgBox "Fehler"
Exit Sub
End If
  While kaffe > wunsch
   kaffe = kaffe - (kaffe - raum) * wlq
   min = min + 1
  Wend
 Range("D25").Value = min
End Sub

"kleiner" und "größer" musst du durch die Zeichen ersetzen!
Ich habe es nur so gemacht, weil es hier sonst falsch angezeigt wird.

 

Hallo Schatzi, danke für die schnelle Hilfe..

ich habe die Angaben so implementiert und sie funktionieren...
Wenn ich nun noch 2 verschiedene MsgBoxen erstellen möchte reicht dort noch Else if..
momentan bekomme ich eine Fehlermeldung für 2 unterschiedliche Aussagen.
Es wäre aber komfortabler, wenn die erste Box sagen würde " Wunsch zu niedrig o.ä." und die 2te MsgBox "Wunsch zu hocvh" o.ä

ich dachte das geht mit Else if....Then....

Vielen lieben Dank für die Mühe....

 

Mach doch einfach zwei If's.

 

...toll wie schnell Du antwortest...
hier hat sich wieder etwas eingeschlichen....
Bei 2 Anweisungen muss ich If anders abschließen oder?

Code:

Private Sub CommandButton2_Click()
Dim kaffe, raum, wlq, wunsch, min As Single
 kaffe = Range("D16").Value
 raum = Range("D18").Value
 wlq = Range("D20").Value
 wunsch = Range("D22").Value
If wunsch "kleiner" raum Then
MsgBox "Wunsch zu niedrig"
If wunsch "größer" kaffe Then
MsgBox "Wunsch zu hoch"
Exit Sub
End If
  While kaffe > wunsch
   kaffe = kaffe - (kaffe - raum) * wlq
   min = min + 1
  Wend
 Range("D25").Value = min
End Sub

 

Ohne es getestet zu haben:

If wunsch "kleiner" raum Then
MsgBox "Wunsch zu niedrig"
Exit Sub
End If
If wunsch "größer" kaffe Then
MsgBox "Wunsch zu hoch"
Exit Sub
End If

 

*pfeifff* *räusper*

ja so sollte man es abschließen..vielen lieben Dank für Deine kompetente Hilfe

Grüße