Ein/Ausblenden + Format per VBA
24.02.2008 16:21:00
Fred
meine VBA-Kenntnisse sind leider relativ bescheiden und ich hangel mich bisher immer mit dem VBA-Recorder durch. Jetzt habe ich jedoch ein "Problem", welches ich mit dem Makro-Rekorder nicht wirklich lösen kann.
In einem Excelsheet habe ich eine Tabelle im Bereich B11:M45. Jetzt möchte ich per Makro Zeilen ein- und ausblenden lassen können. Wenn ich auf einen Button klicke, dann werden bestimmte Zeilen ausgeblendet, wenn ich nochmals draufdrücke, werden diese wieder eingeblendet. Das habe ich soweit auch geschafft (wenn auch nicht sehr elegant, weil größtenteils per Makro-Recorder):
Sub View_PrämissenGuV()
Application.ScreenUpdating = False
Range("A1").Select
' Entscheide, wie bisherige Ansicht
Ansicht = Range("DV_GuV_Ansicht").Value
If Ansicht = 1 Then
' Einfache Ansicht
Rows("15:17").EntireRow.Hidden = True
Rows("19:19").EntireRow.Hidden = True
Rows("21:22").EntireRow.Hidden = True
Rows("25:42").EntireRow.Hidden = True
Rows("44:45").EntireRow.Hidden = True
Range("DV_GuV_Ansicht") = 0
Else
' Detaillierte Ansicht
Rows("10:46").EntireRow.Hidden = False
Range("DV_GuV_Ansicht") = 1
End If
End Sub
Das Ganze ist jedoch sehr unflexibel. Ich würde deshalb den User bestimmen lassen wollen, welche Zeilen ein- bzw. ausgeblendet werden. Z.B. in T11:T45 sollte man jeweils eine 1 oder eine 0 schreiben können. Wenn dann eine 1 steht, dann bedeutet dies "ausblenden". Wie mache ich das? Problem ist, dass ich momentan mit Rows("XY") arbeite?! Für ein paar kleine Tipps wäre ich wirklich sehr dankbar.
Vielen Dank
Fred