Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

For Each Next (position in loop gesucht)

For Each Next (position in loop gesucht)
10.12.2002 16:04:28
Marc E.
Hallo Leute,

Frage von jemandem, ders nie sauber gelernt hat (höhö):

Hab ne For next schlaufe und möchte die indexnummer haben, die gerade durchlaufen wird, z.b:

for each element in myelements()
debug.print element.index ' => lbound(myelements()) to ubound(..)
next element

was gibts sonst noch für eigenschaften für dieses objekt?

danke vielmals!
marc

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: For Each Next (position in loop gesucht)
10.12.2002 16:39:01
Michael Scheffler
Häh? Wer ist myelements()? Die Eigenschaften und Methoden Deiner Objekte hängen doch davon ab, was es ist (UserForms, Tabellen etc.)

Gruß

Micha

Re: For Each Next (position in loop gesucht)
10.12.2002 17:12:13
Marc E.
myelements() ist in meinem fall ein string-array

bsp:

dim myelements(5) as string

myelements(1)="Hans"
myelements(n)="Fritz"

for each element in myelements()
debug.print element
next element

ergibt:

hans
...
fritz

wenn ich jetzt jedoch z.b. nach dem 3. element abbrechen will würde ich folgende codezeile einbauen wollen:

if element.??? =3 then exit for

ja, ist nur ein beispiel, klar kann ich auch ne for..next..to schleife machen. ich will nur die von vba automatisch zugeteilte durchlaufnummer erfahren.

thanks pal!
marc

Anzeige
Re: For Each Next (position in loop gesucht)
10.12.2002 17:31:31
Thomas Risi
Hallo Marc

Versuch's mal etwa so ...


Option Explicit

Sub Demo()
    
    Dim myelements(5) As String
    Dim i As Long
    
    myelements(1) = "Hans"
    .
    .
    myelements(n) = "Fritz"

    For i = LBound(myelements) To UBound(myelements)
        Debug.Print myelements(i)
        If i >= 3 Then Exit For
    Next i
    
End Sub
 

     Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung


Anzeige
Re: For Each Next (position in loop gesucht)
10.12.2002 17:38:28
Marc E.
Danke, prob ist, ich würd doch so gerne wissen, wie das gleiche mit einer for EACH - schlaufe aussehen könnte. es war nur ein beispiel, das natuerlich auf diese weise leicht zu lösen ist, ich suche jedoch genau das:

for each element in myelements()
debug.print element.index ' => lbound(myelements()) to ubound(..)
next element

wobei mir die eigenschaft index die momentane laufnummer liefern soll. nur index gibts nicht und das online-help ist auch keine hilfe :(

geht das nicht?

Re: For Each Next (position in loop gesucht)
10.12.2002 19:03:34
Hans W. Hofmann
Hallo Marc,

der Trick bei
For each ist
ja gerade, dass man keinen Index braucht.
PS: Es hindert dich aber kein Mensch einen Index mitlaufen zulassen, was aber ziemlich Gaga ist, oder?
WEnn man einen Index braucht, dann
For i=a to b


Gruß HW

Anzeige
Re: For Each Next (position in loop gesucht)
11.12.2002 16:36:52
Marc
okay, ich sehs ja ein.

152 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige