Platzhalter
30.07.2008 17:30:00
leander
Wie wird in diesem Code ein Platzhalter
hinter den Wert Aus gesetzt. Ich will nach Aus* oder Aus- oder Aus+ suchen
damit ich nicht alle Varianten schreiben muß suche ich nach Platzhaltern
Die gleichen Varianten gibt es für Bieg oder auch SW_Mig
Application.ScreenUpdating = False
For o = 1 To Cells(65536, 1).End(xlUp).Row
Select Case Cells(o, 11)
Case "Bieg?", "Sw_Mig", "Punkt_Sw", "Aus"
Cells(o, 10) = "BV"
Case "Board"
Cells(o, 10) = "Mo"
Case "PA_An"
Cells(o, 10) = "PA"
End Select
Next o
Application.ScreenUpdating = True