Office: Loop / Code soll mehrere Tabellen durchlaufen

Hallo Zusammen

Ich wende mich erneut mit einer VBA-Problemstellung an euch. Und zwar habe ich in einer Datei verschiedene Sheets, welche in ihrer „Art“ folgendermassen aufgeteilt und vorhanden sind:

1) Sheetart „Basis-Tab“ -> kommt nur 1x vor
2) Sheetart „Zusammenzug“ -> kommt nur 1x vor
3) Sheetart „Kalk-Tab“ -> kommt nur 1x vor und ist ausgeblendet
4) Sheetart „MusterX“ -> kommt x-fach vor (in der angefügten Musterdatei 3x)

Die unter 4) erwähnten Sheets des Typs „MusterX“ sind immer gleich aufgebaut: die Sheets beinhalten je zwei Tabellen, welche je einen identischen Aufbau aufweisen aber unterschiedliche Werte enthalten.

Soviel zur Ausgangslage, nun zur Problemstellung:
Anfang eines neuen Geschäftsjahres sind sämtliche Dateien neu abzuspeichern (-> neues Jahr) und die Werte sind entsprechend zu aktualisieren (d.h. die Endwerte des Vorjahres müssen zu Anfangswerten des neuen Jahres werden sowie gewisse Spaltenwerte müssen gelöscht werden). Meine Absicht ist es, mittels eines Codes die notwendige Übertragung der „Endwerte“ zu neuen „Anfangswerte“ und die „Löschung“ für die gesamte Datei bzw. für sämtliche Sheets des „MusterX“ in einem Wisch vorzunehmen (anstelle einer mühsamen, händischen Lösung oder einer Code-Ausführung je Sheet [es gibt Dateien mit bis zu 30 solcher MusterX-Sheets]*eek.gif*).

Einen entsprechenden Code (Sub AnBu_DatenUebertragen()) habe ich bereits programmiert und habe versucht, das Ganze mittels eines Loops auf alle Tabellenblätter auszudehnen, der entsprechend Codebereich lautet:

Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
With WsTabelle)
‘Code-der-je-MusterX-Sheet-ausgeführt-werden-soll
End With
Next WsTabelle

Aber irgendwie will das nicht funktionieren. Bei Ausführung des Codes wird jeweils nur ein einziges (wohl das aktive) Sheet bearbeitet *mad.gif* .
WEITER kommt hinzu (und hier habe ich noch keine Lösung), dass die eingangs erwähnten Sheetarten Nrn. 1, 2 und 3 (Basis-Tab; Kalk-Tab; Zusammenzug) zwingend von diesem Loop ausgenommen sein müssen. Ferner sollte der Code gewährleisten, dass später hinzugefügte Sheets des Typs „MusterX“ im nächsten Jahr ebenfalls bei der Code-Ausführung berücksichtigt werden

Für euer Hilfe und Unterstützung bin ich dankbar *rolleyes.gif*.
Gruss
Adrian

:)

 

Hallo,

wie wäre es so ...
Code:

Sabina

 

Hallo Sabina

Danke für deine Antwort. Das Problem ist, dass die Sheets des hier genannten Typs "Muster" in den "Produktiv-Dateien" allesamt gänzlich unterschiedliche Namen haben... Beispielsweise "Anlage_X" oder "Fahrzeug_Y", "Gebäude_Z".

Somit dürfte die Variante mit "If.name..." nicht praktikabel sein, da
1. ich wohl alle Sheets mit ihrem Namen direkt im Code einschreiben müsste (bei über 30 Sheets nicht sooooo praktisch *wink.gif*
2. allenfalls angepasste Sheet-Namen zu einem Fehler bei der Code-Ausführung führen würden
3. neu hinzugefügte Sheets durch den Code - ohne manuelle Anpassung des Codes selbst - nicht berührt werden würden

Gäbe es eine Möglichkeit, den Code so zu definieren, dass der Befehl 'Alle Sheets ausser die Sheets "Zusammenzug", "Basis-Tab", "Kalk-Tab" ' lauten würde? Irgendwie habe ich das Gefühl, dass die Ausklammerung der nicht zu bearbeitenden Sheets die praktikablere Lösung in meinem Fall sein könnte - sofern dies natürlich möglich ist...

Gruss
Adrian

 

Moin
Meinst du so?
Code:

gruss hary

 

moin hary

danke für deine antwort und vorschlag. habe den code entsprechend angepasst (s. Datei). jedoch erfolgt nach wie vor keine bearbeitung der anderen sheets. es wird jeweils nur das aktuelle sheet bearbeitet.

irgendwelche vorschläge, was mit dem code nicht stimmen könnte?

gruss
adrian

 

Hi,
ohne Deinen Code detailliert getestet zu haben, hier:

Code:

greifst Du immer auf das aktive Blatt zu, ist das gewollt?

Evtl. eher so?

Code:

 

Hallo Regina

Danke für deine Antwort. Der "ActiveSheet"-Teil kommt daher, dass ich ursprünglich den Code separat pro Blatt ausführen wollte bzw. die Aufgabenstellung so angegangen bin.

Habe deinen Vorschlag ausprobiert - funktioniert leider auch nicht wie gewünscht bzw. ich erhalte nun den Fehler "Laufzeitfehler 1004, die Select-Methode des Range-Objektes konnte nicht ausgeführt werden". Debuggen ergibt den Fehler in folgenden Bereich:
Code:

Wenn ich bei besagtem Code-Teil vor Range ein Punkt setze (also .Range(...)) funktioniert es leider auch nicht bzw. erhalte immer noch denselben Fehler.

Sry - ich bin ein ziemlicher VBA-Anfänger - irgendwo stehe ich wohl auf dem "Schlauch"... *rolleyes.gif*

 

... was soll denn in der Zeile passieren? D.h. was soll selektiert werden?

Selects sind im Übringen in der Regel überflüssig, aber das ist ein anderes Thema....

 

der Befehl hat zum Ziel, in der Tabelle die Spalte mit dem Titel "OR AW Ende GJ" zu markieren, anschliessend sollen die darin enthaltenen Werte kopiert und an anderer Stelle "OR AW Beginn GJ" als Werte eingefügt werden. Das Ganze sieht so aus (und hat funktioniert, als ich nur diesen Teil des Codes als separaten Code erfasst hatte und je Tabellenblatt ausgeführt habe):
Code:

PS. Evtl. müsste ja vor dem zweiten Range-Befehl auch wieder ein Punkt stehen - aber soweit komme ich ja nicht *wink.gif*

Nach diesem Teil wird die nächste Spalte der Tabelle angesteuert, Werte kopiert und an anderer Stelle wieder eingeführt, etc. etc.

 

Hi, das muss ich mir dann später mal in Ruhe anschauen wird abercerst gegen Abend etwas.
Vielleicht hat ja jemand anderes vorher Zeit.

 

Hi,
setze mal vor die Zeile ein Activate:

Code:

Anscheinend muss beim Zugriff auf intellgente Tabellen zuerst das Blatt aktiviert werden. Ist mir auch neu, ich habe aber mit den Tabellen via VBA bisher wenig gearbeitet.

 

danke für die Rückmeldung.

Durch "pröbeln" habe ich mittlerweile eine (ähnliche?) Lösung gefunden, welche bis jetzt gut zu funktionieren scheint:

Code:

Auf jeden Fall vielen Dank für euren Support! *top

 

... das haut aber nur dann hin, wenn die Tabelle exakt den gleichen Namen hat, wie das Tabellenblatt.

 

das ist so.

die datei ist jedoch so aufgebaut, dass der tabellenblattname jeweils auch dem namen der tabelle entsprechen (sollte)...

da nur ein, zwei personen zugriff auf die datei haben kann grundsätzlich sichergestellt werden, dass hier nicht eine fehlmanipulation erfolgen (sollte)