Symbolleiste erzeugen

Hallo,
habe noch ein paar kleine Änderungen vorgenommen.
So klappt's:

In: Diese Arbeitsmappe
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Application.CommandBars("    Navigation").Delete
End Sub

Private Sub Workbook_Open()
      Dim Menue
      Dim Button1, Button2

      Set Menue = Application.CommandBars.Add(Name:="    Navigation", Temporary:=True)
            With Menue
                  .Visible = True
                  .Top = 220
                  .Left = 50
            End With

      Set Button1 = Menue.Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
            With Button1
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Zelle aktivieren"
                  .FaceId = 157
                  .OnAction = "GoToEnde"
            End With

      Set Button2 = Menue.Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
            With Button2
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Zelle aktivieren"
                  .FaceId = 154
                  .OnAction = "ErsteZelle"
            End With
End Sub

In: einem Modul
Option Explicit

Sub GoToEnde()
      'letze Zelle in Spalte A selektieren
      With ActiveWorkbook.ActiveSheet
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Select
      End With
End Sub

Sub ErsteZelle()
      'erste Zelle in Spalte A selektieren
      With ActiveWorkbook.ActiveSheet
            [A7].Select
      End With
End Sub

Jedenfalls vielen Dank für Deinen Tip.
Ciao MikeS

Code eingefügt mit Syntaxhighlighter 2.1

Hallo Leute,
ich habe eine Symbolleiste Navigation an meine Arbeitsmappe angebunden.
Auf meiner Symbolleiste Symbolleiste befinden sich 2 Buttons, die jeweils mit
einem Makro GoToEnde und ErsteZelle verknüpt sind.
Desweiteren habe ich zusätzlich zur Beschriftung der Buttons je ein Icon Nr.154+157
(ähnlich Access - gehe zum letzten/ersten Datensatz) aus Herbers Symbol-Picker-AddIn
eingefügt.
Button1 letzte Zelle auswählen + Icon 157
Button2 erste Zelle auswählen + Icon 154

Der Dateiname wird ständig verändert (Version 1, 2 usw.) und somit müssen die hinterlegten
Makros jedesmal neu den Schaltflächen zugewiesen werden.
Ich habe versucht mit Add beim öffnen der Mappe eine neue Leiste zu erstellen,
die beim BeforeClose-Ereignis wieder gelöscht wird, doch leider kriege ich das
mit den Icons nicht hin.
Wer kann mir dabei helfen?
Vielen Dank MikeS
Hier der bisherige Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Application.CommandBars("Navigation").Visible = False
End Sub

Private Sub Workbook_Open()
      Application.CommandBars("Navigation").Visible = True
End Sub

Sub GoToEnde()
      'letze Zelle in Spalte A selektieren
      With ActiveWorkbook.ActiveSheet
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Select
      End With
End Sub

Sub ErsteZelle()
      'erste Zelle in Spalte A selektieren
      With ActiveWorkbook.ActiveSheet
            [A7].Select
      End With
End Sub

Code eingefügt mit Syntaxhighlighter 2.1

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread