Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
136to140
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
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rechnen mit VBA

Rechnen mit VBA
19.07.2002 08:29:47
Berti
Hi,

hab folgendes Problem:

Es werden in die TextBox1 (in einer UserForm) verschiedene Werte eingegeben. Wird in die TextBox1 ein Wert zwichen 100 und 199 eingegeben, soll in der TextBox2 der Wert "1" ausgegeben werden. Ist der eingebene Wert zwischen 200 und 499 dann soll in TextBox2 der Wert "2" stehen, ist der Wert zwischen 500 und 799 dann Wert in TextBox2 "3" usw.

Hab schon mit =, < und > rumprobiert aber das richtige Ergebnis kommt nicht raus.

Danke für Eure Mühe

Gruss

Berti

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Rechnen mit VBA
19.07.2002 08:43:32
Hans W Hofmann
Select Case Textbox1.value
Case <100
Case <200
Textbox2.value=1
Case <500

...
End Select

Gruß HW


Re: Rechnen mit VBA
19.07.2002 08:44:48
Versuchs mal damit:

Sub rechenen()
Dim x%, z%

z = InputBox("Geben sie einen Wert ein:")
If z < 200 Then
x = 2
ElseIf z < 500 Then
x = 3
ElseIf z < 800 Then
x = 4
End If
MsgBox (x)
End Sub

Re: Rechnen mit VBA
19.07.2002 08:47:27
Hans W. Herber
Hallo Berti,

TextBox-Einträge sind grundsätzlich Texte. Wandle die Texte um, z.B.:

hans

Re: Rechnen mit VBA
19.07.2002 08:47:46
Griasch di

Falls du ein fixes Intervall hast:
(du kannst natürlich inputbox, durch einen Zellenzuweisung ersetzen):

Sub rechenen()
Dim x%, y%, z$

z = InputBox("Geben sie einen Wert ein:")
y = 200
x = 2
Do
If z < y Then Exit Do
x = x + 1
y = y + 300
Loop
MsgBox (x)
End Sub

Anzeige
so jetzt aber
19.07.2002 09:01:11
Griasch di

Dim x%, y%, z%
z = CDbl(TextBox1.Text)
y = 200
x = 2
Do
If z < y Then Exit Do
x = x + 1
y = y + 300
Loop
TextBox2.Text = x

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige