Das Archiv des Excel-Forums

for each ... und Gruppe (mehrere Elem durchlaufen)

Bild

Betrifft: for each ... und Gruppe (mehrere Elem durchlaufen)
von: Silvia

Geschrieben am: 10.10.2003 17:53:40

Liebe Leute

in der Hilfe für for each steht folgendes:

For Each Element In Gruppe
[Anweisungen]
[Exit For]
[Anweisungen]
Next [Element]

Ich habe mir gedacht damit kann man auch folgendes machen:
Ich will mit einigen unterschiedlichen Strings eine ganze Reihe von Anweisungen durchlaufen.
Kann ich die einzelnen Strings in einen Array oder so was reinschreiben und dann:

for each einzelnerString in meinArray
...
next einzelnerString

Wie kann ich so einen Array füllen, wie muss ich ihn definieren?

lg und danke für evtl Antworten
Silvia

Bild


Betrifft: AW: for each ... und Gruppe (mehrere Elem durchlaufen)
von: Michael Scheffler
Geschrieben am: 10.10.2003 18:02:19

Hallo,

sdas ist eher nicht empehlenswert. "For Each" gilt für Aufzählungen. Für Arrys benutzt man "For Next"-Schleifen.

Ein Array kannst Du so erzeugen.

Option Explicit
Option Base 1

Dim strArr(10) As String

strArr(1) = "Eins"
...
strArr(10) = "Zehn"

Oder varianr - empfiehlt sich nur dann, wenn man nicht weiß, wie viel Elemente es werden können.

Dim varTest

vartest = Array("Eins",..., "Zehn")

Gruß

Micha


Bild


Betrifft: AW: for each ... und Gruppe (mehrere Elem durchlaufen)
von: Silvia
Geschrieben am: 10.10.2003 18:10:41

Vielen Dank Micha,

und wie funktioniert das mit Aufzählungen? Ich bin nämlich nicht sicher, was ich genau brauche.
Ich habe eigentlich nur vier vorgegebene Strings und will jeden String ein paar Anweisungen durchlaufen lassen.
kann ich das vielleicht ganz einfach so machen:?

for each i in ("a", "b", "c", "d")
....
next i

lg und danke noch mal
Silvia


Bild


Betrifft: AW: for each ... und Gruppe (mehrere Elem durchlaufen)
von: Michael Scheffler
Geschrieben am: 11.10.2003 10:21:36

Option Explicit

Sub test()
Dim strVar As Variant
Dim arrStr()
arrStr = Array("a", "b", "c", "d")
For Each strVar In arrStr
Debug.Print strVar
Next strVar
End Sub



 Bild

Excel-Beispiele zum Thema " for each ... und Gruppe (mehrere Elem durchlaufen)"

IP-Nummern nach Gruppen sortieren download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download
Zelleingaben in Gruppen von 5 Zeichen aufteilen download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nummerngruppe prüfen und melden download Tabelle nach Gruppen aufteilen download
Namen nach dem Zufallsprinzip in variable Gruppen aufteilen download Bildergruppe in anderes Blatt kopieren download
Tabelle in neue Blätter nach Gruppen aufteilen. download Datensatz alle 10 Sekunden gruppenweise eintragen. download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Gruppenüberschriften in Nebenspalten übertragen download
Zeitspann in Zeitgruppen aufteilen download Werte von OptionButtons aus 2 Gruppen auslesen download
Tabelle gem. Baugruppenbezeichnungen summieren download Suche über mehrere Tabellen download
Mehrere Schaltflächen für ein Makro download Suchbegriff über mehrere Tabellenblätter suchen. download
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download Druck aus mehreren Tabellenblättern auf eine Druckseite download
AutoFilter über mehrere Arbeitsblätter setzen download Daten von mehreren Blättern auf ein Druckblatt download
Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg download Werte in mehreren Spalten sortieren download
Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen download Den selben Bereichsnamen in mehreren Tabellenblättern download
Tabelle nach mehreren Kriterien summieren download SVERWEIS-Formel über mehrere Fundstellen download
Wert aus A1 in mehrere Zellen übernehmen download Mehrere Arbeitsmappen per Outlook an einen Empfänger download
In mehrere Spalten doppelte Inhalte entfernen download Programmsteuerung für mehrere aufrufende UserForms download
Mehrere Tabellenblattbereich unabhängig voneinander sortieren download Redimensionierung eines Arrays über mehrere Dimensionen download
SUMMEWENN-Funktion über mehrere Tabellenblätter download Aktivieren mehrerer CheckBoxes unterbinden download
Aufteilen einer Tabelle auf mehrere Arbeitsblätter download SummeWenn-Summierung über mehrere Blätter download
Auswahl von Zellen in mehreren Zeilen verhinden download Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen download
Benannte Bereich aus mehreren Arbeitsmappen importieren download Variablen auf mehrere Arten in Funktionen integrieren download
Filtern über VBA nach mehreren Kriterien download Kosten nach mehreren Kriterien erfassen download
Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen download