---

Hi an alle,

bin ein newby was vba anbelangt und hätte ne frage.
Ich schreib grad an nen acad Programm für positionierungen, mein probelm ist nun folgendes, ich durchsuche meine acad Zeichnung nach den vorhandenen blöcken und desse Attribut "POS". Dies erfolgt nach starten einer userform1.
Jetzt erhalte ich die vorhandenen Positionen in meiner Zeichnung als einzelne Variablen.
Wie schaffe ich es nun, dass ich die Positionen ermittle welche ausgelassen oder nachträglich gelöscht wurden, zB 1, 2, und 5 sind vorhanden 3 und 4 will ich nun in ner listbox ausgeben, um sie dann wieder verwenden zu können.
Ich habs schon mit datenfeldern probiert, bin aber leider gescheitert.

wäre für jeden Ansatz und jede Hilfe dankbar.

mfg  Guido

und ein gutes neues Jahr 2005

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Guido,
hab ich zwar noch nicht gemacht, aber ich würde mir eine Vergleichroutine schreiben so etwa in der Form:
Nimm den 1. Wert der Liste und vergleiche ihn mit 1,
    wenn ungleich, dann 1 in "Liste freier Pos." sonst tue nichts
Nimm den 2. Wert der Liste und vergleiche ihn mit 2,
    wenn ungleich, dann 1 in "Liste freier Pos." sonst tue nichts

Nach dem Füllen der Liste additem kannst du den letzten Wert auslesen und als Variabel ablegen. Den Verleich kannst du also solange durchführen bis "LetzterListenWert" erreicht ist. Nuhr so...

------------------
Gruß
Harry 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, 

danke für die Antwort,  hab mir jedoch schon was zusammengereimt

für alle die es interessiert der code:
**************************************
For i = 1 To lastpos                          'lastpos gibt mir den Zahlenwert der letzten Position an
gefunden = False                              'gefunden als Boolean def
        For k = 0 To blockanzahl - 1      'Blockanzahl ist die ANzahl der vorhandenen Positionen
            If strliste(k) = i Then
            gefunden = True
            End If
        Next
If gefunden = False Then
'Hier kann man dan mit der nicht vorhandenen Zahl machen was man 'will :-)
End If
Next
***********************************

mfg

und gutes neues Jahr

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP