Hallo Leute,ich erzeuge bei jedem Öffnen der Mappe eine Symbolleiste mit 6 Buttons.
Wie kann ich Trennlinien zwischen den 4 /5 und 5/6 Button einbauen?
mein Code:
Private Sub Workbook_Open()
Dim Menue
Dim Button1, Button2, Button3, Button4, Button5, Button6
Set Menue = Application.CommandBars.Add(Name:=" Navigationshilfe", Temporary:=True)
With Menue
.Visible = True
.Top = 130
.Left = 28
End With
Set Button1 = Menue.Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
With Button1
.Style = msoButtonIconAndCaption
.Caption = "erste Zeile"
.FaceId = 594
.OnAction = "ErsteZelle"
End With
Set Button2 = Menue.Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
With Button2
.Style = msoButtonIconAndCaption
.Caption = "erste Spalte"
.FaceId = 154
.OnAction = "GeheNachLinks"
End With
Set Button3 = Menue.Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
With Button3
.Style = msoButtonIconAndCaption
.Caption = "letzte Zeile"
.FaceId = 597
.OnAction = "GoToEnde"
End With
Set Button4 = Menue.Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
With Button4
.Style = msoButtonIconAndCaption
.Caption = "letzte Spalte"
.FaceId = 157
.OnAction = "GeheNachRechts"
End With
Set Button5 = Menue.Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
With Button5
.Style = msoButtonIconAndCaption
.Caption = "nächste TNR."
.FaceId = 129
.OnAction = "NächsteTeilenummer"
End With
Set Button6 = Menue.Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
With Button6
.Style = msoButtonIconAndCaption
.Caption = "alle Filter entfernen"
.FaceId = 605
.OnAction = "AlleFilterEntfernen"
End With
End Sub
Vielen DankMikeS
Code eingefügt mit Syntaxhighlighter 2.1