seit einiger Zeit arbeite ich mit Inputboxen. Ich hatte diese bisher immer so gestaltet, daß der Klick auf Abbrechen zum Verlassen des Sub`s führte.
Heute soll nun eine neue Option hinzukommen. Wenn auf Abbrechen geklickt wird, dann soll der Sub nicht verlassen, dafür aber der Wert der Inputbox auf gesetzt werden.
Also muß ich das gänzliche Abbrechen des Sub`s über das Schließkreuz realisieren. Im Forum habe ich nur Hinweise bekommen, wie das für eine UserForm geht. In der Hilfe zur Inputbox wird darauf leider auch nicht eingegangen.
Geht der Abbruch über das Schließkreuz auch in einer Application.Inputbox? Evtl. auch über QueryClose (wie bei einer UserForm)?
Anbei der Code der Inputbox.
Sub InputBoxTest
On Error Resume Next
Set DruckZeile = Application.InputBox("Bitte die individuellen Wiederholungszeilen markieren:" & vbLf & _
"Abbrechen = Keine Wiederholungszeilen.", "Individuelle Wiederholungszeilen", "$A$1", Type:=8)
On Error GoTo 0
If DruckZeile Is Nothing Then
MsgBox "Es wird keine Wiederholungszeile eingerichtet."
DruckReferenz = ""
Else
DruckReferenz = DruckZeile.Address
end if
If die Inputbox über das Schließkreuz beendet wurde, then
Exit Sub
End If
End Sub
Ich habe auch probiert über Type = 8 + 1 Zahlen zuzulassen und dann die 0 über eine IF Abfrage auszuwerten. If Druckzeile = 0 Then Exit Sub.
Es kam zwar keine Fehlermeldung, aber funktioniert hat es auch nicht. Das Schließkreuz als Event auswerten zu können wäre jedoch mein Primärziel.
Vielen Dank für Eure Ideen in dieser Sache,
Grüße, Andreas Hanisch