Gruppe
Extern
Problem
Bei Doppelklick auf eine Zelle in Spalte A soll die dort stehende Telefonnummer angewählt werden. Die Umgebungseinstellungen in Windows müssen hierfür vorgesehen sein.
ClassModule: Tabelle1
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Cancel = True
Application.SendKeys ActiveCell.Value & "~"
Shell "Dialer", vbNormalFocus
End Sub