Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FOR x=1 to 10, x=15 to 20 ... geht so ettwas?

Forumthread: FOR x=1 to 10, x=15 to 20 ... geht so ettwas?

FOR x=1 to 10, x=15 to 20 ... geht so ettwas?
24.09.2002 16:05:13
beckersbest
Hallo Excel-Experten,

nur eine kurze Frage, ist eine 'gebündelte' FOR-Schleife der Art:

FOR x=1 to 10, x=15 to 20 ...

(sinngemäß) möglich?

Vielen Dank für die Antwort(en)

Gruß
Thorsten

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: FOR x=1 to 10, x=15 to 20 ... geht so ettwas?
24.09.2002 16:12:35
Boris
Hallo Thorsten,

so nicht.

Du kannst Schleifen verschachteln wie:
For x = 1 to 10
For y = 15 to 20
bla bla
next y
next x

Gruß Boris

hab's mir fast gedacht ...
24.09.2002 16:16:02
beckersbest
Hallo Boris,

hab mir fast gedacht, dass sich das so nicht machen lässt, verschachteln hilft hier leider auch nicht weiter, dennoch danke für die Antwort.

Gruß und schönen Abend
Thorsten

Anzeige
Re: FOR x=1 to 10, x=15 to 20 ... geht so ettwas?
24.09.2002 16:24:48
Martin Beck
Hallo Thorsten,

es geht, wenn man FOR-NEXT und IF verbindet, z.B.

Nachteil: bei vielen Lücken wird die IF-Bedingung unübersichtlich.

Alternative: die gewünschten Werte (hier:1-10, 15-20) zunächst in einen Array (hier der "Länge" 16) einlesen und dann die Schleife über die Array-Elemente laufen lassen

Nachteil: Du mußt 2 Schleifen durchlaufen und die Eingabe der Werte kann aufwendig sein.

Gruß
Martin Beck

Anzeige
Re: FOR x=1 to 10, x=15 to 20 ... geht so ettwas?
24.09.2002 16:56:12
Axel
Hallo,

oder die Alternative über when gehen

Falls es mehrere "Lücken" gibt kann ein "select case"-Statement verwendet werden, um den Laufindex zu setzen.

Gruß
Axel

Gute Ideen! Danke!
24.09.2002 17:00:09
beckersbest
Hallo,

die Sache mit dem Laufindex oder die IF-Lösung werde ich mir noch einmal genauer anschauen, hört sich für mein Problem gut an. Danke!

Gruß
Thorsten

Anzeige

Forumthreads zu verwandten Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
ComboBox 1 = ComboBox 2
mtremer

Hallo Excel-Freunde,
wie kann man die 2. ComboBox so programmieren, dass sie anfangs die gleichen Auswal wie die 1. Combobox anzeigt?
Wenn also die 1. "a" zeigt, soll die 2. auch "a" zeigen.
Die 2. soll aber auch weiterhin einstellbar sein. Man soll auch in der 2. "b" auswählen kön...
09.10.2008 14:33:00
Thread-ID: 1015355
5 Beiträge
combobox füllen durch textbox
kirsche

hallo leute,
ich stehe mal wieder vor einem problem und hoffe auf eure hilfe.
ich habe eine tabelle(artikelstamm) mit ca. 2000 einträgen. in spalte L steht die PLU, welche bei einigen artikeln gleich ist. außerdem habe ich eine userform mit einer textbox und combobox.
in die textb...
17.11.2008 13:46:00
Thread-ID: 1025207
6 Beiträge
Anzeige
checkboxen durchzählen: Syntax?
Jörg

Guten Abend oder guten Morgen...
simples Problem - ich weiß nur nicht, wie man das schreibt...
man kann doch alles mögliche durchzählen - Beispiel:
for i = 2 to 5
if irgendwas then range("Zelle" & i).irgendwas
wie geht denn das bei Checkboxen?
wenn ich z.B. schreibe...
18.03.2009 00:58:30
Thread-ID: 1061245
5 Beiträge
Anzeige
Checkboxen durchzählen
Jörg

Guten Abend, Gemeinde
mein Problem von vor einigen Tagen ist noch ungelöst - hab die Beispieldatei noch etwas modifiziert
https://www.herber.de/bbs/user/60530.xls
Es geht "ganz einfach" um die Frage, wie ich für eine For-next-Schleife, an der mehrere Checkboxen beteiligt sind, den...
20.03.2009 22:12:51
Thread-ID: 1062387
9 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Excel Formel durch eigene Ergänzen ?
Hafner

Hallo
Ist es möglich, bei dem fixen Formeln unter Mathematikformeln eine eigene Formel zu speichern
es geht um diese Formel =@Ganzzahl(20*........+0.5)/20
ich benötige diese immer wieder und es ist Mühsam, diese jedesmal neu zu schreiben
23.05.2009 13:56:13
Thread-ID: 1076845
13 Beiträge
.find -> Suche erst nach x Durchläufen erfogreich
Suppenhuhn

Hallo Gemeinde !
Angehängte Makro-Routinen habe ich geschrieben um aus einer sehr, sehr langen Excel-Tapete die Zeilenpaare in ein neues Blatt auszusortieren, die in Spalte 13 bzw. 14 den gleichen Eintrag haben und deren Summe der Beträge in Spalte 17 gleich NULL sind.
Das Problem ist,...
24.05.2009 09:14:17
Thread-ID: 1076910
13 Beiträge
range("A1")= strText
Michael

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub URL_Load() Dim myIE_App As Object, strText As String Set myIE_App = CreateObject("InternetExplorer.Application") myIE_App.Navigate "http://www.kicker.de" Do Sleep 10 Loop Until myIE_App.B...
05.09.2009 16:16:24
Thread-ID: 1100785
2 Beiträge
Anzeige
Textbox1=Textbox2 wie?
Sascha


einen schönen guten abend...
kurze frage :)
wert einer textbox1 in eine andere textbox2 gleichzeitig übernehmen?
mit: TextBox4 = TextBox1?
lieben gruß
sascha
15.09.2009 17:42:27
Thread-ID: 1103029
3 Beiträge
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige