[VBA] Zeilen einblenden, wenn Wert in Spalte A/B
11.08.2015 15:21:18
Christoph
ich habe folgendes Problem:
Ich habe eine Tabelle, in der in Spalte A und B Zahlenwerte stehen, die die Zugehörigkeit der Zeile definieren.
Mit meinem ToggleButton Code kann ich entwerder Spalte A oder Spalte B nach einem Wert durchsuchen, nur wie kann ich den Code umschreiben, sodass er mir in Spalte A und B sucht und wenn der Wert in einer der Spalten vorhanden ist, mir die zeile eingeblendet lässt, unabhägig davon welcher Wert in der anderen Spalte steht?
Private Sub AsBtn1_Click()
Dim L As Long
Application.ScreenUpdating = False
AsBtn1.Caption = IIf(AsBtn1.Value = True, "BVH allgemein aktiv", "BVH allgemein")
AsBtn1.BackColor = IIf(AsBtn1.Value = True, &H8000000D, &H8000000F)
If AsBtn1.Value = True Then
For L = 7 To 70
Rows(L).Hidden = Cells(L, 1) = "1" = False
Next
Else
ActiveSheet.Cells.EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
Rows(L).Hidden = Cells(L, 1) = "1" = False
Zeile auf
If Range(Cells(L, 1), Cells(L, 2)) = "1" Then
Rows(L).Hidden = False
änder bekomme ich "typen unverträglich"- fehler
Mit freundlichen Grüßen
Christoph Ruck
Anzeige