Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Prüfen ob zellen in bestimmten Bereichen liegen

Prüfen ob zellen in bestimmten Bereichen liegen
Christian
Hallo Zusammen,
ich möchte über die Doppelklick Eigenschaft der Arbeitsmappe folgendes erreichen: Bei Doppelklick auf Zelle in Bereich A1:A50 soll eine UserForm angezeigt werden, Bei Doppelklick auf eine Zelle im Bereich C1:C50 soll eine andere UserForm angezeigt werden. Mit einem Bereich habe ich es mit intersect hinbekommen, aber wie mache ich das mit den zwei Bereichen?
Viele Grüße
Christian
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Prüfen ob zellen in bestimmten Bereichen liegen
21.01.2012 22:29:15
Matthias
Hallo
Dann mach doch das Gleiche für Userform2 nur eben mit dem anderen Bereich
Gruß Matthias
AW: Prüfen ob zellen in bestimmten Bereichen liegen
21.01.2012 22:34:56
CitizenX
Hi,
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim blnBereich1 As Boolean, blnBereich2 As Boolean
blnBereich1 = Not Intersect(Target, Range("A1:A50")) Is Nothing
blnBereich2 = Not Intersect(Target, Range("C1:C50")) Is Nothing
Select Case True
Case blnBereich1
UserForm1.Show
Case blnBereich2
UserForm2.Show
End Select
End Sub

Grüße
Steffen
Anzeige
so viele Zeilen Code ;o)
21.01.2012 22:37:56
Matthias
Hi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then UserForm1.Show
If Not Intersect(Target, Range("C1:C50")) Is Nothing Then UserForm2.Show
End Sub
Reicht doch, oder?
Gruß Matthias
Anzeige
..mir war langweilig ;-) Grüße oT.
21.01.2012 23:08:09
CitizenX
Danke!
22.01.2012 22:39:30
Christian
Hallo Zusammen,
herzlichen Dank, funktioniert.
Gruß
Christian

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige