Herbers Excel-Forum - das Archiv
Alert erstellen mit Funktionen Ja/Nein und auslese
- Alert erstellen mit Funktionen Ja/Nein und auslese von soendi vom 27.10.2003 11:14:17
- AW: Alert erstellen mit Funktionen Ja/Nein und aus - von georg wurm am 27.10.2003 11:34:28
- AW: Alert erstellen mit Funktionen Ja/Nein und auslese - von ANdreas am 27.10.2003 11:37:53
- AW: Alert erstellen mit Funktionen Ja/Nein und auslese - von soendi am 27.10.2003 12:02:54
- AW: Alert erstellen mit Funktionen Ja/Nein und aus - von georg wurm am 27.10.2003 11:34:28
 |
Betrifft: Alert erstellen mit Funktionen Ja/Nein und auslese
von: soendi
Geschrieben am: 27.10.2003 11:14:17
Ich möchte ein Alert-Fenster beim Aufruf eines Makros.
Das Makro checkt, ob in einer bestimmten Zelle ein bestimmter Wert steht und falls nicht, soll das der Alert erscheinen. Es soll dann die Antwort des Benutzers (Ja/Nein) auslesen und je nach dem zu einer anderen Sprungmarke gehen.
Danke für die Hilfe!
soendi
 |
Betrifft: AW: Alert erstellen mit Funktionen Ja/Nein und aus
von: georg wurm
Geschrieben am: 27.10.2003 11:34:28
Sub div_alarme()
'worksheet, wo abgefragt werden soll anwählen
Sheets("daten").Select
'zelle zum abfragen aussuchen (geht auch anders
Range("a1").Select
'abfragen
If ActiveCell = 1 Then
wert = MsgBox("Dieser Wert wurde gefunden: " & ActiveCell & "Was nun tun? Weitermachen mit 'OK' Aufhören mit 'Abbrechen", vbOKCancel, "Frage")
End If
'und dann kann man mit dem rückgabewert [wert] machen, was man will!
End Sub
|
Betrifft: AW: Alert erstellen mit Funktionen Ja/Nein und auslese
von: ANdreas
Geschrieben am: 27.10.2003 11:37:53
Hallo soendi,
hier mein Vorschlag:
Sub AlertMakro()
If Range("C10").Value = "Hallo" Then _
If MsgBox("Ja oder nein?", vbYesNo + vbQuestion, _
"Frage") = vbYes Then Range("A1").Select
End Sub
Bei Makroaufruf wird geprüft ob in Zelle C10 "Hallo" steht. Ist das der Fall und wird die anschließende MsgBox mit Ja bestätigt, wird in Zelle A1 gesprungen.
Hoffe das hilft weiter,
Andreas
|
Betrifft: AW: Alert erstellen mit Funktionen Ja/Nein und auslese
von: soendi
Geschrieben am: 27.10.2003 12:02:54
danke! hat wunderbar geklappt..!
| |