[Excel VBA] Zeilenbereich mit Variablen

[Andy8891]

Hallo

ich möchte in Excel mehrere bestimmte Zeilenbereiche ausblenden

Beispiel:

Zelle A1 = 15
Zelle A2 = 25

Ich möchte nun Zeile 15 bis 25 ausblenden

So sieht mein Code im Moment aus und ich bekomme folgende Fehlermeldung:
Erwartet Listentrennzeichen oder )

Sub Makro5()

Dim a1
Dim a2
a1 = Range("A1")
a2 = Range("A2")

ActiveSheet.Rows(a1&":"&a2).Hidden = True

End Sub

Kann mir jemand den Fehler sagen?

Mit freundlichen Grüßen,
Andy

€hat sich erledigt, das a1 = Range("A1").Value hat gefehlt

 

[Meerix]

So funktionierts bei mir:

Sub Makro5()

a1 = 15
a2 = 25

ActiveSheet.Rows(a1 & ":" & a2).Hidden = True

End Sub

Wenn du bestimmte Zeilen ausblenden willst, beispielsweise 5, 8 und 13, dann musst du Range anstatt Rows benutzen:

ActiveSheet.Range("5:5, 8:8, 13:13").Hidden = True