Commandbutton Enable = False, aber wie?
Maik.F
Ich habe 3 Tabellenblätter und auf jedem Tabellenblatt drei
Schaltflächen, um in die anderen Blätter zu wechseln.
Die Schaltfläche des gerade aktiven Tabellenblattes soll
natürlich auf .Enabled = False gesetzt werden.
Mein Makro Azeige soll allgemein gehalten werden und nur
unter "DieseArbeitsmappe" stehen, damit ich eventuelle Änderungen
nicht dreimal machen muß.
Hier mal mein Beispielcode:
In den Tabellen läuft der folgende Code:
Private Sub Worksheet_Activate()
Call DieseArbeitsmappe.Anzeige
End Sub
Unter "DieseArbeitsmappe" steht:
Sub Anzeige()
ActiveSheet.CommandButton1.Caption = Tabelle1.Name
ActiveSheet.CommandButton2.Caption = Tabelle2.Name
ActiveSheet.CommandButton3.Caption = Tabelle3.Name
For i = 1 To 3
If ActiveSheet.Name = Controls("CommandButton" & i).Caption Then
Controls("CommandButton" & i).Enabled = False
End If
Next
Application.Goto reference:=Range("A1"), Scroll:=True
Selection.AutoFilter
Range("A2:F2").AutoFilter
...
End Sub
Die Schleife funktioniert leider nicht. Kann mir da jemand weiterhelfen?
Vielen Dank im Voraus
Maik
Anzeige