Zusatzinformation - Inputbox - StrPtr()
06.04.2011 10:26:16
Matthias
Hallo
Zitat
wenn ich in der Inputbox das Feld ABBRECHEN drücke
Du hast zwar bereits Antworten, die sich auf die Variable(d) beziehen bekommen,
allerdings haben die Antworten "eigentlich" (bitte nicht falsch verstehen) nichts mit Deiner gestellten Frage zu tun.
Dies also bitte nur als Zusatzinformation verstehen.
Das Abbrechen kannst Du mit If StrPtr(d) = 0 abfragen.
StrPtr ist undokumentiert. Es gibt allerdings zahlreiche Beiträge in den Foren bzw. im Internet
Option Explicit
Sub reinhardt()
Dim a, b, c, d
Dim i As Integer
a = "Wieviele Rechnungsnummern für diese Rechnungsart reservieren? "
b = "Reservieren"
c = "1"
d = InputBox(a, b, c, 9000, 7000)
If StrPtr(d) = 0 Then MsgBox "Es wurde ""Abbrechen"" gedrückt!", vbInformation, " Info an " & _
Application.UserName: Exit Sub
' FolgeCode
' hier kannst Du dann auf IsNumeric() und/oder Leerstring bzw. auf Not Isdate() prüfen
' der FolgeCode hat aber nichts mit dem Drücken des Buttons "Abbrechen" zu tun !
End Sub
Gruß Matthias