Thema Datum  Von Nutzer Rating
Antwort
Rot Array
02.11.2010 09:09:55 Dominik
NotSolved
02.11.2010 15:17:05 Dominik
NotSolved

Ansicht des Beitrags:
Von:
Dominik
Datum:
02.11.2010 09:09:55
Views:
1622
Rating: Antwort:
  Ja
Thema:
Array
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Array
02.11.2010 09:09:55 Dominik
NotSolved
02.11.2010 15:17:05 Dominik
NotSolved