. NUR
Das Forum wird bald geschlossen
Das ehemalige andere Excel Forum
. .
Excel Jeanie Html

About 10B + 1 R Fragen Wie Fragen? 10B + 1 R Antworten Hilfe !!! DOWNLOADS Links 
Nicht eingeloggt :   Einloggen  Noch keinen Benutzernamen :   Benutzernamen beantragen  Passwort vergessen :   Neues Passwort
Forum <> Neues Thema <> Suche <> Mods

 
Select Case mit zusätzlicher Case - Bedingung
Von:  kaben06  Am: 06.01.2017 19:12:53
Excel 2003 - Lösung bitte nur mit Makro(VBA) - vielen Dank
Hallo ins Forum,

Allen Lesern ein gutes, neues Jahr...

in einer Select Case Anweisung das Case mit einer zusätzlichen Bedingung
In der Hilfe habe ich dazu nichts gefunden,
ist dies möglich, wenn ja, wie muss der richtige Syntax sein, dass es auch bei by = 0 richtig funzt?
(in meiner Anwendung stehen an Case n And unterschiedliche Variablen)

Vielen Dank für's Lesen und Nachdenken schon mal im Voraus
Gruß kaben

Rem Beispiel
Sub UP_start()
    Dim i As Byte
    For i = 0 To 9
        select_case i, False
        select_case i, True
    Next
End Sub

Rem *** Select Case mit zusätzlicher Case - Bedingung
Sub select_case(ByVal by As Byte, ByVal b As Boolean)
    Dim s As String: s = by & " nein"
    Select Case by
        Case 0 And b: s = "0 ja" 'Case (0 And b) ist das gleiche
        Case 1 And b: s = "1 ja"
        Case 2 And b: s = "2 ja"
        Case 3 And b: s = "3 ja"
        Case 4 And b: s = "4 ja"
        Case 5 And b: s = "5 ja"
        Case 6 And b: s = "6 ja"
        Case 7 And b: s = "7 ja"
        Case 8 And b: s = "8 ja"
        Case 9 And b: s = "9 ja"
    End Select
    Debug.Print "Rem " & by & " " & b & IIf(b, "   > ", " > ") & s
    Rem 0 Falsch > 0 ja
    Rem 0 Wahr   > 0 ja
    Rem 1 Falsch > 1 nein
    Rem 1 Wahr   > 1 ja
    Rem 2 Falsch > 2 nein
    Rem 2 Wahr   > 2 ja
    Rem 3 Falsch > 3 nein
    Rem 3 Wahr   > 3 ja
    Rem 4 Falsch > 4 nein
    Rem 4 Wahr   > 4 ja
    Rem 5 Falsch > 5 nein
    Rem 5 Wahr   > 5 ja
    Rem 6 Falsch > 6 nein
    Rem 6 Wahr   > 6 ja
    Rem 7 Falsch > 7 nein
    Rem 7 Wahr   > 7 ja
    Rem 8 Falsch > 8 nein
    Rem 8 Wahr   > 8 ja
    Rem 9 Falsch > 9 nein
    Rem 9 Wahr   > 9 ja
End Sub

   Antworten  +++  Forum 
Excel verstehen bei: Online-Excel Zum Beispiel: Zeilenformatierung - Bedingte Formatierung (aus Excel Standard)



Alle Lesen


Alle Lesen

Forum <> Neues Thema <> Suche <> Mods


Impressum: Impressum - Datenschutz - Forumstechnik: Peter Haserodt - Farbgestaltung: Uwe Küstner
Alle innerhalb des Forums genannten und ggf. durch Dritte geschützten Marken- und Warenzeichen unterliegen uneingeschränkt den Besitzrechten der jeweiligen eingetragenen Eigentümer Alle Beiträge stammen von dritten Personen u. dürfen geltendes Recht nicht verletzen.