Ich habe den untenstehenden VBA Code, möchte nun aber das diese aktiviert wird wenn auf den CommandButton "Update" gedrückt wird und nicht wenn Zelle C7 geändert wird.
Herzlichen Dank für eure Hilfe!!!
Richard
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
If Intersect(Target, Range("C7")) Is Nothing Then Exit Sub
For lngZ = 12 To 150 ' in Zeilen 12:150
Select Case Cells(lngZ, 1) ' prüfe Spalte A
Case "": ' nichts tun
Case 0: Rows(lngZ).Hidden = True
Case 1: Rows(lngZ).Hidden = False
Case Else: ' nichts tun
End Select
Next lngZ
End Sub