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

Ansicht des Beitrags:
Von:
frau		 Datum:
24.03.2014 21:33:11		 Views:
978		 Rating:
     
Antwort:
  Ja
Thema:
Select Case

Was mache ich falsch?

Mein lieber Jörg,

das wurde dir doch schon im obigen Gastbeitrag aufgezeigt

 (Dima AsDouble, b AsDouble)

 

Zum besseren Verständnis :

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Dim anzMpStart
Sub test()
Dim gewM As Single, gewaW As Single, a As Single, b As Single
Dim k As Integer
  
' gewM = 2,3  SYNTAXFEHLER
' gewaW = 3,45
 
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
     
    MsgBox CDbl(a) & " zu " & CDbl(b) 'because Excel stores numbers using double-precision
             
    'a As Single, b As Single - so convert it to  single precision
             
    Select Case Round(a, 5)
        Case Is > Round(b, 5)
            anzMpStart = k - 1
        Case Is = Round(b, 5)
            anzMpStart = InputBox("per Hand zählen!" & Chr(13) & "Und hier eingeben")
        Case Is < Round(b, 5)
            anzMpStart = k
    End Select
End Sub

 

 

Es seit jeher eine gute Sitte Variable zu deklarieren, aber so sparsam war ich, als meine erste Kiste noch schlappe 128 MB Hauptspeicher hatte ;)

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:
WYSIWYG-Editor, ctl00_Content_editor1



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