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 |
|
|
Unzuverlässige If-Prüfung |
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 |
|
|
|
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:32:19 |
Views:
542 |
Rating:
|
Antwort:
|
Thema:
Unzuverlässige If-Prüfung |
Das ist auch richtig so, da die Eingabe 2,5 automatisch nach 2 abgerundet wird, ist das eine gültige Eingabe. Prüfe mit. Msgbox Quartal. Kannst du später wieder rausnehmen.
Sub InputboxOpenPdfQuartalDE()
Dim Quartal As Integer
On Error Resume Next
Quartal = InputBox("Geben Sie das Quartal ein für welches das Reporting erstellt werden soll. Bitte nur Zahlenwerte eingeben.", "Quartal festlegen")
MsgBox Quartal
If Not IsNumeric(Quartal) Or Quartal <= 0 Or Quartal > 5 Then
MsgBox "Bitte nur Zahlen zwischen 1 und 4 ohne Satzzeichen eingeben"
End
End If
On Error GoTo 0
End Sub
Und sorry für das komische Format vorhin. Einfach Code kopieren und gleich wieder einfügen geht hier wohl nicht.
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 |
|
|
Unzuverlässige If-Prüfung |
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 |
|
|
|
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 |
|
|