Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige