Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inputbox Abbrechen mit Exit Sub belegen
20.03.2008 11:16:51
Larissa
Hallo,
wie kann ich den Abbrechen-Button bei einer Inputbox mit Exit Sub belegen?
Der Code ist:
Workbooks("Rechnung.xls").Sheets("Formulare").Range("X2").Value = InputBox("Bitte Ordernummer eingeben", "Ordernummer")
Auch wenn die Inputbox geschlossen wird oder keine Eingabe erfolgte, sollte Exit Sub gewählt werden.
Vielen Dank für Eure Hilfe.
Lieben Gruß,
Larissa

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox Abbrechen mit Exit Sub belegen
20.03.2008 11:26:00
Andreas
Hallo Larissa,
versuch's mal so:
Wert = InputBox("Bitte Ordernummer eingeben", "Ordernummer")
If Wert = "" Then
MsgBox "Exit sub"
Exit Sub
Else
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = Wert
End If
Grüße
Andreas

AW: Inputbox Abbrechen mit Exit Sub belegen
20.03.2008 11:27:00
Tino
Hallo Larissa,
ich würde es so machen.
Eingabe = InputBox("Bitte Ordernummer eingeben", "Ordernummer")
If Eingabe = "" Then Exit Sub
Workbooks("Rechnung.xls").Sheets("Formulare").Range("X2").Value = Eingabe
Gruß
Tino

Danke - Das klappt super!
20.03.2008 14:40:00
Larissa
Ich habe mich für die Version von Tino entschieden.
Klappt wunderbar. Vielen Dank auch an Andreas und Matthias.
Lieben Gruß,
Larissa

Anzeige
AW: Inputbox Abbrechen mit Exit Sub belegen
Matthias
Hallo

Option Explicit
Sub test()
Dim strg As String
strg = InputBox("Bitte Ordernummer eingeben", "Ordernummer")
If IsEmpty(strg) Then Exit Sub
If IsNumeric(strg) Then
ActiveSheet.Range("A1").Value = strg
End If
End Sub


Gruß Matthias

83 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige