Zurück zur Homepage

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 StringByVal AppName As String, _
    
ByVal AnruferName As StringByVal Kommentar _
    
As StringAs 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