Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.10.2019 19:54:46 |
Christian |
|
|
|
01.10.2019 20:20:21 |
xlKing |
|
|
|
01.10.2019 20:28:07 |
Christian |
|
|
|
01.10.2019 20:30:29 |
Christian |
|
|
|
01.10.2019 20:32:19 |
xlKing |
|
|
|
01.10.2019 20:42:19 |
Christian |
|
|
|
01.10.2019 20:48:13 |
xlKing |
|
|
|
01.10.2019 20:50:31 |
Christian |
|
|
|
01.10.2019 21:00:13 |
Christian |
|
|
|
01.10.2019 21:02:49 |
xlKing |
|
|
Unzuverlässige If-Prüfung |
01.10.2019 20:42:10 |
xlKing |
|
|
|
01.10.2019 20:50:58 |
Christian |
|
|
|
01.10.2019 20:56:59 |
Christian |
|
|
|
01.10.2019 21:04:15 |
xlKing |
|
|
|
01.10.2019 21:10:16 |
Christian |
|
|
Von:
xlKing |
Datum:
01.10.2019 20:42:10 |
Views:
557 |
Rating:
|
Antwort:
|
Thema:
Unzuverlässige If-Prüfung |
Wenn du die Fehlermeldung auch bei 2,5 sehen willst, kannst du die Längeneingabe prüfen. Wie wärs damit?
Sub InputboxOpenPdfQuartalDE()
Dim Quartal As Integer
On Error Resume Next
Eingabe = InputBox("Geben Sie das Quartal ein für welches das Reporting erstellt werden soll. Bitte nur Zahlenwerte eingeben.", "Quartal festlegen")
Quartal = Eingabe
If Not IsNumeric(Quartal) Or Quartal <= 0 Or Quartal > 5 Or Len(Eingabe) > 1 Then
MsgBox "Bitte nur Zahlen zwischen 1 und 4 ohne Satzzeichen eingeben"
End
End If
On Error GoTo 0
End Sub
Endlich wird der Code richtig dargestellt :-)
Gruß Mr. K.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
01.10.2019 19:54:46 |
Christian |
|
|
|
01.10.2019 20:20:21 |
xlKing |
|
|
|
01.10.2019 20:28:07 |
Christian |
|
|
|
01.10.2019 20:30:29 |
Christian |
|
|
|
01.10.2019 20:32:19 |
xlKing |
|
|
|
01.10.2019 20:42:19 |
Christian |
|
|
|
01.10.2019 20:48:13 |
xlKing |
|
|
|
01.10.2019 20:50:31 |
Christian |
|
|
|
01.10.2019 21:00:13 |
Christian |
|
|
|
01.10.2019 21:02:49 |
xlKing |
|
|
Unzuverlässige If-Prüfung |
01.10.2019 20:42:10 |
xlKing |
|
|
|
01.10.2019 20:50:58 |
Christian |
|
|
|
01.10.2019 20:56:59 |
Christian |
|
|
|
01.10.2019 21:04:15 |
xlKing |
|
|
|
01.10.2019 21:10:16 |
Christian |
|
|