Hallo,
ich würde gerne die Kopfzeile bei Excel durch eine Tastenkombination ändern.
Aber wenn ich diesen folgenden Code anwende, kann Excel mit "Kopfzeile" nichts anfangen. Es ist wie als würde er den Sub nicht finden können.
Was natürlich sein könnte ist, dass ich die Code Schnipsel in ein Modul packen muss. Momentan suche ich aber nach einer Lösung bei der ich das eben nicht in ein Modul packen muss.
Option Explicit
Private Sub Workbook_Open()
Application.OnKey "^+b", "Kopfzeile"
Application.OnKey "^+v", "Kopfzeile2"
Application.OnKey "^+n", "Kopfzeile3"
End Sub
Private Sub Kopfzeile()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeaderPicture.Filename = "C:\Logo\test1.png"
.RightHeader = "&G"
End With
End Sub
Private Sub Kopfzeile2()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeaderPicture.Filename = "C:\Logo\test2.png"
.RightHeader = "&G"
End With
End Sub
Private Sub Kopfzeile3()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
End With
End Sub
Kann mir da jemand weiterhelfen?
|