Christian98
Ensign
- Registriert
- März 2014
- Beiträge
- 226
Hi,
ich bin gerade dabei in eine Tabelle eine Funktion einzufügen, dass wenn ich auf Bestimmte Zellen Klicke, dann sollten die Zeilen darunter ein bzw. ausgeblendet werden.
Ich bin aktuell bereits so weit, dass es fürs erste funktionieren würde, jedoch habe ich noch ein Problem und zwar ist diese Funktion auf bestimmte Zellen bezogen, wenn ich also wine neue Zeile darüber einfüge, dann wird das ganze Makro um eine Zeile verschoben.
Hier der Code des Makros:
Hat jemand eine Idee?
ich bin gerade dabei in eine Tabelle eine Funktion einzufügen, dass wenn ich auf Bestimmte Zellen Klicke, dann sollten die Zeilen darunter ein bzw. ausgeblendet werden.
Ich bin aktuell bereits so weit, dass es fürs erste funktionieren würde, jedoch habe ich noch ein Problem und zwar ist diese Funktion auf bestimmte Zellen bezogen, wenn ich also wine neue Zeile darüber einfüge, dann wird das ganze Makro um eine Zeile verschoben.
Hier der Code des Makros:
C:
Private Sub Beispiel1()
Application.ScreenUpdating = False
If Sheets("Tabelle2").Range("$H$3").Value = "Ausblenden" Then
For i = 1 To 100
If Cells(i, 2).Value = "1" Then
Rows(i).Hidden = True
Range("H3").Value = "Einblenden"
End If
Next i
Else
For i = 1 To 100
If Cells(i, 2).Value = "1" Then
Rows(i).Hidden = False
Range("H3").Value = "Ausblenden"
End If
Next i
End If
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$H$3" Then Call Beispiel1
End Sub
Hat jemand eine Idee?
Anhänge
Zuletzt bearbeitet:
(Datei Angehängt)