• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Vlookup, verbreekt link met @mail adres

Status
Niet open voor verdere reacties.

HBot

Gebruiker
Lid geworden
12 dec 2006
Berichten
325
Geacht Forum,

Ik heb een probleempje dat ik dacht opgelost te hebben vorig jaar met behulp van jullie.
Pas geleden zijn er nieuwe PC/software bij ons geplaats en doet het probleem zich weer voor.
Ik heb een bestandje gemaakt waarin dmv (vlookup) er een mailadres verschijnt (in blauw) waar men op kan drukken zodat het mail programma opent.
Op de een of andere manier krijg ik het niet meer werkend.
De link klopt wel,Bekijk bijlage transport opdracht Test.zip alleen als je erop klikt gebeurt er niets.
Bijgaand een verknipte versie van het programma,

TNX
Henny
 
Code:
=VERT.ZOEKEN($B$8;mailadres;2;ONWAAR)

je krijgt als uitkomst n/b.

de gezochte waarde (naam uit b8) staat dus niet in de te zoeken reeks (e-mailadres).

is de zoekreeks wel juist?

deze zie ik in je bestandje niet terug, dus daar kan ik geen antwoord op geven.
 
Laatst bewerkt:
ik zie dat (toch) je de gegevens wel had bijgevoegd.

H.J. Bakker transport staat niet in de reeks van de gedefinieerd naam (e-mailadres) op blad 2.

je hebt dus een naam gekozen die niet in de lijst staat en deze wordt dan uiteraard ook niet gevonden.

heb je hier vragen over, laat het gewoon even weten.
 
oeldere,

Bedankt dat je hebt gekeken, had waarschijnlijk nog iets gewijzigd (blad2) en opgeslagen,
Ik hoop dat het probleem duidelijk is,
Ik kan geen link tot stand brengen via deze cel met het mail programma (Outlook)

Henny
 
hoe maak je normaal gesproken je hyperlinks?

kun je niet de opmaak van cel d6 als hyperlink aanmerken?
 
ik heb de hyperlink van een email adres (uit je lijst op blz 2) gecopieerd naar cel b6.

vervolgens de vert.zoeken formule opnieuw ingevoerd.

de hyperlinks werken nu wel gewoon (excel 2007).

heb je vragen, laat het gewoon even weten.
 
Hallo Oeldere,

Ik begrijp niet helemaal wat je bedoeld?
Normaal maak ik een hyperlink met de rechtermuis naar div. sheets of documenten.
Nog nooit uitgeprobeerd met mailadressen.
Ik kan wel in de hyperlink een @adres in typen maar deze blijft dan staan en zodra ik de naam wijzigd blijft nog altijd de ingeven adres actief.

nog surgesties?

Henny
 
Beste Henny,

kijk eens naar mijn oplossing.

copier een bestaande e-mail adres in blad 1; cel b6.

type vervolgens de vert.zoeken formule opnieuw.

de hyperlink naar het e-mail adres is aktief.

mogelijk niet de snelste en beste oplossing, maar het werkt wel (is getest in excel 2007).
 
Hallo Oeldere,

Ik probeer wat je aangeeft maar geen resultaat,
Kun je een voorbeeld opsturen (ik werk in excel 2003)

De vlookup werkt prima, (normaal gesproken is sheet 2 gehide)
Ik kan alleen niet vanuit cel D6 outlook openen.
Is het mogelijk om de cellen in het kader gelijk in de mail te kopieeren? (via een marco?)
TNX
Henny
 
zie hier het voorbeeldje (bij mij werkt het gewoon)

P.s. zie dat de wijzigingen niet zijn opgeslagen ?!?
 

Bijlagen

  • transport opdracht Test.zip
    29,4 KB · Weergaven: 16
Laatst bewerkt:
Sorry Oeldere,

Ik zie geen verschil, werkt niet.

Henny
 
hierbij dan wel de juiste versie.
 

Bijlagen

  • transport opdracht Test (oeldere).xls
    98,5 KB · Weergaven: 29
Je hebt een macro klaar staan in de werkbladmodule van je bestand. Door simpelweg de celverwijzingen aan te passen werkt deze toch.:confused:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

'Alleen als de waarde in b8 wijzigt, doen we iets
'Opmerking: "If Target.Address = "$b$8" Then"
'           werkt niet wegens kleine letter "b" in "$b$8"
  
If Target.Address = "$B$8" Then
  
  'Als er een hyperlink bestaat in D6, dan eerst deleten.
  'Blijkbaar kan er maar één bestaan (?), maar men weet nooit...
  If Range("D6").Hyperlinks.Count > 0 Then
    For i = Range("D6").Hyperlinks.Count To 1
      Range("D6").Hyperlinks(i).Delete
    Next
  End If
  
  'Nieuwe hyperlink toevoegen aan de D6.
  On Error Resume Next
  Hyperlinks.Add anchor:=Range("D6"), Address:="mailto:" & Range("D6").Value

End If

End Sub
 
Laatst bewerkt:
3x is scheepsrecht.
 

Bijlagen

  • transport opdracht Test (oeldere3).xls
    98,5 KB · Weergaven: 32
Oeldere ,Rudy,

Bedankt beide versies werken,
Henny

Ps..
Misschien nog een oplossing om de tekst mee te nemen in de mail van geadreseerde, of moet ik hier een nieuwe vraag voor uitsturen?
 
Via de zoekfunctie van dit forum kan je hier al ontelbare voorbeelden vinden over dit onderwerp. :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan