Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

[Word und Excel] Telefonnummern wählen
#1
Sie möchten Telefonnummern aus Excel und Word wählen? Voraussetzung ist ein TAPI/CIT-fähiges Telekommunikationsendgerät (Festnetztelefon, Telefonanlage, Mobiltelefon mit passendem Treiber).

Excel:

In ein Standardmodul:

Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long

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





VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 15

In den Codebereich der Tabelle (Makro wird per Doppelklick in die Zelle ausgelöst):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Anrufen 'Die Zahl entspricht der Spalte mit der Telefonnummer
Cancel = True
End Sub
Sub Anrufen()
Dim A$
A$ = ActiveCell.Value
Telefonieren A, "C:\WindowsNT\Dialer.exe"
End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 15

Auch in Worddokumenten lassen sich Telefonnummern wählen. Jedoch kann man das in Word nur mit einem Template (Vorlage) global verfügbar machen.
Der Code muss in ein Standardmodul. Das Dokument dann als Template (*.dot, *.dotm) speichern und in den Startup-Ordner verschieben. Das Makro "WählHilfeAufrufen" einfach in die Schnellzugriffleiste oder in das Menüband bzw. in eine Symbolleiste (je nach Officeversion) legen. Zum Wählen die Telefonnummer markieren und auf die Schaltfläche klicken.

Option Explicit
Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long

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

Sub WählHilfeAufrufen()
On Error Resume Next
Dim cancel As Boolean
Dim A$
A$ = Selection
Telefonieren A, " "
cancel = True
End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 15
[-] Folgende(r) 1 Nutzer sagt Danke an mumpel für diesen Beitrag:
  • nobody
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste