Blatt verschieben - aktives Blatt

Bild

Betrifft: Blatt verschieben - aktives Blatt
von: stmlohs
Geschrieben am: 10.03.2005 19:30:53
Hallo,
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
Bild

Betrifft: AW: Blatt verschieben - aktives Blatt
von: Bert
Geschrieben am: 10.03.2005 19:44:25
Option Explicit
Sub SortierungBlätter(WkbookName As String)
  Dim i As Integer
  Dim j As Integer
  Dim Wkb As Workbook
  Set Wkb = Workbooks(WkbookName)
  With Wkb
  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
End Sub

Gruß Bert
Bild

Betrifft: End With vergessen
von: Bert
Geschrieben am: 10.03.2005 19:46:29
...vor end sub fehlt das end with, sorry.
Bert
Bild

Betrifft: AW: End With vergessen
von: stmlohs
Geschrieben am: 10.03.2005 20:02:01
Hallo Bert!
jetzt klappts wunderbar.
Ganz herzlichen Dank für Deine Hilfe.
....und noch einen netten Abend!
Gruß
Stefan
Bild

Betrifft: AW: Blatt verschieben - aktives Blatt
von: stmlohs
Geschrieben am: 10.03.2005 19:51:05
Hallo Bert!
Danke für Deine Antwort.
Leider funktioniert das so nicht.
Vielleicht fällt noch jemandem was dazu ein.
Servus
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blatt verschieben - aktives Blatt"