Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.
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.
Anzeige

300 Forumthreads zu ähnlichen 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
Anzeige
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
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 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
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7