Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Blatt verschieben - aktives Blatt"
Zeilen bedingt durch SpinButton verschieben Artikel aus Auswahltextbox in Sammeltextbox verschieben
Datei verschieben Daten in ListBoxes verschieben und sortieren
Bei Blattnamenseintrag Zeile in jeweiliges Blatt verschieben Tabellenblattgrafik ein/ausblenden und verschieben
Excel-Arbeitsmappe aus dem Internet öffnen und verschieben Mails eines Outlook-Ordners in einen anderen verschieben
Blatt verschieben und neuer Code für Schaltfläche Verschieben von ListBox-Eintragen nach oben und unten