Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.12.2024 16:52:36
Range("A1:A2") vs. Range(Cells(1,1),Cells(2,1))
06.12.2024 14:49:55
Browserverlauf löschen per Sendkeys
06.12.2024 14:01:40
"Resttext" ausgeben ohne Suchtext
06.12.2024 13:43:30
falsches Datumformat bei Übertrag nach ACCESS
Findest du keine passende Antwort auf deine Frage?
Stelle sie in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Kategorie
Benutzerdefinierte Funktion
Tags
#abbrechen #inputbox #vba
Relevante Fragen
Anzeige
Inhaltsverzeichnis

Inputbox > Abbrechen

Inputbox > Abbrechen
17.11.2003 08:25:53
Holger Meinert
Hallo Forum,
habe folgendes Makro:

Sub Bemerkung_Stromverkauf_Sonderbezug()
Dim text As String
text = InputBox("Fügen Sie der PDF-Datei eine Bemerkung hinzu !" & vbCrLf & " " & vbCrLf & " Bestätigen mit OK !!", vber, "Stromverkauf_Sonderbezug")
Sheets("TBD").Select
Range("O1").Value = text
Sheets("TBD").Select
End Sub


Frage: Wenn ich auf "Abbrechen" klicke soll das Makro beendet werden; Wie ?

Vielen Dank !
Holger

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox > Abbrechen
17.11.2003 08:39:56
Holger Levetzow
nimm:

Sub Bemerkung_Stromverkauf_Sonderbezug()
Dim text As String
text = Application.InputBox("Fügen Sie der PDF-Datei eine Bemerkung hinzu !" & vbCrLf & " " & vbCrLf & " Bestätigen mit OK !!", vber, "Stromverkauf_Sonderbezug")
If text = "Falsch" Then Exit Sub
Sheets("TBD").Select
Range("O1").Value = text
Sheets("TBD").Select
End Sub

Holger

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige