Hallo zusammen

Ich möchte zwei funktionsfähige vba's zu einem zusammenführen. Habt Ihr für mich eine Lösung, ich krieg das leider nicht hin, da ich zu wenig Kentnisse habe.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$25" Then
Cells.EntireRow.Hidden = False
Select Case Target.Value
Case "N80/80", "N80/70", "N80/60", "N80/50", "N80/49"
Rows("54").EntireRow.Hidden = True
Case "N35/30", "N35/35", "N35/40", "N35/49", "N35/50", "N55/30", "N55/35", "N55/40", "N55/45", "N55/49", "N55/55"
Rows("55").EntireRow.Hidden = True
End Select
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$51" Or Target.Address = "$F$11" Then
Range("E53:F53").ClearContents
End If
End Sub


LG
Roger