Blätter per Schleife umbenennen
16.08.2006 13:17:03
Britta
ich rätsel mich so langsam dumm & dämlich, irgendwie verstehe ich mich mit Schleifen nicht so gut ;-)
Also mein Problem ist folgendes:
Ich habe Excel-(logisch)Arbeitsmappen, die grundlegend so aufgebaut sind:
Blatt1 Blatt2 Änderung1 Änderung2 Änderung3 ... 10
Nur manchmal habe ich vorne Blatt 1-3 und manchmal auch nur eines.
Und die Blätter "Änderung" heißen manchmal nur 1,2,3.
Also wollte ich ein Makro machen dass mir im 1. Schritt den Namen überprüft und dann ab da, wo die Blätter nicht mehr "Blatt" heißen, die restlichen 10 Blätter nimmt und die zu "Änderung1 Änderung2 Änderung3 ... 10" umbenennt.
Die Abfrage des Namens würde ich so anfangen:
For Each Sheet In ActiveWorkbook.Sheets
If Not InStr(1, Sheet.Name, "Blatt", vbTextCompare) Then
allerdings begreif ich nicht wie ich dann die folgenden Blätter per Schleife umbenennen kann. Dieses Hochzählen war für mich schon immer ein Rätsel ;-)
Wäre schön wenn mir jemand helfen kann.
Gruß
Britta