17.01.2015, 00:42
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:
In den Codebereich der Tabelle (Makro wird per Doppelklick in die Zelle ausgelöst):
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.
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 SubVBA/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 SubVBA/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