VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Select Case	24.03.2014 17:49:17	jörg
Select Case	24.03.2014 18:25:47	Gast53381
Select Case	24.03.2014 20:19:27	jörg
Select Case	24.03.2014 21:33:11	frau

Ansicht des Beitrags:

Von:
jörg

Datum:
24.03.2014 20:19:27

Views:
854

Rating:

Antwort:

Thema:
Select Case

Hallo, ich habe eine Frage zu Select Case.

Dim gewM as single, gewaW as single, a as single, b as single
Dim k as integer

gewM = 2,3
gewaW = 3,45
    
    k = 0
    Do Until (k * gewM >= gewaW)
        k = k + 1
    Loop
    a = k * gewM - gewaW
    b = gewaW - (k - 1) * gewM
       
    Select Case a
        Case Is > b
            anzMpStart = k - 1
        Case Is = b
            anzMpStart = InputBox("per Hand zählen!" & Chr(13) & "Und hier eingeben")
        Case Is < b
            anzMpStart = k
    End Select

Meine Frage ist:
Für k ergibt sich der Wert 2 und für a und b der Wert 1,15. Trotzdem springt das Programm in
den 3. Zweig (a<b) der Select case-anweisung und nicht wie gedacht in den 2. Zweig (a=b).
Was mache ich falsch?

Vielen Dank für die Hilfe im Vorraus!!

Ihre Antwort

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:		Name:		Email:

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
Select Case	24.03.2014 17:49:17	jörg
Select Case	24.03.2014 18:25:47	Gast53381
Select Case	24.03.2014 20:19:27	jörg
Select Case	24.03.2014 21:33:11	frau