kann mir bitte jemand bei einem Problem beim Verschieben von Arbeitsblättern
helfen?
Problem: nach dem Verschieben eines Arbeitsblattes, sollen die Blätter in der
Zieldatei neu sortiert werden. Trotzt aktivieren der Zielmappe wird aber immer nur die Originalmappe sortiert.
Hier der Code der Sortier-Prozedur, welche mit dem Parameter "Sortier-Datei"
aufgerufen wird:
Sub SortierungBlätter(WkbookName As String)
Dim i As Integer
Dim j As Integer
Dim AktWkb As String
AktWkb = ActiveWorkbook.Name ' Aktives Workbook merken
Workbooks(WkbookName).Activate ' Workbook aktivieren
For i = 1 To Sheets.Count ' Sortieren
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then _
Sheets(j).Move After:=Sheets(j + 1)
Next j
Next i
Workbooks(AktWkb).Activate ' ursprüngliches Workbook aktivieren
End Sub
Habe beim Aufruf die Application.ScreenUpdating auf False stehen.
Danke für Eure Hilfe