Thema Datum  Von Nutzer Rating
Antwort
Rot Select Case und IF then else
30.06.2014 13:59:55 Frank
NotSolved

Ansicht des Beitrags:
Von:
Frank
Datum:
30.06.2014 13:59:55
Views:
1045
Rating: Antwort:
  Ja
Thema:
Select Case und IF then else

Hallo Leute,

ich bin noch VBA Anfänger und habe gerade ein mir unerklärliches Phänomän vor mir :-)

Ich habe versucht den selben Code einmal mit der Methode select case und einmal mit einer if then else Anweisung zu schreiben.

Jedoch bekomme ich unterschiedliche Ergebnisse.

Hier die select case Lösung:

        If (strFrom <= strTime) And (strTime < strTo) Then
            Select Case Status
            Case "eingeschränkt verfügbar", "Leerlauf"
                    dblMin = Cells(Row, ColumnStatus + 5)
                    dblMax = Cells(Row, ColumnStatus + 6)
            Case "nicht bereit"
                    dblMin = 0
                    dblMax = 0
            Case "in planung"
                    dblMin = 1
                    dblMax = 1
            End Select

	End if

Und hier die Lösung mit If then else

       If (strFrom <= strTime) And (strTime < strTo) And Status = "eingeschränkt verfügbar" Then
                dblMin = Cells(Row, ColumnStatus + 5)
                dblMax = Cells(Row, ColumnStatus + 6)
        ElseIf (strFrom <= strTime) And (strTime < strTo) And Status = "Leerlauf" Then
                dblMin = Cells(Row, ColumnStatus + 5)
                dblMax = Cells(Row, ColumnStatus + 6)
        ElseIf (strFrom <= strTime) And (strTime < strTo) And Status = "nicht bereit" Then
                dblMin = 0
                dblMax = 0
        ElseIf (strFrom <= strTime) And (strTime < strTo) And Status = "in planung" Then
                dblMin = 1
                dblMax = 1
End if

 

Der Code it der Select Case Lösung liefert das richtige Ergebniss.

Habe ich da irgendetwas falsch gemacht?

LG Frank


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
Rot Select Case und IF then else
30.06.2014 13:59:55 Frank
NotSolved