AW: Telefonieren direkt aus der Excel Datei
31.12.2005 19:34:03
Reinhard
Hi Peter,
dann steht der Doubleclick Code im falschen Codeteil. Wechseln zwischen Modul1 und Tabelle1 mit Doppelklick !
'In ein Modul:
Option Explicit
Private Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal Nummer As String, ByVal AppName As String, _
ByVal AnruferName As String, ByVal Kommentar As String) As Long
Function Wählen(Telefonnummer As String, Tname)
Dim Erfolg&
Erfolg = tapiRequestMakeCall(Telefonnummer, "", Tname, "")
If Erfolg <> 0 Then Wählen = True
End Function
'In den Codeteil von Tabelle1
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim Rück
If Target.Column < 12 Or Target.Column > 14 Then Exit Sub
Rück = Wählen(Target.Value, Cells(Target.Row, 3))
End If
End Sub
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.