Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform öffnen, sobald eine beliebige Z

Forumthread: Userform öffnen, sobald eine beliebige Z

Userform öffnen, sobald eine beliebige Z
25.05.2020 00:01:17
Timo
Hi Leute,
ich will einen Code schreiben, der eine Userform öffnet, sobald eine beliebige Zelle angewählt wird.
Das ist mein simpler (leider nicht funktionaler) Versuch.
Wer kann's besser?

Sub Test()
Dim x As String
x = target.Address
If x  "" Then
UserForm1.Show
End If
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform öffnen, sobald eine beliebige Z
25.05.2020 00:31:23
Werner
Hallo,
du willst tatsächlich, egal welche Zelle in einem Blatt ausgewählt wird, immer die Userform öffnen?
Oder soll das nur für einen bestimmten Zellbereich im Tabellenblatt gelten?
Gruß Werner
AW: Userform öffnen, sobald eine beliebige Z
25.05.2020 00:47:19
GerdL
Moin 
'Ins Modul DieseArbeitsmappe
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
UserForm1.Show
End Sub

Gruß Gerd
Anzeige
AW: Userform öffnen, sobald eine beliebige Z
25.05.2020 05:53:13
Hajo_Zi
für einen Bereich. 
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range
Set RaBereich = Range("A1:C40")
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
UserForm1.Show
End If
Set RaBereich = Nothing
End Sub

Anzeige
AW: Userform öffnen, sobald eine beliebige Z
25.05.2020 14:39:08
Timo
Vielen Dank, hat mir sehr geholfen!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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