Zellen mit Verknüpfung ausblenden wenn...
29.10.2015 16:04:07
Axel
meine VBA-Kenntnisse tendieren gegen 0, ich habe aber nach langem suchen und testen jetzt eine fast funktionierende Tabelle geschaffen. An einem Punkt hakt es leider, ich hoffe ihr könnt mir weiter helfen.
Folgendes soll ablaufen:
Per Klick auf verschiedene Buttons soll ein Wert "x" oder "-" in eine versteckte Zelle (z.B. E,1) geschrieben werden.
Verschiedene Zeilen sind in der Spalte A auf E,1 verknüpft.
Per Click auf einen anderen Button sollen nun alle Zeilen ausgeblendet werden wenn in Spalte A ein "x" steht. Andernfalls sollen sie eingeblendet werden.
Da weiterhin Zeilen eingefügt oder gelöscht werden sollen, ist die Programmierung eines festen Bereichs nicht sinnvoll.
Das Problem scheint da zu liegen, dass die Verknüpfung in der Spalte A als "=E1" erkannt wird und nicht wie gewünscht als "x".
Könnt ihr mir weiterhelfen?
Hier noch meine bisherige Programmierung:
Private Sub ToggleButton4_Click()
If ToggleButton4.Caption = "AN" Then
ToggleButton4.Caption = "AUS"
Cells(1, 5) = "x"
Else
ToggleButton4.Caption = "AN"
Cells(1, 5) = "-"
End If
End Sub
Private Sub ToggleButton18_Click()
Dim Zelle As Range
For Each Zelle In Range("A1:A500")
If Zelle = "x" Then Zelle.EntireRow.Hidden = True Else Zelle.EntireRow.Hidden = _
False
Next
End Sub
Anzeige