Gibt es eine automatisierte Möglichkeit, Namen und Reihenfolge von Excel-Tabellen zu bearbeiten?

377
WilliamKF

Ich möchte die Reihenfolge der Arbeitsblätter in einer Excel 2007-Arbeitsmappe umkehren und mich fragen, ob es einen anderen Weg gibt, als einen manuellen langwierigen Vorgang. Ich habe ungefähr 100 Blatt, daher möchte ich die manuelle Vorgehensweise vermeiden, aber ich sehe keine programmatische Möglichkeit, dies zu erreichen.

Gibt es eine einfache Möglichkeit, ein Blatt anhand seines Namens zu suchen, um es auszuwählen?

2

2 Antworten auf die Frage

2
techturtle

Sie können die Blätter programmgesteuert durchlaufen und ihre Reihenfolge mit ähnlichem Code wie folgt umkehren:

Sub ReverseSheets() Dim i As Integer  For i = 1 To Worksheets().count Worksheets(i).Move before:=Worksheets(1) Next i  End Sub

Dieser Code wird alle Blätter in einer Arbeitsmappe automatisch umkehren. Die genaue Anzahl der Blätter ist irrelevant, da jedes Mal die Anzahl der Blätter geprüft wird.

Bei der Suche nach Blattnamen ist dies möglich, jedoch wesentlich komplizierter als das Umkehren der Blätter. Hier sind ein paar Seiten, um den Einstieg zu erleichtern:

http://automation-beyond.com/2010/01/27/how-to-find-excel-worksheet-by-name/

http://www.mrexcel.com/forum/excel-questions/58374-visual-basic-applications-find-sheet-name.html

0
dav

To change a sheet name, you can use VBA:

  1. Select your sheet: Sheets("Sheet1".Select

  2. Rename your sheet: Sheets("Sheet1").Name = "SheetA"

Then just create a loop to cycle through all of your sheets and have it assign the names you want.

Verwandte Probleme