Ich bin damit beschäftigt eine Datei zu erstellen, in welcher der Ausleihstatus von Mobiltelefonen überwacht werden kann.
In Spalte A habe ich CommandButtons und in Spalte F ToggleButtons, siehe Beispieldatei: https://www.herber.de/bbs/user/155776.xlsm
Mit dem Betätigen des CommandButton1 in Spalte A öffnet es mir eine Mail in Outlook, was super funktioniert.
Nun möchte ich, dass es jeweils eine MsgBox anzeigt, sobald der ToggleButton1 von "True" auf "False" resp. von "Ausgeliehen" auf "Verfügbar" gewechselt wird, wobei die MsgBox folgende Eigenschaften/Funktionen haben soll:
Ja/Nein MsgBox
Titel: Bitte Erhalt bestätigen
Text: Rückgabe von Mobiltelefon mit Bezeichnung: "Range("A5").Value" bestätigen?
Wenn "Ja", dann MsgBox schliessen und ToggleButton1 umschalten auf "False" resp. "Verfügbar";
Wenn "Nein", dann MsgBox schliessen und ToggleButton1 auf "True" resp. "Ausgeliehen" belassen.
Wo muss ich nun den "MsgBox-Code" in meinem Code einfügen?
Private Sub CommandButton1_Click()
Dim appOutlook As Object
Dim meinMail As Object
Set appOutlook = CreateObject("Outlook.Application")
Set meinMail = appOutlook.CreateItem(0)
With meinMail
.To = Worksheets("Daten").Range("C3")
.CC = ""
.Subject = ""
.Body = Worksheets("Daten").Range("C18")
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With
Set meinMail = Nothing
Set appOutlook = Nothing
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Verfügbar"
ToggleButton1.BackColor = RGB(0, 176, 80)
ToggleButton1.FontSize = 12
ToggleButton1.ForeColor = RGB(0, 0, 0)
Else
ToggleButton1.Caption = "Ausgeliehen"
ToggleButton1.BackColor = RGB(255, 124, 128)
ToggleButton1.FontSize = 12
ToggleButton1.ForeColor = RGB(0, 0, 0)
End If
End Sub
Ich hoffe ich habe mich einigermassen verständlich ausgedrückt und freue mich auf eine Rückmeldung. :-)Viele Grüsse
MBodo