Office: CommandButton beim Öffnen aktivieren

Guten Tag!

Um mir etwas die Arbeit zu erleichtern beginne ich derzeit wieder mit VBA.

Ziel ist es, eine Worksheet mit einem CommandButton auszustatten, sodass wenn ich eine Tabelle (externe Datenquelle) hineinkopiere, lediglich der Klick auf den Button die gewünschten Änderungen (4 Freizeilen, 5.Zeile fett und filtern) vornimmt. Im Anschluss soll der Button deaktiviert werden, um das Marko nicht "aus Versehen" noch einmal auszuführen.

Dies habe ich versucht wie folgt zu lösen:

Private Sub CommandButton1_Click()
' Makro zur Vorbereitung

For i = 1 To 4 Step 1
Rows(i).Select
Selection.Insert
Next i

Rows("5:5").Select
Selection.Font.Bold = True
Selection.AutoFilter

If CommandButton1.Enabled = False Then

End Sub

mein Problem:
Was kann ich tun, damit der CommandButton beim erneuten Öffnen des Worksheets wieder aktiviert ist/zur Verfügung steht?

Vielen Dank für alle Tipps und Lösungsvorschläge im Voraus!

:)

 

Hallo,

im Code für den CommanButton1 fügst Du eine Anweisung ein:
Code:

Des weiteren fügst Du für dieses Blatt folgende Prozedur ein:
Code:

Gruß
Aloys

 

Hi,

meinst du mit "Öffnen des Worksheets" tatsächlich die Aktivierung des Tabellenblattes oder eher das Öffnen der Arbeitsmappe? Wenn letzteres der Fall sein sollte, dann diesen Code ins Codemodul DieseArbeitsmappe

Code:

 

Funktioniert, vielen Dank!

Das erste mit Bezug auf den Worksheet genügt mir bereits, aber danke für den Hinweis mit "insert"!