UserForm anzeigen lassen durch Tastenkombination

Forumthread: UserForm anzeigen lassen durch Tastenkombination

Viktoria

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

AW: UserForm anzeigen lassen durch Tastenkombination

15.04.2010 14:23:44

Tino

Hallo,
mach es so.
kommt als Code in DieseArbeitsmappe

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

kommt als Code in ein Modul

Option Explicit 
 
Sub UserForm_Activate() 
    UserForm1.Show 
End Sub

Gruß Tino

Sicher ist Sicher

15.04.2010 14:27:35

Tino

Hallo,
in diesem Fall macht es zwar nichts, aber besser ist es Makros nicht doppelt zu vergeben.
kommt als Code in DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_Activate() 
    Application.OnKey "^a", "UserForm_Start" 
End Sub 
 
Private Sub Workbook_Deactivate() 
    Application.OnKey "^a" 
End Sub

kommt als Code in Modul1

Option Explicit 
 
Sub UserForm_Start() 
    UserForm1.Show 
End Sub

Gruß Tino

AW: UserForm anzeigen lassen durch Tastenkombination

15.04.2010 14:29:04

Viktoria

Danke Tino,
hat geklappt, du hast mich gerettet.... :)
Danke Danke Danke

AW: UserForm anzeigen lassen durch Tastenkombination

15.04.2010 14:26:38

Rudi

Hallo,
in ein Modul:

Sub ShowUF()
Userform1.Show
End Sub

In DieseArbeitsmappe:

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

Gruß
Rudi

AW: UserForm anzeigen lassen durch Tastenkombination

15.04.2010 14:38:42

Viktoria

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

AW: UserForm anzeigen lassen durch Tastenkombination

15.04.2010 14:53:54

Oberschlumpf

Hi Viktoria
Wie siehs denn mit ner Antwort von dir in diesem Thread aus?
https://www.herber.de/forum/messages/1151419.html
Ciao
Thorsten

Infobox / Tutorial

UserForm durch Tastenkombination in Excel anzeigen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine UserForm in Excel mit einer Tastenkombination anzuzeigen, kannst du folgende Schritte befolgen:

Öffne den VBA-Editor:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge einen neuen Code in „DieseArbeitsmappe“ ein:
- Wähle im Projekt-Explorer „DieseArbeitsmappe“ und füge den folgenden Code ein:
```
Private Sub Workbook_Activate()
Application.OnKey "^a", "UserForm_Activate"
End Sub
```
Private Sub Workbook_Deactivate() Application.OnKey "^a" End Sub
Füge den Code für die UserForm in ein Modul ein:
- Klicke mit der rechten Maustaste auf „Module“ und wähle „Einfügen“ > „Modul“. Füge dann diesen Code ein:
```
Sub UserForm_Activate()
UserForm1.Show
End Sub
```
Speichere deine Arbeit und schließe den VBA-Editor.
Teste die Tastenkombination:
- Drücke Strg + A, um die UserForm anzuzeigen.

Häufige Fehler und Lösungen

Fehler: UserForm wird nicht angezeigt:
- Stelle sicher, dass der Name der UserForm korrekt ist (UserForm1). Ändere den Namen im Code, falls notwendig.
Fehler: Tastenkombination funktioniert nicht:
- Überprüfe, ob das Workbook aktiv ist und die Makros aktiviert sind. Manchmal kann es sein, dass die Tastenkombination bereits von einer anderen Funktion verwendet wird.

Alternative Methoden

Falls die oben beschriebene Methode nicht funktioniert, kannst du auch andere Tastenkombinationen oder Methoden ausprobieren:

Verwende eine andere Tastenkombination:
- Ändere Application.OnKey "^a" in eine andere Kombination, z.B. Application.OnKey "^b".
Erstelle einen Button:
- Anstatt eine Tastenkombination zu verwenden, kannst du auch einen Button in deiner Excel-Tabelle einfügen, der die UserForm öffnet.

Praktische Beispiele

Hier sind einige praktische Beispiele, die dir helfen können:

UserForm mit verschiedenen Eingabefeldern:
- Du kannst eine UserForm erstellen, die Eingabefelder für die Excel Terminüberwachung enthält, sodass Nutzer direkt Daten eingeben können.
Dynamische UserForm:
- Füge Steuerelemente wie Listenfelder oder Kombinationsfelder hinzu, um die Funktionalität deiner UserForm zu erweitern.

Sub ShowUserForm()
    UserForm1.Show
End Sub

Tipps für Profis

Verwende Excel VBA Hotkeys:
- Du kannst mehrere Hotkeys für verschiedene UserForms gleichzeitig definieren, um die Benutzerfreundlichkeit zu erhöhen.
Makros optimieren:
- Reduziere die Anzahl der Hotkeys, um Konflikte zu vermeiden. Es ist ratsam, eindeutige Tastenkombinationen zu verwenden.

FAQ: Häufige Fragen

1. Wie kann ich die Tastenkombination ändern?
Du kannst die Kombination im Code anpassen. Ersetze ^a durch die gewünschte Kombination, z.B. ^b für Strg + B.

2. Was passiert, wenn die UserForm nicht öffnet?
Überprüfe, ob die Makros aktiviert sind und ob der Code korrekt in das richtige Modul eingefügt wurde. Zudem sollte die UserForm existieren und richtig benannt sein.

3. Kann ich die UserForm auch in Word verwenden?
Ja, die Funktionsweise ist ähnlich, jedoch musst du den Code in das Word VBA-Editor-Fenster einfügen und die entsprechenden Word Makros anzeigen Tastenkombination verwenden.

Beliebteste Forumthreads (12 Monate)

UserForm anzeigen lassen durch Tastenkombination

Forumthread: UserForm anzeigen lassen durch Tastenkombination

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

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

UserForm durch Tastenkombination in Excel anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread