Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
336to340
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
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige