aus Excel anrufen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: aus Excel anrufen
von: Anette
Geschrieben am: 27.02.2005 14:23:05
Hallo,
ich habe in Excel ein Adressbuch mit Telefonnummern erstellt. Gibt es eine Möglichkeit, dass beim Anklicken einer Telefonnummer der Anruf automatisch eingeleitet wird?
Gruß Anette

Bild

Betrifft: AW: aus Excel anrufen
von: Nepumuk
Geschrieben am: 27.02.2005 14:25:48
Hallo Anette,
in welcher Spalte ab welcher Zeile stehen die Nummern in der Tabelle?
Gruß
Nepumuk
Bild

Betrifft: AW: aus Excel anrufen
von: danny
Geschrieben am: 27.02.2005 14:36:21
Hallo Anette
Bei Doppelklick auf eine Zelle des Tabellenblattes wird die darin befindliche Telefonnummer gewählt.
Füge den Code in ein Modul ein:
Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long

'Code:
Sub Telefonieren(TelefonNr$, derName$)
Dim retval As Long
retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retval <> 0 Then
MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
End If
End Sub

Füge den Code in die Prozedur des entsprechende Tabellenblatt ein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Variante 1:
'Wenn Telefonnummer in Zelle "A5" steht
'Dim strAdresse$
'strAdresse = Target.Address(False, False)
'If strAdresse = "A1" Then
' Anrufen
'End If
Dim A$
A$ = ActiveCell.Value
MsgBox A$ & strAdresse
End
' Pfad für das Windows-Programm Dialer.exe anpassen
Telefonieren A, "C:\Windows\Dialer.exe"
End Sub

Gruß danny
 Bild

Beiträge aus den Excel-Beispielen zum Thema "In der Userform weitertabben"