Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
User form einfügen mit klick auf zelle
05.08.2013 19:07:57
mikey
Hi,
Möchte gerne eine Userform einfügen, die man mit klick auf einem
gewissen Zellenbereich dann eingeblendet wird.
Die erste funktioniert einwandfrei.
Nur die 2te läßt sich nicht starten, es gibt auch keine Fehlermeldung
Anbei der Makro Code in der entsprechenden Tabelle
If Intersect(Range("AQ13:AQ192"), Target) Is Nothing Then Exit Sub
Set grngCell = Target
UserForm1.Show
If Intersect(Range("BC26:BC192"), Target) Is Nothing Then Exit Sub
Set grngCell = Target
UserForm2.Show
End Sub
Hier der Macro Code von der Userform,
Option Explicit
Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect Password:="test" '

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: User form einfügen mit klick auf zelle
05.08.2013 19:15:31
hary
Moin
Weil Teil 2 nie ausgefuehrt wird. Springt ausserhalb von AQ13:AQ192 immer ins Exit.
Versuch mal so.
If Not Intersect(Range("AQ13:AQ192"), Target) Is Nothing Then
Set grngCell = Target
UserForm1.Show
End If
If Not Intersect(Range("BC26:BC192"), Target) Is Nothing Then
Set grngCell = Target
UserForm2.Show
End If

gruss hary

AW: User form einfügen mit klick auf zelle
05.08.2013 21:20:26
mikey
Hallo
danke für die rasche Info und den Makro Code
Es funktioniert perfekt.
lg
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige