Office: Zeilen über DropDown-Liste automatisch ein- und ausblenden

Moinsens!

Dazu hatte Anton ja schon alles geschrieben. Das Change-Ereignis dürfte fast nur noch vom SelectionChange-Ereignis übertroffen werden. Selbst das Calculate-Ereignis kommt schon häufiger, als es einem oftmals lieb ist.

Ergänzend: Ja, mittels target.address / intersect solltest Du in jedem Fall prüfen, ob die Änderung, die das Change Ereignis ausgelöst hat, auch in der Zelle passiert ist, die für das Ein-/Ausblenden relevant ist. Das spart doch zumindest einiges an Rechenzeit.

Gruß, Michael

 

Moinsens!

Ich dachte gerade eben, ich hätte da noch eine tolle Idee, aber irgendwie will die nicht so ganz. Trotzdem mal die Idee:

Wenn Du eine UDF (user defined function) erstellst, die nicht nur einen Wert zurückliefert, sondern nebenbei auch noch für das Ein-/Ausblenden sorgt, dann könntest du die Aufrufe auf den Part des Calculate-Ereignisses reduzieren, in dem die relevanten Zellen betroffen sind.



In A1 kann man irgendwas eingeben, bei "ja" oder "nein" sollen die Zellen 4..6 ein- bzw. ausgeblendet werden.

In B1 steht dafür der Aufruf der UDF "=UDF_JaNein(A1)", dessen Code in "Modul1" so aussieht:

Code:

Option Explicit

Public Sub EinAus1()
    Dim ws As Worksheet
    Set ws = Worksheets("Tabelle1")
    ws.Rows(4).Hidden = True
    ws.Rows(5).Hidden = False
    ws.Rows(6).Hidden = True
End Sub

Public Sub EinAus2()
    Dim ws As Worksheet
    Set ws = Worksheets("Tabelle1")
    ws.Rows(4).Hidden = False
    ws.Rows(5).Hidden = True
    ws.Rows(6).Hidden = False
End Sub

Public Function UDF_JaNein(Target As Range) As String
    Dim r As String
    r = "-"
    If (Target.Cells.Count = 1) Then
        Select Case Trim$(UCase(Target.Value))
            Case "JA"
                EinAus1
                r = "j"
            Case "NEIN"
                EinAus2
                r = "n"
        End Select
    End If
    UDF_JaNein = r
End Function

Als Alternative im Source von Tabelle1 noch das Change-Ereignis abgegriffen:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Exit Sub
    If (Target.Cells.Count = 1) And (Target.Address = "A1") Then
        Select Case Trim$(UCase(Range("A1").Value))
            Case "JA"
                EinAus1
            Case "NEIN"
                EinAus2
        End Select
    End If
End Sub

Das "Change" macht z.Z. nix, weil es gleich mit "Exit Sub" beendet wird. Das "UDF_JaNein(A1)" erledigt die Arbeit. Aber...

In B1 wird zwar ein "j", "n" oder "-" zurück gegeben, die Zeilen werden aber nicht ein-/ausgeblendet.

Die "EinAus1" und "EinAus2" Routinen funktionieren aber, wenn sie vom "Change" oder direkt über das Menü "Makros" aufgerufen werden. Auch im Single-Step (von UDF_JaNein aufgerufen) sieht man, daß die Routinen abgearbeitet werden. Nur allein... Auswirkung hat's keine.

Ist ja vielleicht nur eine Kleinigkeit. Und wenn man das hinbekommt, ist es vielleicht eine Methode, de noch etwas weniger Rechenzeit beansprucht.

Gruß, Michael