Office: Select Case statt mehrere IF Anweisungen?

Hallo,

kann man folgenden Code mit einer Select Case Anweisung darstellen? Weil noch mehrere If Bedingungen hinzu kommen.

Code:

    Do While DatIn.AtEndOfStream <> True
        lngZeile = lngZeile + 1
        strTxt = DatIn.ReadLine
        
          If Left(strTxt, 4) <> "----" Then
               If InStr(strTxt, "Druckliste") = 0 Then
                    lngRow = lngRow + 1
                    Worksheets(i).Cells(lngRow - (i - 1) * 1048576, lngCol) = strTxt
               End If
        End If
    Loop

Ich benutze Excel 2010

Danke

 

Hallo,

eine "SELECT CASE"-Anweisung ist dann ideal, wenn man einen Ausdruck (numerisch oder Text) nach mehreren Werten oder Wertebereichen auswerten möchte, wobei aufgrund dieser verschiedenen Werte oder Wertebereiche unterschiedliche Anweisungen auszuführen sind, zB.

Code:

   Select Case Left(strTxt,4)
      Case "Bert", "Dora" To "Frie"
            'Hier folgt Anweisungsliste1, falls die ersten 4 Zeichen von strTxt entweder "Bert..." sind oder aber zwischen "Dora..." und "Frie..." liegen
      Case Is > "Mama"
            'Hier folgt Anweisungsliste2, falls die ersten 4 Zeichen von strTxt nach "Mama....." liegen
      Case Else
            'Hier folgt die alternative Anweisungsliste, falls keiner der beiden vorherigen Fälle auf Left(strTxt,4) zutrifft.
   End Select

Dagegen ist man bei einer IF/ELSEIF/ELSE-Abfrage bezüglich der Testabfragen völlig frei. Hier zB. die mehrzeilige Variante:

Code:

   IF Test1 THEN
       'Anweisungsliste1....
   ELSEIF Test2 THEN
       'Anweisungsliste2....
   ELSEIF Test3 THEN
       'Anweisungsliste3....
   ELSE
       'Anweisungsliste-Alternative ....
   END IF

oder hier die einzeilige Variante:

Code:

   IF Test1 THEN IF Test2 THEN Anweisungen2 ELSE Anweisungen2-Alternative ELSE Anweisung1-Alternative 

 

Danke!