Hallo VBA Community,

ich schreibe gerade einen Code, der gruppierte Zeilen eines Worksheets ein- bzw. ausblenden soll.

Beim Ausblenden habe ich erstmal keine Probleme, allerdings bekomme ich beim Einblenden einen Laufzeitfehler:

Laufzeitfehler 1004: Die ShowDetail-Eigenschaft des Range-Objektes kann nicht festgestellt werden.

Mit folgendem Code lässt sich mein Problem gut darstellen:

Sub MeinProblemMitShowDetail()

    Dim myWKS As Worksheet
    Dim myRange As Range
    
    Set myWKS = ThisWorkbook.Sheets(1)
    
    Set myRange = myWKS.Rows(1)
    
    myRange.Group
    
    Debug.Print ".ShowDetail VOR der Änderung: "; myRange.ShowDetail
    
    ' KLAPPT GUT:
    myRange.ShowDetail = Not myRange.ShowDetail
    
    Debug.Print ".ShowDetail NACH der Änderung: "; myRange.ShowDetail
    
    ' DIESE ZEILE VERURSACHT DEN LAUFZEITFEHLER:
    myRange.ShowDetail = Not myRange.ShowDetail

End Sub

Der Output im Direktbereich sieht so aus:

.ShowDetail NACH der Änderung: Wahr
.ShowDetail VOR der Änderung: Wahr

 Im Direktbereich erhalte ich folgenden Output: .ShowDetail NACH der Änderung: Wahr .ShowDetail VOR der Änderung: Wahr Also irgendwie stehe ich da gerade auf dem Schlauch. Läuft der Code bei euch? Und noch viel wichtiger, was mache ich falsch?

VG, Qbasic2002