Excel 2007 - Makro funktioniert nicht mehr richtig.

Hallo Zusammen,

ich habe unter Excel 2007 ein Makro im Einsatz, bei dem einzelne Daten aus mehreren Tabellenblättern in ein Tabellenblatt kopiert werden sollen. Nun habe ich das Problem, dass ich einzelne Tabellenblätter gelöscht oder ergänzt habe und dies nach der Makro-Durchführung nicht berücksichtigt wird (sprich die Daten aus dem gelöschten Tabellenblatt werden trotzdem kopiert und die Daten aus dem neuen Tabellenblatt werden nicht kopiert). Was muss ich hier im Makro anpassen? Anbei das Makro zur Info. Vielen Dank bereits im Voraus für Eure Hilfe. Gruß Marcus


Sub Mengen_Kopieren()
' Mengen in Blatt "Mengenentwicklung" aus Arbeitsblättern kopieren
Dim B As Integer
Dim w As Object
B = 2
For Each w In Worksheets
Sheets(B).Activate
If ActiveSheet.Name = "Mengenentwicklung" Then Exit For
Range("A7:R7,A29:R29,A51:R51,A73:R73,A95:R95,A117: R117,A139:R139,A161:R161").Select
Selection.Copy
Sheets("Mengenentwicklung").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
B = B + 1
Next w
End Sub

 

Ich will mich mal so ausdrücken - allein das Exit For falls du auf das Quelldaten (oder Zieldaten?)-Blatt stößt verursacht mir Bauchgrummeln.

Wenn ich Blätter immer mit Name ansprechen kann dann werde ich wohl oder übel auch genau diese Namen einsetzen müssen um präzise alle Daten an die richtige Stelle zu schaukeln. Volle Blatt-Selections (ein Kommando, dass man nur dann einsetzen sollte wenns nicht anders geht), dann B hochzählen - da steige ich nicht ganz durch. Denn Quellen die ich ausschöpfe und das Ziel müssen auch richtig verheiratet werden: welche Quelle wohin am Ziel?

Vielleicht kannst du mal eine entschärfte Kopie der Mappe hochladen und angeben was wo hin geschaukelt werden muss.

Eric March

 

Bin heute nicht im Büro - melde mich Anfang nächster Woche mit mehr Infos / Daten.

Vielen Dank bereits jetzt und ein schönes Wochenende.

Marcus Mattekat