| Von |
dom |
| Am |
04. Juli 2008 um 09:38:34 |
| Frage |
hallo VB-Profis,
Ich habe eine Liste und möchte prüfen, ob der Inhalt einer Zelle mit einem Element der Liste übereinstimmt.
mit folgendem Code läßt sich überprüfen, ob eine zelle ein Element aus einem Array enthält For i = 1 To ende Step 1
For iv = 0 To UBound(picklist)
If Cells(25 + i, 0 + j).Value = picklist(iv) Then gefunden = 1
If Not Cells(19, j).Value = 1 Then 'Falls required = 1
If Cells(25 + i, 0 + j).Value = "" Then gefunden = 1
End If
Next iv
If Not gefunden = 1 Then
Worksheets(1).Cells(25 + i, 0 + j).Interior.ColorIndex = 4
BereitsGefüllt = True
Anzahlfehler = Anzahlfehler + 1
End If
gefunden = 0
Next i Ich habe allerdings keinen Array, sondern nur eine Stringvariable der ich mit einem Leerzeichen " " als Trennzeichen, die einzelnen Listenelemente angehängt habe.
wie muss ich den Code abwandeln, wenn ich anstatt des Arrays picklist nur einen String picklist habe?
Danke schonmal |
|
Zum Seitenanfang