Makro nur auf bestimmte Tabellenblätter anwenden

[Johann Rupp]

Hallo Excel Könner,

habe eine Arbeitsmappe mit gesamt 15 Tabellenblätter. 12 Blätter sind
vom Aufbau soweit identisch es werden dort im Bereich C11:G303 Datum und
Messwerte eingetragen.
Hab mir ein Makro aufgezeichnet, dass mir den Bereich C11:G303 nach den
Datumswerten in C11 bis C303 aufsteigend sortiert. Das funktioniert auch
wie gewünscht. Wie bekomme ich es nun hin, dass dieses Makro auf den 12
Tabellenblätter gleichzeitig zur Anwendung kommt. (Excel 2007)

Danke!
Gruß Johann

[Eberhard Funke]

Hallo Johann,

gleichzeitig nicht, aber in einer Schleife.
Voraussetzung: die 12 zu sortierenden Blätter stehen lückenlos
hintereinander, z. B. Reiterposition (unterhalb der Tabelle) 1 bis 12.

For intI = 1 To 12
With Worksheets(intI)
.Range("C11:G303").Sort Key1:=.Range("C11"), _
Order1:=xlAscending, Header:=xlNo
Next

[crossposted de.comp.office-pakete.ms-office.excel]

--
Mit freundlichen Grüssen Eberhard
XP home XL 2000

[Johann Rupp]

Hallo Eberhard,

mein Zugang funktionierte die letzten Tage leider nicht. Habe versucht
deinen Code einzusetzen. Leider mit Fehlermeldung: Fehler beim
Kompilieren. Next ohne For.??? Na ja, VBA absoluter Neuling. Hab das
jetzt mit meinem Makro und einem Steuerelement Button auf den 12
Tabellenblättern gelöst. Würde mich aber interessieren, wenn es dir
nicht zu viel Mühe macht, wie ich deinen Code zum laufen bringe.
Neugierig bin ich allemal.

Gruß Johann

[Eberhard Funke]

Am Thu, 02 Sep 2010 09:43:36 +0200 schrieb Johann Rupp:

>>
>> For intI = 1 To 12
>> With Worksheets(intI)
>> .Range("C11:G303").Sort Key1:=.Range("C11"), _
>> Order1:=xlAscending, Header:=xlNo
>> Next
>

> Habe versucht
> deinen Code einzusetzen. Leider mit Fehlermeldung: Fehler beim
> Kompilieren. Next ohne For.???

Hallo Johann,

For intI = 1 To 12
With Worksheets(intI)
.Range("C11:G303").Sort Key1:=.Range("C11"), _
Order1:=xlAscending, Header:=xlNo

End With
Next

da fehlte das "End With" :-(