|
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
|