Office: Select Case Problem (weitere Bedingung einfügen)

Dosenkohl · 22. November 2011

Hallo VBA Gemeinde,
Ich habe ein Problem einer "Select Case" Anweisung eine weitere Bedingung hinzuzufügen. Folgender Code bezweckt das bei aktivieren dieses Optionsbutton eine Listbox nur mit bestimmten Werten gefüllt wird. Im Moment wird also geprüft ob die Worte ("Fleischer", "Altersheim"....) in der 3.Spalte der Listbox stehen und wenn ja sollen diese Zeilen nicht mit angezeigt werden.
Code:

Private Sub OptionButton7_Click()
Dim intArZle As Integer
Dim intZeile As Integer

ListBox1.Clear
For intArZle = LBound(arrWerte) To UBound(arrWerte)
Select Case arrWerte(intArZle, 3)
Case "Fleischer", "Altersheim", "Bäckerei", "Hotel", "Cafe", "Gaststätte"

Case Else
With ListBox1
.AddItem ""
.List(intZeile, 0) = arrWerte(intArZle, 1)
intZeile = intZeile + 1
End With
End Select
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun muss aber noch die 4.Spalte der Listbox mit einbezogen werden.
Code:

Select Case arrWerte(intArZle, 4)
Case "AWO", "Cultus...."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn ich die Codes getrennt ablaufen lasse funktioniert es ja.
Eine "For-Schleife" habe ich auch schon probiert aber da hat er mir auch nur die 3 Spalte ausgewertet.
Kann man nun mehrere Select Case kompinieren?

Ich wäre für eine kleine Hilfe Dankbar
Gruß Sepp

:)

Rudi Maintaire · 24. November 2011

Hallo,
die Select Case kannst du schachteln.
Code:

Private Sub OptionButton7_Click()
Dim intArZle As Integer
Dim intZeile As Integer

ListBox1.Clear
For intArZle = LBound(arrWerte) To UBound(arrWerte)
Select Case arrWerte(intArZle, 4)
Case "AWO", "Cultus...."
'nix
Case Else
Select Case arrWerte(intArZle, 3)
Case "Fleischer", "Altersheim", "Bäckerei", "Hotel", "Cafe", "Gaststätte"
'nix
Case Else
With ListBox1
.AddItem ""
.List(intZeile, 0) = arrWerte(intArZle, 1)
intZeile = intZeile + 1
End With
End Select
End Select
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Rudi

Dosenkohl · 24. November 2011

Hallo,
es funktioniert!
besten Dank.

Office: Select Case Problem (weitere Bedingung einfügen)

Select Case Problem (weitere Bedingung einfügen)

Select Case Problem (weitere Bedingung einfügen)

Select Case Problem (weitere Bedingung einfügen) - Similar Threads - Select Case Problem

select Case mehrere Bedingungen ??

Instr() und select case

Select Case mit mehreren Bedingungen?

Select Case statt mehrere IF Anweisungen?

Select Case Abfrage

vba Zeilenhöhe und breite, Format ändern in select case sche

Dropdown / SVerweis / Select Case?