Zeilen per Code ein- und ausblenden
13.01.2015 12:50:45
Jessica
ich habe folgenden Code im Internet gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
Select Case Target
Case "OP2"
Columns("L:Q").EntireColumn.Hidden = True
Columns("E:K").EntireColumn.Hidden = False
Case "KAP"
Columns("L:Q").EntireColumn.Hidden = False
Columns("E:K").EntireColumn.Hidden = True
End Select
End If
End Sub
Der funktioniert auch super, das einzige was ich gerne verändern würde ist, dass ich nicht die Spalten ausblenden möchte, sondern die Zeilen.
Kann mir jemand kurz helfen?
Liebe Grüße,
Jessica
Anzeige