Sortieren vonm Arbeitsblättern in Excel

Hallo Andreas,

vielen Dank für die Hilfe.

Gruß

Hallo Andreas,

vielen Dank für die schnelle Antwort.

Die Auflistung der Nachnamen findet sich in einem Tabellenblatt mit Namen Arbeitszeiten. Der Zellbereich, in welchem die Nachnamen in diesem Tabellenblatt stehen heisst Nachname.

Nur die Tabellenblätter der Mitarbeiter sollen sortiert werden. Die sonstigen Tabellenblätter sollen unverändert bleiben.

Ich hoffe, das dies so möglich ist.

Gruß

Ich möchte nun die Tabellenblätter der Mitarbeiter nach Alphabet sortieren. Die Blätter sind jeweils mit dem Nachnamen der Mitarbeiter gekennzeichnet. Außerdem habe ich eine Tabelle, in der die Nachnamen aufgeführt sind und mit dem Namen "Nachnamen"
versehen sind.

"Tabelle mit Nachnamen" was bitte? Ich nehme einfach mal an das diese besagte Tabelle "Nachnamen" heißt und diese dann in der Reihenfolge zuerst erscheinen soll.

Andreas.

Option Explicit

Sub Test()

SortSheets "Nachnamen", vbTextCompare

End Sub

Sub SortSheets(Optional Liste, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare)

'Sortiert die Tabellenblätter nach Liste und sonstige alphabetisch nach Namen

Dim i As Integer, j As Integer

Dim SaveSelectedSheets As Variant

'Bildschirmupdate unterdrücken

Application.ScreenUpdating = False

Application.EnableEvents = False

Set SaveSelectedSheets = ActiveWindow.SelectedSheets

'Alles alphabetisch sortieren

For i = 1 To Sheets.Count

For j = i + 1 To Sheets.Count

If StrComp(Sheets(j).Name, Sheets(i).Name, Compare) < 0 Then

If Sheets(j).Visible = xlSheetVisible Then _

Sheets(j).Move Before:=Sheets(i)

End If

Next

Next

'Nach Liste sortieren und voranstellen

On Error Resume Next

j = 1

Select Case TypeName(Liste)

Case "Variant()"

For i = LBound(Liste) To UBound(Liste)

If Sheets(Liste(i)).Visible = xlSheetVisible Then

If i = LBound(Liste) Then

Sheets(Liste(i)).Move Before:=Sheets(1)

Else

Sheets(Liste(i)).Move After:=Sheets(j)

j = j + 1

End If

End If

Next

Case "String"

If Sheets(Liste).Visible = xlSheetVisible Then _

Sheets(Liste).Move Before:=Sheets(1)

End Select

SaveSelectedSheets.Select

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

ActiveWindow.ScrollWorkbookTabs SaveSelectedSheets.Item(1).Index - 1

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

Nur die Tabellenblätter der Mitarbeiter sollen sortiert werden. Die sonstigen Tabellenblätter sollen unverändert bleiben.

Ich hoffe, das dies so möglich ist.

Das geht, aber nur anders rum.

Übergib eine Liste der Namen der sonstigen Tabellenblätter (als eindimensionales Array) als erstes Argument an SortSheets.

SortSheets Array("Dies", "Das", "Nachnamen"), vbTextCompare

Andreas.

Danke für die Idee: Es wäre zu schön gewesen! Leider bleibt sich das Resultat gleich.

Wenn ich aber die Inhalte der (ja eigentlich ""-leeren) Felder in den Leerzeilen manuell lösche, dann klappt der Befehl. Excel betrachtet anscheinend die ""-leeren Felder als belegt!

Mein Ablauf:

Ich kopiere X Zeilen aus Datenbank A auf ein Arbeitsblatt und sortiere nach Artikelcode, womit die Leerzeilen unterhalb der Artikel sind.

Dann kopiere ich X Zeilen aus Datenbank B auf das Arbeitsblatt - und zwar ab der bewussten letzten benutzten Zeile.

Nur: wie wähle ich die an?

Dankeschön für die freundlichen Bemühungen.