Danke Danke
25.11.2008 21:53:54
sonja
Hallo Matthias,
nochmals vielen dank und 1000 küsse.
ich habe deinen code direkt ins tabellenblatt (Bestellung) eingefügt.
So funktioniert es super bei mir.
Const Symbolleistenname = "Bestellung"
Private Sub Worksheet_Activate()
Schließenkreuz_ausblenden
Dim cb As CommandBar
For Each cb In Application.CommandBars
Select Case cb.Name
Case "Formatting", Symbolleistenname, "Cell"
cb.Enabled = True
Case Else
cb.Enabled = False
End Select
Next cb
SymbolleisteBestellung_erstellen
End Sub
Private Sub Worksheet_Deactivate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
Application.CommandBars(Symbolleistenname).Delete
SymbolleisteBestellung_schließen
End Sub