Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1008to1012
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
Inhaltsverzeichnis

Zwei Bereiche Zwei UF mit Doppelklick

Zwei Bereiche Zwei UF mit Doppelklick
17.09.2008 23:47:00
Frank
Hallo zusammen, schlage mir mal wieder die nacht um die Ohren.
Vielleicht kann man mir ja irgendwie helfen.
Ich habe ein Tabellenblatt in dem es Zwei Bereiche gibt. Ich möchte nun jeweils die Bereiche mit einer UF per doppelklick ansprechen. Wie schaffe ich es,dass ich den zweiten Bereich von E8 bis E233 mit einer Userform namens Anzeige2 aufrufen kann?
Danke jetzt schon für so manche Mühe
Gruß Frank

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set OldRange = ActiveCell
Set Bereich = Application.Union(Tabelle5.Range("H8:AL41") _
, Tabelle5.Range("H56:AI89"), Tabelle5.Range("H104:AL137") _
, Tabelle5.Range("H152:AK185"), Tabelle5.Range("H200:AL233") )
If Application.Intersect(Bereich, OldRange) Is Nothing Then
MsgBox "Ungültiger Bereich"
Else
With Anzeige1.Show
End With
Cancel = True
End If
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige