Thema Datum  Von Nutzer Rating
Antwort
08.06.2020 12:07:07 Einblatt
NotSolved
08.06.2020 15:14:12 Mase
NotSolved
09.06.2020 07:10:53 Einblatt
NotSolved
09.06.2020 08:20:05 Mase
NotSolved
09.06.2020 08:45:43 Einblatt
NotSolved
09.06.2020 08:51:21 Mase
NotSolved
09.06.2020 09:28:19 Einblatt
NotSolved
09.06.2020 20:05:43 Mase
NotSolved
10.06.2020 06:40:24 Einblatt
NotSolved
10.06.2020 06:47:13 Mase
NotSolved
10.06.2020 06:53:11 Einblatt
NotSolved
10.06.2020 07:29:29 Mase
NotSolved
10.06.2020 07:46:58 Einblatt
NotSolved
Blau zu 1.
 10.06.2020 08:30:58 Mase
NotSolved
Rot Rot zu 1.
 10.06.2020 08:56:18 Einblatt
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
10.06.2020 08:30:58		 Views:
674		 Rating:
     
Antwort:
  Ja
Thema:
zu 1.

Das ist eine Inputbox und keine Checkbox.

Du musst den Rückgabewert  der Inputbox in einer Variablen speichern und das verarbeiten.

Problem wird sein, dass Du Abbrechen nicht von OK (ohne Inhalt ) unterscheiden kannst.

Das ist alt und hier bspw. nachzulesen:

https://www.herber.de/forum/archiv/488to492/489148_Inputbox_Ok_oder_Abbrechen_abfragen.html

 

Ungeachtet dessen würde ohne Überprüfung von passwort die Mail geöffnet immer werden werden.

Wenn das passwort iO ist, könntest Du mit einer MessageBox abfragen, ob eine Mail versendt werden soll.

Bei der MessageBox könntest Du den Rückgabewert mit einer Konstanten auf OK/Abbrechen prüfen und dann die Mail öffnen.

 

Beispiel:

    If passwort = "DeinPasswort" Then
        If MsgBox("Passwort war iO. Mail versenden?", vbInformation + vbOKCancel) = vbOK Then
            'OK wurde gedrückt
            Call MailOeffnen
        Else
            'Abbrechen wurde gedrückt
        End If
    Else
        'Passwort nIO; bei Bedarf User informieren
        MsgBox "Passwort war nicht korrekt."
    End If

 

 

Checkbox (Formularsteuerelement oder ActiveX)

https://www.google.de/search?q=vba+checkbox&sxsrf=ALeKk0286VMUCUBg7Y4ny_bgPpgr3IAteQ:1591770594004&source=lnms&tbm=isch&sa=X&ved=2ahUKEwit48bGz_bpAhWKTxUIHSAzDSIQ_AUoAnoECAwQBA&biw=1920&bih=937#imgrc=8CQiGqBnI1VQDM

Inputbox:

https://www.google.de/search?q=vba+inputbox&tbm=isch&ved=2ahUKEwjb1OPHz_bpAhXpMewKHQi5Cx4Q2-cCegQIABAA&oq=vba+inputbox&gs_lcp=CgNpbWcQAzICCAAyBggAEAUQHjIECAAQHjIECAAQGDIECAAQGDIECAAQGDIECAAQGDIECAAQGDIECAAQGDIECAAQGDoECAAQQzoGCAAQCBAeUK6VAljqpAJgmqgCaABwAHgAgAFYiAHUBJIBATiYAQCgAQGqAQtnd3Mtd2l6LWltZw&sclient=img&ei=5H3gXtvSIunjsAeI8q7wAQ&bih=937&biw=1920#imgrc=Ab2cJjOw0OR_zM

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.06.2020 12:07:07 Einblatt
NotSolved
08.06.2020 15:14:12 Mase
NotSolved
09.06.2020 07:10:53 Einblatt
NotSolved
09.06.2020 08:20:05 Mase
NotSolved
09.06.2020 08:45:43 Einblatt
NotSolved
09.06.2020 08:51:21 Mase
NotSolved
09.06.2020 09:28:19 Einblatt
NotSolved
09.06.2020 20:05:43 Mase
NotSolved
10.06.2020 06:40:24 Einblatt
NotSolved
10.06.2020 06:47:13 Mase
NotSolved
10.06.2020 06:53:11 Einblatt
NotSolved
10.06.2020 07:29:29 Mase
NotSolved
10.06.2020 07:46:58 Einblatt
NotSolved
Blau zu 1.
 10.06.2020 08:30:58 Mase
NotSolved
Rot Rot zu 1.
 10.06.2020 08:56:18 Einblatt
NotSolved