Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 08:12:13
VBA - Von Word Doc in Excel Sheet schreiben
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For x to y .... Next

Forumthread: For x to y .... Next

For x to y .... Next
12.11.2003 16:57:47
Mitchell
Hallo Ihr, die Ihr alle Excel beherrscht ;-)

Ich habe eine Frage, und zwar, ob es für die For-Schleife eine Möglichkeit der Anpassung an folgendes Szenario gibt:

Normalerweise ist ja immer For x = (z.B.)1 To 25 .... Next

Ich muss aber eine For-Schleife über 8 Spalten laufen lassen, die aber nicht nebeneinander liegen. Es betrifft Spalten 1,2, 4,5, 9,10, 12,13

Da kann ich ja nicht sagen For x = 1 to 13, da nicht alle Spalten dazwischen betroffen sind.

Gibt's sowas wie For x = 1,2,4,5,9,10,12,13 .... Next
oder eine andere Art, bei der man konkrete Spalten nennen kann?!

Bin für alle Hinweise dankbar,
Mitch
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For x to y .... Next
12.11.2003 17:10:45
Mac4
Hi Mitch,

ich habe mir mal so beholfen:

Sub test()
Dim Spaltenarray
Spaltenarray = "2,4,5,6,8"
For i = 2 To 10
If InStr(1, Spaltenarray, i, 1) Then

In die Variabele Spaltenarray habe ich die Spaltennummern eingetragen, die im Makro berücksichtigt werden sollen. Mit InStr(1, Spaltenarray, i, 1) wird überprüft, ob der aktuelle Wert von i Bestandteil des Spaltenarrays ist.

Vieleicht hilft es ja.

Marc
Anzeige
Danke!!
12.11.2003 17:52:40
MItchell
Super Tipps von Euch beiden! Herzlichen Dank!!

Marc, habe Deine Lösung probiert und sie funktioniert wunderbar! Da hätt ich ja noch lange mit meiner For-Schleife suchen können...

Viele Grüße und ne schöne restliche Woche!
Mitch
AW: For x to y .... Next
12.11.2003 17:35:19
Michael Scheffler
Hier hilft es nicht, aber denke dran, es gibt noch einen Step-Parameter, damit kannst Du andere Schritte als "1" vereinbaren.

Aber Du kannst doch eine "Select Case" mit "Case Else" in Deine Schleife einbauen oder nenutz "For Each":


Sub TestSchleife()
Dim varArr()
Dim intZaehler
varArr = Array(1, 2, 4, 5, 9, 10, 12, 13)
For Each intZaehler In varArr
Debug.Print intZaehler
Next
End Sub


Gruß

Micha
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige