InputBox Error-Handling

Hallo
Wie fange ich eine fehlende oder falsche Eingabe in einer InputBox ab?
Ich habe eine InputBox in der man eine beliebige Zahl eintragen kann.
Wenn man nun auf Abbrechen klickt, oder, eine 0 oder nichts eingibt und OK klickt, meldet sich der Debugger: Typen unverträglich.
Kann das evtl. an dem angegebenen Drucker liegen, bin zu Hause und hier habe ich den Drucker nicht zur Verfügung.
Mit freundlicher Unterstützung von Onur verwende ich z.Z. folgenden Code


Private Sub CommandButton2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As  _
_
Single, ByVal y As Single)
Dim strPrinter As String
strPrinter = Application.ActivePrinter
Dim anz As Integer
anz = 1
If Button = 2 Then anz = InputBox("Anzahl?")
Application.ActivePrinter = "Zebra ZM04"
Sheets("Sticker").PrintOut From:=1, To:=1, Copies:=anz, Collate _
:=True, IgnorePrintAreas:=False
Application.ActivePrinter = strPrinter
End Sub

Viele Grüße Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As _ _ _ Single, ByVal y As Single) Dim strPrinter As String strPrinter = Application.ActivePrinter Dim anz As Integer Dim Eingabe As String anz = 1 If Button = 2 Then Eingabe = InputBox("Anzahl?") If Not IsNumeric(Eingabe) Then Exit Sub anz = CInt(Eingabe) If anz = 0 Then Exit Sub End If Application.ActivePrinter = "Zebra ZM04" Sheets("Sticker").PrintOut From:=1, To:=1, Copies:=anz, Collate _ :=True, IgnorePrintAreas:=False Application.ActivePrinter = strPrinter End Sub

Dim anz& Dim strPrinter$: strPrinter = Application.ActivePrinter If Button = 2 Then anz = Application.InputBox("Anzahl?", Type:=1) If anz >= 1 Then Sheets("Sticker").PrintOut Copies:=Int(anz), ActivePrinter:="Zebra ZM04" End If Application.ActivePrinter = strPrinter

Hallo RPP63 & Daniel
Hier die angekündigte Rückmeldung
@Daniel: Habe deinen Code ausprobiert, er funktioniert gut.
@RPP63: Habe auch deinen Code ausprobiert. Habe aber damit Probleme. Es gibt scheinbar keine Anweisung für die linke Maustaste. (Es ist ja eine MouseUp Anweisung) Linke Maustaste = 1 Ausdruck & Rechte Maustaste = Anzahl Abfrage. "From:=1, To:=1, Collate:=True, IgnorePrintAreas:=False" fehlte in deinem Code. Das habe ich versucht selbst einzufügen. From - To ist wichtig für mich weil ich diesen Code 34x verwende, jedes Mal mit einem anderen Zellbezug. Jede dieser 34 Zellen enthält eine andere Grafik, die auf Selbstklebe Etiketten ausgedruckt wird.
Vielleicht kannst du dir den Code nochmals anschauen und die Linke Maustaste noch einbauen.
Vielen Dank nochmals an euch Beide
Gruß Michael

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

InputBox Error-Handling

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread