telefoonnummer in excel cel klikeble maken om te bellen

[siguemepro]

Beste Leden,

hoe kan ik in mijn werkbladen een telefoonnummer aanklikken en dan deze te bellen.
ik heb een marco gevonden maar weet echt niet hoe deze in te passen in mijn werkbladen.

wie o wie kan mij op weg helpen want op youtube kan ik hier niks over vinden ;-)

ik werk nu met excel 2016. heb de ontwikkelaars keuze aan gezet. maar dan?????

alvast bedankt voor jullie antwoorden en hulp.
grtjes
siguemepro

macro telefoonnummer kiezen :

Sub TelefoonKiezen()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Kies een cel met een telefoonnummer."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%m"
' Application.SendKeys "{TAB}~", True
End Sub

 

[cow18]

mogen we "marco" dan ook even zien of een linkje daar naar toe ?

 

[siguemepro]

sorry vergeten, heb de macro toegevoegd aan mijn bericht

 

[edmoor]

Doe het eens zo in je werkblad met een telefoonnummer in A1 en deze formule in B1:

=HYPERLINK("TEL:"&A1;A1)

 

[siguemepro]

@edmoor
als ik dit dus doe moet ik een extra kolom aanzetten met deze hyperlink?

moet ik dan de A1 wijzigen in de cel waar ik het nummer heb staan?

=HYPERLINK("TEL:"&A1;A1)
dus hoe doen ik dan dan vanuit mijn mobiel om te bellen??

grtjes
Siguemepro

 

[edmoor]

Als je het vanuit je VBA code wilt doen kan je die hyperlink zelf aanmaken uiteraard.
Ik toon alleen hoe die eruit moet zien.
https://docs.microsoft.com/en-us/office/vba/api/excel.hyperlinks.add

Van mobiel Excel weet ik helemaal niets dus kan daar ook niets over zeggen.

 

[route99]

Als ik het zo doen als in dit voorbeeld werkt het... mijn VOIP gaat bellen.....(testvoorbeeld in de tab MAY).
Tip: Zip je bestand.... kan geloof ik niet zonder zippen als er macros in zitten... die worden er uitgesloopt bij het uploaden?

 

[siguemepro]

@route99

als ik in de kolom van het telnummer deze hyperlink intoetst werkt het zelfde als in een aparte kolom

ik heb in de string de &C3 vervangen door het telefoonnummer.


=HYPERLINK("tel:"&C3) dus dit is dan =HYPERLINK("TEL:&B1";31612345678) waar &B1 dus het cel nummer is.

ik ga dit nog uitproberen op de iphone en android. mobiel.

op de desktop zou hij mijn skype prog moeten openen.

grt
Siguemepro

 

[edmoor]

Waarom doe je het anders dan ik in #4 liet zien?
&B1 is niet het telefoonnummer. Die & staat voor het aan elkaar plakken van "TEL:" en de waarde in cel B1.
De 2e parameter van de hyperlink functie mag je willekeurig invullen, dus waarom dan ook niet daar gewoon B1.
Dus:
=HYPERLINK("TEL:"&B1;B1)

 

[Senso]

Bij die laatste opent die Skype maar dat is niet voldoende. Je moet toch worden verbonden. Hoe koppel je die dan aan een andere provider?

 

[siguemepro]

@senso,
ik weet dat nog niet ik denk juist dat als je het op je mobiel gebruikt hij direcht naar je provider gaat om te bellen.

het zelfde doe je op een website met een telefoonnummer op iphone gaat hij direct bellen voor android moet je een ahref van maken.

ik blijf het testen en uitzoeken.