Herbers Excel-Forum - das Archiv
Kontextmenü verhindern
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ ComboBox
- Kontextmenü verhindern von Franz W. vom 10.10.2003 08:15:52
- AW: Kontextmenü verhindern - von K.Rola am 10.10.2003 10:40:16
- Toll, so einfach (wenn man's weiß!!) - von Franz W. am 10.10.2003 11:55:42
- AW: Toll, so einfach (wenn man's weiß!!) - von K.Rola am 10.10.2003 23:24:53
- AW: Toll, so einfach (wenn man's weiß!!) - von K.Rola am 10.10.2003 23:24:53
- Toll, so einfach (wenn man's weiß!!) - von Franz W. am 10.10.2003 11:55:42
- AW: Kontextmenü verhindern - von K.Rola am 10.10.2003 10:40:16
 |
Betrifft: Kontextmenü verhindern
von: Franz W.
Geschrieben am: 10.10.2003 08:15:52
Guten Morgen Forum,
ich möchte in der Spalte C per Rechtsklick auf die Zelle eine Combobox aufrufen:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
r = Target.Row
c = Target.Column
If Not c = 3 _
Or r < 10 Or r > 104 _
Or r > 27 And r < 46 _
Or r > 47 And r < 57 _
Or r > 59 And r < 78 _
Or r > 87 And r < 97 Then
CB_1.Visible = False
Exit Sub
End If
CB_1.ListFillRange = "alle_kunden!NrnNamen"
CB_1.Top = Selection.Top
' CB_1.Left = Selection.Left + Selection.Width + 60
CB_1.Left = Selection.Left - 129
CB_1.ListIndex = -1
CB_1.Visible = True
End Sub
Allerdings geht dabei auch noch das Kontextmenü auf. Lässt sich das irgendwie verhindern, das Kontextmenü soll gar nicht erscheinen.
Vielen Dank schon mal für Eure Hilfe
Grüße
Franz
 |
Betrifft: AW: Kontextmenü verhindern
von: K.Rola
Geschrieben am: 10.10.2003 10:40:16
Hallo,
.............
...........
CB_1.ListIndex = -1
CB_1.Visible = True
End Sub
Cancel = true
Gruß K.Rola
|
Betrifft: Toll, so einfach (wenn man's weiß!!)
von: Franz W.
Geschrieben am: 10.10.2003 11:55:42
Hallo K.Rola,
vielen Dank, klappt genau so wie es soll. (Nur die letzten beiden Zeilen umzustellen hab ich mir erlaubt :-))).
Danke und Grüße
Franz
|
Betrifft: AW: Toll, so einfach (wenn man's weiß!!)
von: K.Rola
Geschrieben am: 10.10.2003 23:24:53
Hallo,
na gut, ausnahmsweise gestattet:°)
Gruß K.Rola
| |