code optimieren
dennis
ich habe in a1 eine liste mit diversen alphanumerischen zeichenfolgen.
nun will ich bei einigen zeichenfolgen in der spalte b eine 1 setzen.
bisher löse ich es so:
Sub test()
Do
If Cells(j, 1) Like "ABC *" Then
Cells(j, 2) = 1
GoTo ocl1
End If
If Cells(j, 1) Like "* AB1 *" Then
Cells(j, 2) = 1
GoTo ocl1
End If
If Cells(j, 1) Like "* CG2 *" Then
Cells(j, 2) = 1
GoTo ocl1
End If
If Cells(j, 1) Like "EHH *" Then
Cells(j, 2) = 1
GoTo ocl1
End If
ocl1:
j=j+1
Loop
End Sub
nun meine genaue frage:
ich teste ja immer nur die aktuelle zelle und vergleiche, ob diese zelle eine bestimmte zeichenfolge enthält. dieser code ist allerdings nur ein kleiner ausschnitt. im kompletten code muss ich ca. 40 vergleiche machen. ihr könnt euch vorstellen, wie lang diese IF.... END IF sachen dann werden.
daher wollte ich wissen, ob ich es irgendwie schaffen kann, dass ich die zu vergleichenden zeichenfolgen vorher definieren kann, und diese dann einzeln in einer schleife abgearbeitet werden, so dass ich nicht für jede zeichenfolge ein neues IF.... END IF benutzen muss.
geht das ? vielen dank für eure tipps !!!
schönes wochenende,
dennis