Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1400to1404
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
Inhaltsverzeichnis

Wenn Wert dann Message Box

Wenn Wert dann Message Box
15.01.2015 13:15:22
T1M0
Hallo liebes Forum,
ich möchte mit Excel eine Infobox erstellen:
In einer Spalte A sind Namen eingetragen.
In einer Spalte B werden Werte von 1-5 eingetragen. Jedes mal wenn in Spalte B der Wert 4 eingetragen wird, soll sich eine MsgBox mit Hinweistext öffnen. Als Antwortbutton werden "Ok" und "Abrechen" benötigt. Bei Klick auf "Ok" soll der Ordner eines vorher definierten Speicherpfades angezeigt werden. Bei Klick auf Abbrechen wird das Hinweisfenster einfach geschlossen.
Habt ihr eine Idee wie ich das mit Hilfe eines Makros umsetzten kann?
Ich danke für jeden hilfreichen Tipp!
Danke und beste Grüße!
T1Mo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Wert dann Message Box
15.01.2015 13:37:30
Klaus
Hi T1M0,
d1r3k7 1n d13 T4b3113 d3n C0D3 31nfüg3n:
Private Sub Worksheet_Change(ByVal Target As Range)
Const myPfad As String = "U:\Herbers"
If Target.Column = 2 Then
If Target.Value = 4 Then
If MsgBox("Mach es auf!", vbYesNo) = 6 Then
Shell "Explorer.exe " & myPfad, vbNormalFocus
End If
End If
End If
End Sub
Grüß3,
Klaus "1337" M.vdT.

AW: Wenn Wert dann Message Box
15.01.2015 14:05:51
T1M0
Ich danke dir Vielmals, Klaus!

Danke für die Rückmeldung! owT.
15.01.2015 14:19:22
Klaus
.
Anzeige

353 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige