Wählen

Mittels der Wählhilfe wird eine Nummer gewählt.

Beispieldatei (waehlen.zip 9 kB)

 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

 Public Function Wählen(Telefonnummer As String)
  Dim Erfolg&
  Erfolg = tapiRequestMakeCall(Telefonnummer, "", "Michael", "")
  If Erfolg <> 0 Then Wählen = True
End Function

Per Doppelklick auf eine Zelle in Spalte 1

Beispieldatei (waehlen1.zip 8 kB)
 

In das Klassenmodul eines Tabellenblatts

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As _
Excel.Range, Cancel As Boolean)
With Target
    'Eine Zelle in Spalte 1 doppelklicken
    If .Column = 1 Then
        If Wählen(.Value) = False Then MsgBox "Verbindung nach :" & _
                    .Value & vbCrLf & "fehlgeschlagen!"
    End If
End With
End Sub

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

Public Function Wählen(TNummer As String)
Dim Erfolg&, i&, dummy As String
TNummer = Trim(TNummer)
For i = 1 To Len(TNummer)
    If IsNumeric(Mid(TNummer, i, 1)) Then
        dummy = dummy & Mid(TNummer, i, 1)
    End If
Next
'Mit Amtsholung
'TNummer = "0" & dummy
'Mit Amtsholung und Wartezeit (Bei Modem)
'TNummer = "0," & dummy
'Ohne Amtsholung
TNummer = dummy
If IsNumeric(TNummer) Then
    Erfolg = tapiRequestMakeCall(TNummer, "", "Michael", "")
Else
    MsgBox TNummer, vbInformation, "Keine gültige Telefonnummer"
End If
If Erfolg = 0 Then Wählen = True
End Function