VBA: Problem bei Kopieren auf mehrere Blätter

Question

Hi!

Ich verzweifle schön langsam.
Ein Text soll auf die Blätter Jänner bis Dezember kopiert werden.
Leider wird der Mustertext immer nur auf dem Blatt "Jänner" eingefügt.

Sub Mustertextkopie()
Application.ScreenUpdating = False
Sheets("Jänner").Range("Mustertexte").Copy
Sheets("Jänner").Select
Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember")).Select
Sheets("Jänner").Activate
Range("C2").Select
ActiveSheet.Paste
End sub

Was mache ich dabei falsch?

Ciao

Tom

Answer 1

Moin,

@nighty
Wenn Hajo, rainberg und ich eine 6 wegen "ProblemUmschiffung" bekommen, dann
bekommst Du aber auch eine, wegen "mangelhafter Problemanalyse" und "unzureichenden
Tests vor Veroeffentlichung ohne Hinweis". ;-) *hihi*

Darf ich fragen, ob Du den Codeschnippsel ueberhaupt getestet hast?
Und warum nur unter XL2000? Hab ich da nicht was mit "Student" im
Gedaechtnis, und einer angedachten neueren Schueler- Studenten-Version? ;-)

Hier unter XL2010 funktioniert das so naemlich nicht mit Copy&Paste in
TabellenGruppen. Zumindest dann nicht, wenn die zu kopierende Quelle
wie hier auf einer nachher zur Gruppe gehoerenden Tabelle liegt.

auf deutsch:
Dein Beispiel klappt hier im Test nur wenn beim Makrostart Tabelle1
aktiv ist. Tabelle1!C7 wird erwartungsgemaess nach Tabelle2!C11 UND nach
Tabelle3!C11 kopiert.

@All
Ich habe nun nochmal ein wenig mit dem "Problem" gespielt, wie rainberg scheinbar
auch. Der geneigte Tester moege bitte mit Nightys Codeschnippsel folgendes weiteres
Vorgehen testen.

Aktiviere nun NUR Tabelle2 (Gruppe aufheben) und schreibe in Tabelle2!C7 einen
anderen Wert, dann findet sich dieser nach dem Makro NUR in Tabelle2!C11 wieder.
Nicht aber in Tabelle3!C11. (In etwa so, wie rainberg es in Toms Mappe wohl erlebt
haben duerfte...)

Und es kommt noch besser. Zumindest war fuer mich das Ergebnis des folgenden Tests
SO nicht vorhersehbar:
Fuelle folgende Zellen dafuer einmal mit Werten, die die Herkunft eindeutig kennzeichnen.
z.B.
Tabelle1!C7=Tabelle1
Tabelle2!C7=Tabelle2
Tabelle3!C7=Tabelle3

Tabelle1 aktivieren => Codeschnippsel laufen lassen-> Ergebnis wie erwartet (klappt und wird nighty wohl SO getestet haben
C11-Zellen loeschen->Gruppe aufheben, Tabelle2 aktivieren=> Codeschnippsel laufen lassen=> oha?
C11-Zellen loeschen->Gruppe aufheben, Tabelle3 aktivieren=> Codeschnippsel laufen lassen=> hae???

Um ein Nachbauen-Muessen zu vermeiden, habe ich einmal eine kleineTest-Mappe hochgeladen.
Ich sehe zwar was passiert, erkenne auch eine gewisse Logik, aber kann mir das jemand erklaeren?

Cu
TheBlackBird ®

Answer 2

@ TheBlackBird

mein VBA-Wissensstand reicht leider nicht aus, um Erklärungen oder Beurteilungen zur obigen Problematik abzugeben.

Bin lediglich durch meine Neugier darauf gestoßen, das auch @ nighty's Code nicht funktioniert und wollte mit meinem letzten Beitrag nur versuchen die Arroganz unseres gemeinsamen Oberlehrers etwas zu dämpfen.

Gruß
Rainer