Auf Thema antworten 2026

Beitrag

<blockquote data-quote="gucky2007" data-source="post: 1048365" data-attributes="member: 243590">AW: Frage zu ExcelHallo,probier mal dieses Macro:Das Makro sortiert alle Blätter nach ihrem Namen in aufsteigender Reihenfolge.&nbsp; &nbsp;&nbsp; VBA-Quelltext Public Sub BlätterSortieren(Optional DiagrammeTrennen As Boolean = True, Optional Auswahl As Boolean = False)&nbsp; &nbsp; Dim Liste As Object, Nr As Integer, AlleBlätter As Object&nbsp; &nbsp; &nbsp; &nbsp; If ActiveWorkbook.ProtectStructure Then&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Bearbeitung geschützter Arbeitsmappen nicht möglich&quot;, vbOKOnly + vbCritical, &quot;Fehler&quot;&nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; End If&nbsp; &nbsp; Application.ScreenUpdating = False&nbsp; &nbsp; If Auswahl Then Set AlleBlätter = ActiveWindow.SelectedSheets Else Set AlleBlätter = ActiveWorkbook.Sheets&nbsp; &nbsp; Set Liste = Workbooks.Add(xlWorksheet).ActiveSheet&nbsp; &nbsp; Liste.[B1].Activate&nbsp; &nbsp; &#039; Liste mit Blatnamen und Blattypen erstellen&nbsp; &nbsp; For Nr = 1 To AlleBlätter.Count&nbsp; &nbsp; &nbsp; &nbsp; Select Case TypeName(AlleBlätter(Nr))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;Worksheet&quot;:&nbsp;&nbsp; Cells(Nr, 2) = IIf(AlleBlätter(Nr).Type = xlWorksheet, 1, 4)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;Chart&quot;:&nbsp; &nbsp; &nbsp;&nbsp; Cells(Nr, 2) = IIf(DiagrammeTrennen, 2, 1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;Module&quot;:&nbsp; &nbsp; &nbsp; Cells(Nr, 2) = 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;DialogSheet&quot;: Cells(Nr, 2) = 5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else:&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(Nr, 2) = 6&nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; Cells(Nr, 1) = AlleBlätter(Nr).Name&nbsp; &nbsp; &nbsp; &nbsp; Cells(Nr, 3).Value = AlleBlätter(Nr).Visible&nbsp; &nbsp; &nbsp; &nbsp; AlleBlätter(Nr).Visible = True&nbsp; &nbsp; Next Nr&nbsp; &nbsp; &#039; Blattnamen sortieren&nbsp; &nbsp; Liste.UsedRange.Sort Key1:=Liste.[B1], Key2:=Liste.[A1], Header:=xlNo&nbsp; &nbsp; &#039; Blattreihenfolge sortieren&nbsp; &nbsp; For Nr = Liste.UsedRange.Rows.Count - 1 To 1 Step -1&nbsp; &nbsp; &nbsp; &nbsp; With AlleBlätter(Liste.Cells(Nr, 1).Value)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Move before:=AlleBlätter(1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Visible = Liste.Cells(Nr, 3).Value&nbsp; &nbsp; &nbsp; &nbsp; End With&nbsp; &nbsp; Next Nr&nbsp; &nbsp; Liste.Parent.Close FalseEnd Sub&nbsp; &nbsp; &nbsp; Argumente der Funktion/Prozedur&nbsp; &nbsp;&nbsp; DiagrammeTrennenOptional. Falls TRUE werden Tabellen alphabetisch sortiert, dahinter kommen die Diagramme in alphabetischer Reihenfolge.Falls FALSE werden Tabellen und Diagramme zusammen sortiert.&nbsp; Ohne Angabe wird TRUE gewählt.NurAuswahl Optional. Bei TRUE werden nur die ausgewählten Blätter sortiert. Bei FALSE werden alle Blätter sortiert. Ohne Angabe wird FALSE gewählt.</blockquote>

[QUOTE="gucky2007, post: 1048365, member: 243590"] [b]AW: Frage zu Excel[/b] Hallo, probier mal dieses Macro: Das Makro sortiert alle Blätter nach ihrem Namen in aufsteigender Reihenfolge. [B]VBA-Quelltext[/B] [COLOR=NAVY]Public Sub[/COLOR] BlätterSortieren([COLOR=NAVY]Optional[/COLOR] DiagrammeTrennen [COLOR=NAVY]As Boolean[/COLOR] = [COLOR=NAVY]True[/COLOR], [COLOR=NAVY]Optional[/COLOR] Auswahl [COLOR=NAVY]As Boolean[/COLOR] = [COLOR=NAVY]False[/COLOR]) [COLOR=NAVY]Dim[/COLOR] Liste [COLOR=NAVY]As Object[/COLOR], Nr [COLOR=NAVY]As Integer[/COLOR], AlleBlätter [COLOR=NAVY]As Object[/COLOR] [COLOR=NAVY]If[/COLOR] ActiveWorkbook.ProtectStructure [COLOR=NAVY]Then[/COLOR] MsgBox "Bearbeitung geschützter Arbeitsmappen nicht möglich", vbOKOnly + vbCritical, "Fehler" [COLOR=NAVY]Exit Sub[/COLOR] [COLOR=NAVY]End If[/COLOR] Application.ScreenUpdating = [COLOR=NAVY]False[/COLOR] [COLOR=NAVY]If[/COLOR] Auswahl [COLOR=NAVY]Then Set[/COLOR] AlleBlätter = ActiveWindow.SelectedSheets [COLOR=NAVY]Else Set[/COLOR] AlleBlätter = ActiveWorkbook.Sheets [COLOR=NAVY]Set[/COLOR] Liste = Workbooks.Add(xlWorksheet).ActiveSheet Liste.[B1].Activate [COLOR=TEAL]' Liste mit Blatnamen und Blattypen erstellen[/COLOR] [COLOR=NAVY]For[/COLOR] Nr = 1 [COLOR=NAVY]To[/COLOR] AlleBlätter.Count [COLOR=NAVY]Select Case[/COLOR] TypeName(AlleBlätter(Nr)) [COLOR=NAVY]Case[/COLOR] "Worksheet": Cells(Nr, 2) = IIf(AlleBlätter(Nr).Type = xlWorksheet, 1, 4) [COLOR=NAVY]Case[/COLOR] "Chart": Cells(Nr, 2) = IIf(DiagrammeTrennen, 2, 1) [COLOR=NAVY]Case[/COLOR] "Module": Cells(Nr, 2) = 3 [COLOR=NAVY]Case[/COLOR] "DialogSheet": Cells(Nr, 2) = 5 [COLOR=NAVY]Case Else[/COLOR]: Cells(Nr, 2) = 6 [COLOR=NAVY]End Select[/COLOR] Cells(Nr, 1) = AlleBlätter(Nr).Name Cells(Nr, 3).Value = AlleBlätter(Nr).Visible AlleBlätter(Nr).Visible = [COLOR=NAVY]True[/COLOR] [COLOR=NAVY]Next[/COLOR] Nr [COLOR=TEAL]' Blattnamen sortieren[/COLOR] Liste.UsedRange.Sort Key1:=Liste.[B1], Key2:=Liste.[A1], Header:=xlNo [COLOR=TEAL]' Blattreihenfolge sortieren[/COLOR] [COLOR=NAVY]For[/COLOR] Nr = Liste.UsedRange.Rows.Count - 1 [COLOR=NAVY]To[/COLOR] 1 Step -1 [COLOR=NAVY]With[/COLOR] AlleBlätter(Liste.Cells(Nr, 1).Value) .Move before:=AlleBlätter(1) .Visible = Liste.Cells(Nr, 3).Value [COLOR=NAVY]End With[/COLOR] [COLOR=NAVY]Next[/COLOR] Nr Liste.Parent.Close [COLOR=NAVY]False[/COLOR] [COLOR=NAVY]End Sub[/COLOR] [B]Argumente der Funktion/Prozedur[/B] [B]DiagrammeTrennen[/B]Optional. Falls TRUE werden Tabellen alphabetisch sortiert, dahinter kommen die Diagramme in alphabetischer Reihenfolge.Falls FALSE werden Tabellen und Diagramme zusammen sortiert. Ohne Angabe wird TRUE gewählt. [B]NurAuswahl [/B]Optional. Bei TRUE werden nur die ausgewählten Blätter sortiert. Bei FALSE werden alle Blätter sortiert. Ohne Angabe wird FALSE gewählt. [/QUOTE]

Bilder bitte hier hochladen und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.

Authentifizierung

Wenn ▲ = 7, ▼ = 3, ◇ = 2 und die Summe von ▲ und ▼ durch ◇ geteilt wird, was ist das Ergebnis?