Hi Leute,

ich habe eine Datei mit verschiedenen Shapes. Zum einen Kreise und Rauten und zum anderen Textfelder. Über jedem Kreis oder jeder Raute ist ein Textfeld. Nun möchte ich alles nach einer bestimmten Zeile sortieren und hier taucht das Problem auf. Es wird alles korrekt sortiert, bis auf die Textfelder. Manche werden mitsortiert und manche bleiben einfach an derselben Stelle. Ich glaube es liegt daran, dass das Programm sie nicht richtig zu einer Zelle zuordnen kann, da sie, dadurch dass sie ÜBER dem Shape sind, eine andere Zelle schneiden. Kann mir jemand weiterhelfen, wie ich dieses Problem lösen kann?

Das ist der Code zum sortieren, wobei ich, wie schon erwähnt, nicht glaube, dass es unbedingt daran liegt:

Function Sortieren3()
    
    Dim i As Integer
       
    i = 6
        
    Do While IsEmpty(Cells(i, 3)) = False
    
    Rows(i).Select
    
    ActiveWorkbook.Worksheets("Roadmap3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Roadmap3").Sort.SortFields.Add Key:=Range("B5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Roadmap3").Sort
        .SetRange Range("B6:Z30")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
    
    i = i + 1
    Loop
    
    Range("A1").Select

End Function

Function Sortieren3()
    
    Dim i As Integer
       
    i = 6
        
    Do While IsEmpty(Cells(i, 3)) = False
    
    Rows(i).Select
    
    ActiveWorkbook.Worksheets("Roadmap3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Roadmap3").Sort.SortFields.Add Key:=Range("B5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Roadmap3").Sort
        .SetRange Range("B6:Z30")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
    
    i = i + 1
    Loop
    
    Range("A1").Select

End Function