Zwei Bereiche Zwei UF mit Doppelklick
17.09.2008 23:47:00
Frank
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
Anzeige