select case anweisung verändern
02.08.2006 07:30:50
chris b
ich habe ein Problem und komme nicht weiter.Hoffe wiedre einmal auf eure Hilfe.
Ich habe eine select case anweisung in meinem Code(siehe unten)
ich möchte nun gerne diese um bauen so das ich nach dem case nicht die nummern habe sondern diese nummern "4700600700", "4710603200" stehen in einer Zelle nebeneinander.
es müsste also verglichen werden ob der wert in der zelle gleich mit dem wert in cells(x,3) ist.
So ist der code:
Select Case Cells(x, 3)
Case "4700600700", "4710603200"
Case Else
Rows(x).Delete
End Select
so in etwa stell ich mir vor das er sein soll klappt aber nicht.
Select Case Cells(x, 3)
Case like *cells(5,1)*
Case Else
Rows(x).Delete
End Select
Vielen dank für eure Hilfe Christian