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

bestimmte Zeilen For next Schleife fernhalten

Forumthread: bestimmte Zeilen For next Schleife fernhalten

bestimmte Zeilen For next Schleife fernhalten
18.11.2004 10:25:55
Eva
Hallo,
gibt es eine elegante Lösung in VBA, mit der ich zwar eine For Next Schleife zum Auslesen vieler Werte nutze, bei dieser aber zwei Zeilen für die Abfrage ausschließen kann?
im Sinne von For ZeileActual = 9 To 259 Step 5 except Zeile14&114
Danke sehr
eva

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zeilen For next Schleife fernhalten
18.11.2004 10:37:44
Tobi_Fr
Zwar keine allzu elegante Lösung aber es geht:
Mach doch in deiner For Schleife einfach ne If Abfrage mit den zwei Werten rein...
for i = 0 to 10
if i = 5 then
....
else
Anweisung
endif
next i
AW: bestimmte Zeilen For next Schleife fernhalten
18.11.2004 10:49:30
Eva
Das geht bei mir leider nicht, da in der for next Schleife schon if Abfragen sind.
Es gibt zwei immer auftauchende if-Abfragen:
For SpalteMt = 13 To 24 'variable Einstellung der Monatsabfrage
ZeileMt = ZeileMt + 1

For ZeileActual = 9 To 259 Step 5
ZeileLower = ZeileActual + 4
ZeileUpper = ZeileActual + 3

If wsOverview.Cells(ZeileUpper, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileUpper, SpalteMt) = wsOverview.Cells(ZeileLower, SpalteMt) Then
'rot färben 'cpk betreffend
If wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) Or wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner gleich' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
'gelb
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileUpper, SpalteMt) Then
Call gelbFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End If

If wsOverview.Cells(ZeileUpper, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileUpper, SpalteMt) '=' wsOverview.Cells(ZeileLower, SpalteMt) Then
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
If wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileUpper, SpalteMt) Then
Call gelbFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End If
Next ZeileActual
Next SpalteMt
Problematisch ist, dass zwei Ausnahmen zwar der ersten if-Abfrage zugeordnet werden können, aber in dieser if-Abfrage eine falsche Farbe zugeordnet bekämen.
Ich müsste die Zeilen also wirklich ausschließen.
Gruß
eva
Anzeige
AW: bestimmte Zeilen For next Schleife fernhalten
18.11.2004 10:56:33
Tobi_Fr
Mach doch um deine If-Abfragen noch eine außen rum:
For ZeileActual = 9 To 259 Step 5
ZeileLower = ZeileActual + 4
ZeileUpper = ZeileActual + 3
if ZeileActual = 100 or Zeile Actual = 155 then
else
If wsOverview.Cells(ZeileUpper, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileUpper, SpalteMt) = wsOverview.Cells(ZeileLower, SpalteMt) Then
'rot färben 'cpk betreffend
If wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) Or wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner gleich' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
'gelb
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileUpper, SpalteMt) Then
Call gelbFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End If
endif
next ZeileActual
tobi
Anzeige
AW: bestimmte Zeilen For next Schleife fernhalten
Worti
Hallo Eva,
so gehts:

Sub Ausschluss()
Dim I As Integer
For I = 9 To 259
Select Case I
Case 9 To 13, 15 To 113, 115 To 259
'Deine Befehle
End Select
Next I
End Sub

Worti
AW: bestimmte Zeilen For next Schleife fernhalten
Jan
Hi Eva,
Bei Deinem Level so eine Frage?! Schon in der Hilfe im VBE wird die Anwendungsmöglichkeit der FOR NEXT - Schleife festgelegt. Es ist eine reine Zählschleife.
Wenn Du Bedingungen einbauen willst mußt Du eine andere Schleife bemühen (z.B. Do - While - Loop) oder mit IF-THEN - ENDIF arbeiten.
Anzeige
AW: bestimmte Zeilen For next Schleife fernhalten
18.11.2004 10:53:16
Eva
Hallo Jan,
zwischen VBA-nein und VBA-gut liegen Welten. Ich arbeite nicht mehr mit dem Recorder, bleibe aber Anfänger, der eure Statements meist gut nachvollziehen kann.
;

Forumthreads zu verwandten Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
For-Next Schleife
Micha

Hey,
hat einer von Euch ne Ahnung, warum mir in der folgenden Prozedur eine 3,3,5,5 ausgegeben wird ? - sollte m.E. nach eine 3,4,5,6 sein.
Sub Test5() Repetition = 0 For i = 0.03 To 0.05 Step 0.01 Repetition = Repetition + 1 Next Cells(3, 14) = Repetition Repetition = 0 For i = 0.03 To...
12.11.2009 11:29:23
Thread-ID: 1116427
7 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
For Next Schleife umschreiben
Alex

Hallo zusammen,
ich habe hier eine ForNext-Schleife, die ich so nicht lassen kann.
Wenn die Bedingung nicht erfüllt ist soll ein Parameter gesetzt werden.
Wenn die Bedingung erfüllt ist , wird eine Abfrage gemacht, ob die Datei überschrieben werden soll. Wird diese Abfrage n...
06.05.2010 13:15:30
Thread-ID: 1155800
9 Beiträge
Anzeige
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
For Next Schleife
Alex

Hallo zusammen,
in einer Zelle "zB. A5" habe ich eine Nummer.
Diese Nummer soll untereinander so oft wie in einer anderen zelle angegeben um eins erhöht werden.
Ich habe versucht dies über eine for next schleife zu lösen, aber ich bekomme den Verweis von 1 to Zelle nicht hin und in...
02.09.2010 07:56:31
Thread-ID: 1175352
7 Beiträge
for next schleifen problem
carstenas

Hallo Forum
Ich bastel zur Zeit an einer Datei für meine Kollegen bin aber an einem Punkt angekommen wo ich nicht mehr weiter komme.Mein Problem sind For Next schleifen.
Dass Problem sind 2 Tabellen zu vergleichen.Es gibt 8 Tabellen Mo-So und eine Übersicht wo die werte aus den Tabellen...
14.11.2010 17:00:29
Thread-ID: 1186723
20 Beiträge
For Next Schleife für Fomel ausfüllen
Karsten

Hallo
Ich möchte eine Tabelle mit Formeln füllen:
=SUMME(alle_Spiele!O4:O12)
=SUMME(alle_Spiele!R4:R12)
=SUMME(alle_Spiele!U4:U12)
usw...
Spalte erhöht sich immer um 3 Spalten
In der nächsten Spalte erhöhen sich die Zahlen um jeweils 9.
=SUMME(alle_Spiele!O13:O21...
28.12.2010 10:13:18
Thread-ID: 1193013
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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