Thema Datum  Von Nutzer Rating
Antwort
26.01.2017 16:32:48 Baerlina
NotSolved
26.01.2017 22:47:17 Onur
NotSolved
27.01.2017 14:20:57 Gast73202
NotSolved
Blau Zeicheneingabe verhindern beim VBA - Markro Userform
 27.01.2017 14:33:18 Gast73202
NotSolved
27.01.2017 16:02:22 Gast44822
NotSolved

Ansicht des Beitrags:
Von:
Gast73202		 Datum:
27.01.2017 14:33:18		 Views:
614		 Rating:
     
Antwort:
  Ja
Thema:
Zeicheneingabe verhindern beim VBA - Markro Userform		 
Private Sub Textbox1_KeyPress()

sollte natürlich

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

lauten.

Fehler abfangen:

Ne andere Möglichkeit wäre z.B. so:

Option Explicit

Sub Example()
  
  Dim dblVal As Double
  Dim state As String
  
  On Error GoTo FixIt
  
  state = "calc{dblVal}"
  dblVal = 1 / 0
  
  state = "calc{output}"
  MsgBox (100 + dblVal) / 0
  
Exit Sub

FixIt:
  Select Case state
    Case "calc{dblVal}"
      dblVal = 1E-46 'correct value in a most proper way
      
    Case "calc{output}"
      Call MsgBox("state: '" & state & "'" & vbNewLine & _
                  "reason: " & Err.Description, _
                  vbCritical)
      Exit Sub
  End Select
  Resume Next
End Sub

Da gibts viele Wege ("saubere" wie auch "dreckige"). ;o)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.01.2017 16:32:48 Baerlina
NotSolved
26.01.2017 22:47:17 Onur
NotSolved
27.01.2017 14:20:57 Gast73202
NotSolved
Blau Zeicheneingabe verhindern beim VBA - Markro Userform
 27.01.2017 14:33:18 Gast73202
NotSolved
27.01.2017 16:02:22 Gast44822
NotSolved