AW: gibt es eine funktion für die maus?
29.06.2004 16:38:22
Russi
Du kannst mit "Excel-Bordmitteln" entweder einen Doppelklick oder einen Rechtsklick abfragen. Ein einzelner Mausklick geht nicht, aber es gibt ein SelectionChange-Eieignis, welches wie der Name schon sagt bei Änderung der Markierung tätig wird.
Hier mal 3 Beispiele, such Dir eines aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
ActiveCell.Value = Range("A1").Value
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
ActiveCell.Value = Range("A1").Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveCell.Value = Range("A1").Value
End Sub
Das Makro gehört in den Code des jeweiligen Tabellenblattes.
Viele Grüße
Russi
www.Russi.de.tt