Thema Datum  Von Nutzer Rating
Antwort
Rot Runtime Error 1004: Group Excel list by indent level with VBA
10.07.2019 08:44:50 Gast12619
NotSolved

Ansicht des Beitrags:
Von:
Gast12619
Datum:
10.07.2019 08:44:50
Views:
23
Rating: Antwort:
  Ja
Thema:
Runtime Error 1004: Group Excel list by indent level with VBA

Ich versuche gerade ein Excel Makro zu entbuggen, es soll eine Excel Liste anhand der Einrückungen Gruppieren

Die momentane Struktur ist beispielhaft so:

Row 1....Row2..Row3

Einheit-----A -40

Einheit------B -20

Einheit------C -20

Einheit------D 0

 

Komisch ist, dass das Makro bis Zeile 409 funktioniert. In Zeile 410 kommt dann der Run-time-Error. Einrückungslevel in Zeile 410 ist 9.

 

Sub AutoGroupBOM()
    'Define Variables
    Dim StartCell As Range 'This defines the highest level of assembly, usually 1, and must be the top leftmost cell of concern for outlining, its our starting point for grouping'
    Dim StartRow As Integer 'This defines the starting row to beging grouping, based on the row we define from StartCell'
    Dim LevelCol As Integer 'This is the column that defines the assembly level we're basing our grouping on'
    Dim LastRow As Integer 'This is the last row in the sheet that contains information we're grouping'
    Dim CurrentLevel As Integer 'iterative counter'
    Dim i As Integer
    Dim j As Integer

    Application.ScreenUpdating = False 'Turns off screen updating while running.

    'Prompts user to select the starting row. It MUST be the highest level of assembly and also the top left cell of the range you want to group/outline"
    Set StartCell = Application.InputBox("Select top left cell for highest assembly level", Type:=8)
    StartRow = StartCell.Row
    LevelCol = StartCell.Column
    LastRow = ActiveSheet.UsedRange.Rows.Count

    'Remove any pre-existing outlining on worksheet, or you're gonna have 99 problems and an outline ain't 1
    Cells.ClearOutline

    'Walk down the bom lines and group items until you reach the end of populated cells in the assembly level column
    For i = StartRow To LastRow

        Rows(i).Select
        Level = Cells(i, LevelCol).IndentLevel
        For j = 1 To Level - 1
            Selection.Rows.Group
        Next j
    Next i

    Application.ScreenUpdating = True 'Turns on screen updating when done.

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Runtime Error 1004: Group Excel list by indent level with VBA
10.07.2019 08:44:50 Gast12619
NotSolved