Ich habe folgendes Problem:
Habe einen Button belegt, der Zeilen in eine bestimmten Bereich ausblendet, wenn dieser Button gedrückt wird. Dies erfolgt mit dem kurzen Makro:
Rows(i).EntireRow.Hidden = True. i wird natürlich entsprechend dem Bereich definiert. Hat man nun versehentlich den Button gedrückt, so möchte ich nun irgendwie erreichen, dass auf dem Button nach dem Drücken "einblenden" erscheint und bei erneutem Drücken, die vorher ausgeblendeten Zellen wieder eingeblendet werden. Kann man den Status des Buttons auslesen? wenn ja, ist es sehr aufwendig?
Anbei noch das komplette Makro um den Bereich auszublenden:
Public Sub alle_weg(a, e)
Dim i As Integer
For i = a To e
Rows(i).EntireRow.Hidden = True
Next i
End Sub
mit eine spezifischen sub greife ich dann auf obige Marko zu:
Private Sub planung_weg_Click()
'die ganze Kategorie ausblenden
Application.ScreenUpdating = False
Dim a As Integer
Dim e As Integer
Dim i As Integer
a = Range("Anfang_Planung").Value - 1
e = Range("Ende_Planung").Value
For i = a To e
If Cells(i, 3).Font.Size = 11 And Cells(i, 3) <> "" Then
Cells(i, 3) = ""
End If
Next i
Call alle_weg(a, e)
Application.ScreenUpdating = True
End Sub
Ich hoffe das ist nich zu verwirrend!
Für jede weitere Hilfe bin ich sehr dankbar...
Gruß Mischa