Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1764to1768
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

VBA Inbox Abbrechen

VBA Inbox Abbrechen
23.06.2020 23:07:38
Maurice
Hallo zusammen :o)
ich suche eine Möglichkeit im VBA das Makro wirklich nur dann abzubrechen, wenn in der Inbox Abbrechen ausgewählt wurde. Wenn es keinen Eintrag gegeben hat, dann soll das Makro dennoch ganz normal weiterlaufen.
Da bei keinem Eintrag, wie auch bei Abbrechen in die Inbox der Wert "" zurückgegeben wird, weiß ich nicht, wie ich hier eine Unterscheidung in mein Script bekomme. Bei einer Zuweisung von FALSE wird dieser Eintrag leider ignoriert.
Hier ein Auszug:
.
varProjt = InputBox("Bitte Projekt angeben")
If varProjt = "" Then
'wenn hier statt "" FALSE eingetragen wird verhaelt sie Excel so als ignoriere es die if-Anweiung
Rows(LZeileN).Delete
Exit Sub
Else
Cells(LZeileN, 3).Value = varProjt
End If
.
.Wäre toll, wenn mir jemand weiterhelfen könnte ;o)
Sonnige Grüße
Maurice
.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Inbox Abbrechen
23.06.2020 23:13:51
Werner
Hallo,
nimm Application.Inputbox
varInput = Application.InputBox("Bitte Projekt eingeben.")
If varInput = False Then
MsgBox "Abbruch"
Else
MsgBox "Weiter im Makro"
End If
Gruß Werner
AW: VBA Inbox Abbrechen
24.06.2020 21:19:18
Maurice
Servus Werner,
super, danke Dir. Mit Application.Inbox und False klappts.
So einfach, wenn mans weiß... wie bei allem... ;o)
Sonnige Grüße
Maurice
Gerne u. Danke für die Rückmeldung. o.w.T.
24.06.2020 21:50:30
Werner
AW: VBA Inbox Abbrechen
24.06.2020 11:15:46
Nepumuk
Hallo Maurice,
ein Beispiel:
Public Sub Test()
    Dim strProject As String
    strProject = InputBox("Bitte Projekt angeben")
    If StrPtr(strProject) = 0 Then
        MsgBox "Abgebrochen"
    Else
        MsgBox strProject
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA Inbox Abbrechen
24.06.2020 21:21:36
Maurice
Hallo Nepumuk,
habe die Lösung vom Werner verwendet:
Application.Inbox und False.
Danke Dir trotzdem ;o)
Sonnige Grüße
Maurice

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige