Der Benutzer soll einen Zellbereich selektieren. Wenn ich dafür Application.Inputbox verwende, möchte ich die zwei Fälle abfangen, daß der Benutzer entweder "Abbrechen(Cancel)" drückt oder ohne etwas eingegeben zu haben, "OK"drückt.
Nach diversen Suchen im Netz habe ich folgendes versucht:
Dim answer as variant
Dim dzell as range
answer = Application.InputBox("Please select the cells of the table for the autofilter:", " _
Which table?", , , , , , 8)
If answer False Then
If answer = "" Then
MsgBox "You selected nothing - aborting!", vbOKOnly + vbInformation
Exit Sub
Else
Set dzell = answer
End If
Else
MsgBox "You cancelled - aborting!", vbOKOnly + vbInformation
Exit Sub
End If
dann kann ich zwar "Abbrechen" und die leere Eingabe abfangen, aber wenn ich einen Bereich _ selektiere, macht er mir einen Typ-Mismatch. Wenn ich dann mit
On Error Resume Next
arbeite, muß ich auch mit
Application.Displayalerts=False
arbeiten, weil er sonst einen Fehler bei dem Versuch der leeren Eingabe bringt - und zwar einen in Excel, den ich nicht abfangen kann.
Hat mir jemand einen Tipp, wie ich das lösen kann?
Gruß
Ralph