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

Forumthread: Symbolleiste erzeugen

04.06.2003 10:33:31

MikeS

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)

Forumthread: Symbolleiste erzeugen

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

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread