Hallo,
Ich habe ein Problem mit einem Array. Und zwar möchte ich eine Do...Until Anweisung solange ausführen bis mein Array beim letzten Index steht..
So weit bin ich schon:
Sub neuewoerter()
Dim words(29) As String
Dim i As Integer
Dim x As Integer
Dim lcell As String
Dim rlcell As String
Dim newword As Integer
___________
Hier würde der Array mit werten abgefüllt werden....
____________
i = 1
x = 0
With Application.ActiveWorkbook.Worksheets("PM02G")
.Activate
lcell = .Cells(Rows.Count, 3).End(xlUp).Address
rlcell = 0
Do Until rlcell = lcell
i = i + 1
Do Until
If .Cells(i, 3).Value <> words(x) Then
newword = .Cells(i, 3).Value
End If
x = x + 1
Loop
rlcell = "$C$" & i
Loop
End Sub
Es geht darum, in einer Tabelle nach Wörtern zu suchen die nicht im Array vorhanden sind. Der Code ist noch viel länger, aber es wird immer das selbe gemacht wie hier, nur in verschiedenen Zellen. Ich bräuchte einfach ein Befehl wie z.B.: Do Until words = index.last oder so etwas in der Art...
Danke für eure Hilfe...
Gruss Dominik |