Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variablentypen

Forumthread: Variablentypen

Variablentypen
17.03.2005 14:26:10
Rolf
Hi Forum,
Wieder mal das leidige Variablen Thema:
Per Input-Box wird Variable A bstimmt.
Nun soll folgendes Geprüft werden:
1. Wenn Eingabe Leer, dann wiederholen (Bereits gelöst mit Goto)
2. Wenn Eingabe einer Zahl dann wiederholen (Noch nicht gelöst, wie geht das?)
3. Eingabe muss zwischen 1 und 500 liegen (Noch nicht gelöst, wie geht das?)
Danke für eure Tipps!
Rolf
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variablentypen
17.03.2005 14:41:25
Boris
Hi Rolf,
Option Explicit

Sub test()
Dim A As Integer
Do
A = Application.InputBox("Bitte Zahl zwischen 1 und 500 eingeben", "Eingabe", Type:=1)
Loop Until A = Int(A) And A > 0 And A < 501
End Sub

Wobei ich eigentlich die Abbruchbedingung über die Schaltfläche noch zulassen würde.
Grüße Boris
Anzeige
AW: Variablentypen
17.03.2005 14:42:14
Nepumuk
Hallo Rolf,
so geht's:


Public Sub test()
    Dim varInput As Variant
    Do
        varInput = Application.InputBox("Wert eingeben.", "Eingabe", Type:=1)
        If VarType(varInput) = 11 And CBool(varInput) = False Then Exit Sub 'Abbrechen gedrückt
        If varInput >= 1 And varInput <= 500 Then Exit Do
        MsgBox "Der Wert muss zwischen 1 und 500 liegen.", 48, "Hinweis"
    Loop
    MsgBox "Jaaaa", 64, "Information"
End Sub


Gruß
Nepumuk
Anzeige
An alle: Vielen Dank, hat geklappt!
17.03.2005 21:04:23
Rolf
.
AW: Variablentypen
17.03.2005 14:44:00
Frank
Hallo Rolf,
anbei ein Lösungsvorschlag:

Sub Eingabe()
Dim strVar As String
Dim intVar As Integer
Do While True
strVar = InputBox("Bitte geben Sie eine Zahl zwischen 1 und 500 ein!", "Eingabe", strVar)
If Len(strVar) = 0 Then
MsgBox "Eingabe leer!", vbInformation
Else
On Error Resume Next
intVar = CInt(strVar)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Bitte nur Ziffern verwenden!", vbInformation
ElseIf intVar < 1 Or intVar > 500 Then
MsgBox "Falscher Bereich!", vbInformation
Else
Exit Do
End If
End If
Loop
End Sub

Viel Erfolg
Frank.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige