Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wks bei for-next Schleife auslassen

wks bei for-next Schleife auslassen
20.01.2007 08:25:51
Andy
Hallo Leute.
Ich hab folgende Frage. Ich benutze For-Next Schleifen bei der Abfrage von Daten aus mehreren Tabellenblättern. (for each wks in .....) Nun will ich von 8 Blättern aber nur 6 auslesen, zwei Blätter sollen also ausgelassen werden.
Bisher hab ich das immer so gelöst, dass ich einen Wert z.B.a = 1 gesetzt habe und dann, wenn die zwei nicht gewollten Blätter in der Schleife dran waren, den wert per "If" auf 2 hab setzen lassen. Wenn der Wert 1 blieb, also bei allen anderen Blättern wurden die weiteren Anweisungen halt immer über "If" ausgeführt. If a = 1 then ....
Es klappt ganz gut, abe erscheint mir tierisch umständlich..
Habt Ihr nen besseren Weg? Im Archiv bin ich leider nicht fündig geworden :-(
Danke schonmal für Eure Hilfe!
Gruß
Andy

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wks bei for-next Schleife auslassen
20.01.2007 08:55:36
Ramses
Hallo
Schreib deine Tabellen die du prüfen willst in ein Array, und geht das Array durch
Option Explicit

Sub wksArrayCheck()
Dim wksArray()
Dim i
wksArray = Array("Tabelle1", "Tabelle3")
For i = 0 To UBound(wksArray)
MsgBox Worksheets(i + 1).Name
Next
End Sub

Gruss Rainer
AW: wks bei for-next Schleife auslassen
20.01.2007 09:03:19
Andy
Hallo Rainer!
Hm ja.. das klingt schonmal gut.
Allerdings weiss ich in diesem Fall nicht, wie die Namen der Tabellen sind die ich überprüfen will (werden nach und nach extern eingespielt und haben unterschiedliche Namen)
Ich kenne nur die Namen der Tabellen die ich nicht in der Schleife haben will.
(= "Gesamtauswertung" und "Diagramm"
kann ich die auch über so ein Array ausschließen?
Gruß
Andy
Anzeige
AW: wks bei for-next Schleife auslassen
20.01.2007 09:24:49
Ramses
Hallo
"...Allerdings weiss ich in diesem Fall nicht, wie die Namen der Tabellen sind die ich überprüfen will..."
I hate this kind of chatting :-)
Woher soll ich das denn wissen ?
Ganz abgesehen davon, kannst du das Array, wenn es einmal definiert und verfügbar ist, dynamisch füllen kannst
Option Explicit

Sub wksArrayCheck()
Dim wksArray() As Variant
Dim i
'Datenfeld auf 0 dimensionieren
ReDim wksArray(0)
'Deine Tabelle in das Array schreiben
wksArray(0) = "Tabelle1"
ReDim Preserve wksArray(UBound(wksArray()) + 1)
'Dein Anderer Code
'Deine Tabelle in das Array schreiben
wksArray(UBound(wksArray)) = "Tabelle3"
'Arrayfeld neu dimensionieren dass wieder was Platz hat
ReDim Preserve wksArray(UBound(wksArray()) + 1)
'Dein Anderer Code
'Deine Tabelle in das Array schreiben
wksArray(UBound(wksArray)) = "Tabelle5"
'Arrayfeld neu dimensionieren dass wieder was Platz hat
ReDim Preserve wksArray(UBound(wksArray()) + 1)
'Alle im Array gelisteten Sheets durchgehen
For i = 0 To UBound(wksArray) - 1
MsgBox Worksheets(wksArray(i)).Name
Next
End Sub

Gruss Rainer
Anzeige
Nachfrage: wks bei for-next Schleife auslassen
20.01.2007 10:26:07
Daniel
Hallo
woran kann man denn erkennen, welche Blätter auskelassen werden sollen?
Ist das ne Zufallsentscheidung oder gibt es da bestimmte Bedingungen?
Sind es immer genau 8 Blätter aus der gleichen Datei?
Gruß, Daniel
AW: Nachfrage: wks bei for-next Schleife auslassen
20.01.2007 10:48:59
Andy
Hallo Daniel!
Also die Blätter, die ausgelassen werden, haben immer den gleichen Namen.
"Diagramm" und " Gesamtauswertung"
Die, die neu hinzugefügt werden, kommen von Betriebsprüfern, die Ihre Ergebnisse von Ihrem Laptop auf meine interne Statistikdatei senden.. Es sind daher immer unterschiedlich viele Blätter in der Datei (manche Prüfer haben ja auch mal Urlaub *g*).
Das von Rainer ist mir irgendwie noch nicht ganz klar, bin grad schon am basteln, aber mit Arrays schein ich aufm Kriegsfuss zu stehen *grml*
Gruß
Andy
Anzeige
AW: Nachfrage: wks bei for-next Schleife auslassen
20.01.2007 11:10:40
Daniel
Hallo

Sub xxx
for each wks in ...
select case wks.name
case "Diagramm", "Gesamtauswertung"
'nix machen
case else
'hier dein Makro
end select
next
End Sub

so in etwa, nicht getestet
gruß, Daniel
SUUUUPER GEIL! DANKE!!
20.01.2007 11:18:25
Andy
HAMMER!
Super geil,super einfach und funzt perfekt!
Das nehme ich! Danke Daniel!
@ Rainer
Dir auch vielen Dank!!

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