Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bei Klick aufs Tabellenblatt > UserForm öffnen!

Bei Klick aufs Tabellenblatt > UserForm öffnen!
25.05.2007 17:38:00
Lenhard
Moin!
...ich habe es schon mal hier im Forum gesehen, finde es aber leider nicht wieder:
Wenn ich auf ein Tabellenblatt klicke, so öffnet sich ein UserForm. Wie geht das noch mal?
Allerdings: Das Tabellenblatt von mir, welches ich mit dieser gewünschten Funktion ausstatten möchte ist kpl. gesperrt! ...wenn diese Info noch wichtig sein sollte. Ich erinnere mich leider nicht daran, wie es in dem Beispiel hier im Forum war.
Viele Grüße aus dem hohen Norden!
Lenhard

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick aufs Tabellenblatt > UserForm öffnen!
25.05.2007 17:47:00
Jens
Hallo Lenhard
Je nachdem, wie Du die UF aufrufen möchtest, hier ein paar Beispiele:

Private Sub Worksheet_Activate()
Userform1.Show
End Sub



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Userform1.Show
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Userform1.Show
End Sub


So ist es nicht zu empfehlen,...


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Userform1.Show
End Sub


...da Du dann das Kontextmenü bei einem Rechtsklick nicht aufrufen kannst
Gruß aus dem Sauerland
Jens

Anzeige
AW: Bei Klick aufs Tabellenblatt > UserForm öffnen!
25.05.2007 18:15:04
Lenhard
Danke Jens!
...und dann gleich so viele Beispiele! Super!
Das mit dem Doppelklick gefällt mir sehr, doch wenn ich per Doppelklick das UserForm nun starte, so erscheint nach dem schließen des UserForm immer die Meldung "Das Diagramm/Die Tabelle die Sie versuchen zu ändern ist geschützt... usw. usw. ..." ...und diese muss dann durch klick auf den OK-Button geschlossen werden.
Kann man diese Meldung irgendwie unterdrücken? Das kann in meinem Fall ruhig global für die ganze Datei sein.
Gruß
Lenhard

Anzeige
AW: Bei Klick aufs Tabellenblatt > UserForm öffnen!
25.05.2007 20:01:00
Jens
Hallo Lenhard
Dann so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Userform1.Show
Cancel = true
End Sub


Gruß aus dem Sauerland
Jens

AW: Bei Klick aufs Tabellenblatt > UserForm öffnen
25.05.2007 20:03:00
KViertel
Hallo Lenhard,
Der Befehl heißt DisplayAlerts = False, am Schluß mit DisplayAlerts = True wieder einschalten.
MfG. Klaus

Anzeige
AW: Bei Klick aufs Tabellenblatt > UserForm öffnen!
25.05.2007 22:23:00
Lenhard
Vielen Dank Euch allen!!
Nun läuft es perfekt!!!
Gruß
Lenhard
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

UserForm bei Klick auf Tabellenblatt in Excel öffnen


Schritt-für-Schritt-Anleitung

Um ein UserForm in Excel zu öffnen, wenn Du auf ein Tabellenblatt klickst, kannst Du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Wähle das entsprechende Tabellenblatt: Im Projektfenster auf der linken Seite suchst Du das Tabellenblatt, für das Du das UserForm erstellen möchtest.

  3. Füge den Code ein: Wähle das Tabellenblatt aus und füge im Codefenster einen der folgenden Codes ein, je nach gewünschter Aktion:

    • Bei Aktivierung des Blattes:

      Private Sub Worksheet_Activate()
       Userform1.Show
      End Sub
    • Bei Doppelklick:

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       Userform1.Show
       Cancel = True
      End Sub
    • Bei Auswahländerung:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Userform1.Show
      End Sub
  4. Speichere Deine Änderungen: Schließe den VBA-Editor und speichere Deine Excel-Datei.


Häufige Fehler und Lösungen

  • Fehlerhafte Anzeige des UserForms: Wenn das UserForm nicht angezeigt wird, stelle sicher, dass Du den richtigen Namen des UserForms (z.B. Userform1) verwendest.
  • Meldungen bei geschützten Tabellen: Wenn Du nach dem Schließen des UserForms eine Meldung erhältst, dass die Tabelle geschützt ist, kannst Du den Code wie folgt anpassen, um diese Meldung zu unterdrücken:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Userform1.Show
      Cancel = True
    End Sub

Alternative Methoden

Wenn Du eine andere Methode bevorzugst, um ein UserForm zu öffnen, kannst Du folgende Ansätze ausprobieren:

  • Rechtsklick: Verwende den Code für den Rechtsklick, um das UserForm zu öffnen, jedoch beachte, dass das Kontextmenü dadurch nicht mehr verfügbar ist.

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
      Userform1.Show
      Cancel = True
    End Sub
  • Schaltflächen oder Formulare: Du kannst auch Schaltflächen oder andere Formularsteuerelemente verwenden, um das UserForm zu öffnen.


Praktische Beispiele

Hier sind einige praktische Beispiele, die Dir helfen, das UserForm sinnvoll zu nutzen:

  • Benutzerregistrierung: Öffne ein UserForm zur Eingabe von Benutzerdaten, wenn ein bestimmtes Blatt aktiviert wird.
  • Datenabfrage: Nutze das UserForm, um bei einem Doppelklick auf eine Zelle eine Abfrage für weitere Informationen zu starten.

Tipps für Profis

  • DisplayAlerts ausschalten: Um störende Meldungen global abzuschalten, kannst Du den Befehl Application.DisplayAlerts = False verwenden und Application.DisplayAlerts = True am Ende wieder aktivieren.
  • Zugriffsschutz: Wenn Du ein UserForm in einem geschützten Blatt öffnen möchtest, achte darauf, dass Du die Schutzfunktion ggf. temporär aufhebst.

FAQ: Häufige Fragen

1. Wie kann ich ein UserForm bei einem Klick auf eine Zelle anzeigen?
Verwende den Worksheet_SelectionChange-Event, um das UserForm beim Klicken auf eine bestimmte Zelle anzuzeigen.

2. Was kann ich tun, wenn das UserForm nach dem Schließen eine Fehlermeldung anzeigt?
Setze das Cancel-Flag auf True im Doppelklick-Event, um diese Meldung zu unterdrücken.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige