[MS Excel] Excel 2007 - Makro funktioniert nicht mehr korrekt. topx

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