Excel VBA – Mit CommandButton1_Click einen Wert in eine Zelle schreiben

Question

Ich habe einen Datenbereich von A4:V10550. Wie kann ich in die Zelle A2 einen Wert (z.B 1)  schreiben, wenn ich CommandButton1_Click() anklicke und beim Autofilter in der Spalte A4:A10550 Werte vorhanden sind.

Private Sub CommandButton1_Click()

Sheets("Tabelle1").Select

ActiveSheet.Unprotect

ActiveSheet.Range("$A$4:$V$10550").AutoFilter Field:=1, Criteria1:="<>"

Sheets("Tabelle1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowFiltering:=True

End Sub

Answer 1

Hallo Claus

Funktioniert.

Vielen Dank

Dölf

Answer 2

Hallo,

bereinige deine aufgezeichneten Makros. Referenziere direkt. Dann brauchst du keine Select und Activate. Das verlangsamt nur den Code und macht Bildschirmflackern.

Probiere mal:

Private Sub CommandButton1_Click()

With Sheets("Tabelle1")

   .Unprotect

   .Range("$A$4:$V$10550").AutoFilter Field:=1, Criteria1:="<>"

   .Range("B1") = IIf(Application.Subtotal(3, .Range("A1:A100")) > 1, 1, 0)

   .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

        , AllowFiltering:=True

   .AutoFilterMode = False

End With

End Sub

Claus