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