Bei Klick aufs Tabellenblatt > UserForm öffnen!

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

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

Infobox / Tutorial

UserForm bei Klick auf Tabellenblatt in Excel öffnen

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 ein UserForm in Excel zu öffnen, wenn Du auf ein Tabellenblatt klickst, kannst Du die folgenden Schritte befolgen:

Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Wähle das entsprechende Tabellenblatt: Im Projektfenster auf der linken Seite suchst Du das Tabellenblatt, für das Du das UserForm erstellen möchtest.

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

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)

Bei Klick aufs Tabellenblatt > UserForm öffnen!

Forumthread: Bei Klick aufs Tabellenblatt > UserForm öffnen!

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

UserForm bei Klick auf Tabellenblatt in Excel öffnen

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)

Bei Klick aufs Tabellenblatt > UserForm öffnen!

Forumthread: Bei Klick aufs Tabellenblatt > UserForm öffnen!

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

UserForm bei Klick auf Tabellenblatt in Excel öffnen

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)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread