Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1464to1468
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
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleifenproblem

Schleifenproblem
28.12.2015 12:55:24
Florian
Hallo,
ich möchte gern einige Befehle, die ich für die erste Tabelle erstellt habe, auf die weiteren Tabellen übertragen. Also eine Schleifenfunktion über mehrere Worksheets.
Die Position der Daten bleibt demzufolge immer gleich.
Dazu habe ich mir ausgedacht:
Dim wks As Worksheets
For Each wks In ActiveWorkbook.Sheets
If wks.Name = "Tabelle3" Then Exit Sub
Befehle..
.
.
.
Next wks
Was ist verkehrt?
Gruß Florian

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleifenproblem
28.12.2015 13:02:52
hary
Moin
Du beendest den Code sobald die Schleife auf Blatt "Tabelle3" trifft.
Soll Tabelle3 ausgenommen werden? 
Dim wks As Worksheets
For Each wks In ActiveWorkbook.Sheets
If wks.Name  "Tabelle3" Then
Befehle..
end if
Next wks

gruss hary

AW: Schleifenproblem
28.12.2015 13:04:18
Florian
Gruß
Der Befehl soll auf Tabelle 1, 2 und 3 Wiederholt werden und nach der letzten Tabelle beendet werden.
Gruß Florian

AW: Schleifenproblem
28.12.2015 13:30:09
hary
Moin
Fuer Tabelle1 bis Tabelle3. 
Dim mySheets, oSH As Object
Set mySheets = Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3"))
For Each oSH In mySheets
Next oSH

gruss hary

Anzeige
AW: Schleifenproblem
28.12.2015 13:40:22
Florian
Hallo hary,
Vielen Dank so hab ich es mir auch gedacht aber es funktioniert nicht.
Gruß Florian.

AW: Schleifenproblem
28.12.2015 13:46:32
Daniel
Hi
bei mir funktioniert das so.
aber beschreibe doch mal "funktioniert nicht" etwas genauer.
gibts ne Fehlermeldung, wenn ja welche und in welcher Programmzeile tritt sie auf?
wenn nein, was sollte der Code tun und was macht er tatsächlich?
hast du die Tabellenblattbenennungen im Array auch richtig geschrieben, so wie sie in deiner Datei vorkommen?
Gruß Daniel

AW: Schleifenproblem
28.12.2015 13:47:14
hary
Moin
Meinst du den Blattnamen(im Reiter) oder den Codenamen des Blattes?
Lad mal 'ne Bsp.-Mappe hoch.
gruss hary

Anzeige
AW: Schleifenproblem
28.12.2015 13:52:27
Florian
Hi, Daniel.
Bin schon dabei ;)

AW: Schleifenproblem
28.12.2015 13:56:13
Florian
Moin,
https://www.herber.de/bbs/user/102460.xlsm
Reiter müssten richtig beschrieben sein.
in der ersten Tabelle funktioniert alles.
Bringt auch keine Fehlermeldung.
Gruß Florian

AW: anderes with
28.12.2015 14:02:55
hary
Moin
Statt
With Tabelle1
muss
With oSH
hin.
Den Rest vom Code nicht angesehen.
gruss hary

AW: anderes with
28.12.2015 14:46:27
Florian
Auch an dich Hary ein Dankeschön
funktioniert alles bestens.
Gruß Florian

AW: Schleifenproblem
28.12.2015 14:03:32
Daniel
naja, du musst dir deinen Code auch schon mal durchlesen und dabei mitdenken.
wenn die Tabellenblätter in einer Schleife mit der Schleifenvariable oSH durchlaufen werden, dann sollte diese Schleifenvariable auch irgendwo im Code mal verwendet werden, wenn du die einzelnen Blätter bearbeiten willst.
Bei dir kommt aber im Code zur Blattbearbeitung diese Schleifenvariable oSH nie vor, stattdessen bearbeitest du bei jedem Schleifendurchlauf immer das selbe Blatt, nämlich Tabelle1.
ersetze innerhalb der Schleife über die Tabellenblätter jedes "Tabelle1" durch die Schleifenvariable oSH.
Gruß Daniel

Anzeige
AW: Schleifenproblem
28.12.2015 14:45:34
Florian
@Daniel,
wer lesen kann ist klar im Vorteil. ;)
Danke! Funktioniert einwandfrei.
Gruß Florian

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige