UserForm anzeigen lassen durch Tastenkombination

Hallo Leute,
mein Problem ist, wie kann ich die UserForm anzeigen mit der Tastenkombination Strg +a.
Hintergrund ist der, dass meine Kollegin morgen mit meiner Tabelle arbeiten muss u ich nicht da bin. Deswegen hat sie auch keine Zugriffe auf meine mit Makros hinterlegten Buttons, die bei mir auf der Menueleiste hinterlegt sind.
Kann ich die UserForm jetzt durch die Tastenkombi strg+a starten lassen. Habe angefangen ein Coding zu schreiben, nur leider funktioniert das nicht.
Bitte um hilfe:

Private Sub Workbook_Activate()
Application.OnKey "^a", "UserForm_Activate"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "^a"
End Sub

Private Sub Workbook_Open()
Application.OnKey "^a", "UserForm_Activate"
End Sub

Die UserForm.Show Methode hab ich im Coding Userform_Activate hinterlegt.
Habt ihr nen Tipp für mich?
Ist wirklich wichtig...
Danke Danke Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Danke auch Dir Rudi, das Problem hab ich nun gelöst.
nur jetzt haben sich komischerweise weitere Probleme eröffnet.
Beim Button Sortieren wird die nur die Sortierung der Buchstaben durchgeführt. Muss ich jetzt jedem Sub ne eigenen Button zuweisen?

Private Sub ButtonSortieren_Click()
With Worksheets("ZEUS Themen SFTP MB")
Sortieren // Sub Sortieren wird nicht mehr aufgerufen :(
Dim lngCLC As Long
Dim lngListExist As Long
Dim lngOC As Long
Dim vListArr As Variant
vListArr = Array("R", "A", "B", "C")
lngListExist = Application.GetCustomListNum(vListArr)
If lngListExist > 0 Then
lngOC = lngListExist + 1
Else
Application.AddCustomList listArray:=vListArr
lngCLC = Application.CustomListCount
lngOC = lngCLC + 1
End If
Range("C58").Sort Key1:=Range("C59"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=lngOC, _
MatchCase:=False, Orientation:=xlTopToBottom
If lngListExist = 0 Then Application.DeleteCustomList ListNum:=lngCLC
End With
End Sub

Sub Sortieren()
Dim lastRow As Long
'Letzte Zeile bestimmen
lastRowN = Range("N" & Rows.Count).End(xlUp).Row
lastRowB = Range("B" & Rows.Count).End(xlUp).Row
With Worksheets("ZEUS Themen SFTP MB")
.Range("N59:N" & lastRowN).Sort Key1:=.Range("N59"), _
Order1:=xlDescending, Header:=xlGuess
.Range("B59:B" & lastRowB).Sort Key1:=.Range("B59"), _
Order1:=xlDescending, Header:=xlGuess
End With
End Sub

Beliebteste Forumthreads (12 Monate)

UserForm anzeigen lassen durch Tastenkombination

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm anzeigen lassen durch Tastenkombination

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread