Sortierung funktioniert nicht
04.08.2006 11:42:23
Stefan
Leider funktioniert sie nur solange, bis ich ein Register einfüge was an letzter Stelle stehen würde.
Die Sortierung funktioniert schon aber es ist dann das vorletzte Register aktiv! Es ist aber zwingend erforderlich, dass das eingefügte Register das aktive bleibt!!!
Kann mir jemand helfen? Hier der Quelltext:
ActiveSheet.Select
ActiveSheet.Move After:=Workbooks("Auswertung.xls").ActiveSheet
For intI = 2 To ActiveWorkbook.Sheets.Count - 1
intX = intI
For intZaehler = intI + 1 To ActiveWorkbook.Sheets.Count
If UCase$(Sheets(intZaehler).Name) intX = intZaehler
End If
Next intZaehler
If intX > intI Then Sheets(intX).Move Sheets(intI)
Next intI
Es wird also ein Sheet aus einer xls file in die Auswertung.xls Datei verschoben und soll dort eingeordnet werden aber das activesheet bleiben.
Vielen Dank im Vorraus.
Wie gesagt Sortierung funktioniert aber wenn das eingefügte Sheet das letzte ist, dann ist das vorletzte das aktive Sheet....
Gruß, Stefan