Gert Bouwmeeste
Verenigingslid
- Lid geworden
- 28 nov 2007
- Berichten
- 822
Goedemorgen,
Ik heb een bestand met 100-den leden. Van de leden is het vaste telefoonnummer en het mobiele telefoonnummer vastgelegd. Soms ontbreekt het mobiele nummer, soms het vaste nummer, soms allebei.
Voor de maandelijkse presentielijsten worden beide telefoonnummers in één cel "aan elkaar geknoopt" (opgezocht dmv Verticaal Zoeken) en gescheiden door een ALT+Enter (Teken(10).
In het geval één van beide telefoonnummers ontbreekt geeft dat een slordige output (zie voorbeeldbestand). Ik wil dat graag netjes hebben. Dan kan ik wel voor één cel met een macro doen:
Ik zou het fijn vinden om daar een soort van Formule voor te hebben. Die formule moet dan uit het tabblad Leden het vaste telefoonnummer en het Mobiele Telefoonnummer opzoeken en die aan elkaar knopen en in de presentielijst plaatsen.
Iemand een idee? Alvast erg bedankt!
Ik heb een bestand met 100-den leden. Van de leden is het vaste telefoonnummer en het mobiele telefoonnummer vastgelegd. Soms ontbreekt het mobiele nummer, soms het vaste nummer, soms allebei.
Voor de maandelijkse presentielijsten worden beide telefoonnummers in één cel "aan elkaar geknoopt" (opgezocht dmv Verticaal Zoeken) en gescheiden door een ALT+Enter (Teken(10).
In het geval één van beide telefoonnummers ontbreekt geeft dat een slordige output (zie voorbeeldbestand). Ik wil dat graag netjes hebben. Dan kan ik wel voor één cel met een macro doen:
Code:
Sub Combi_TelNrs()
VastNummer = Sheets("Leden").Range("M2").Value
MobielNummer = Sheets("Leden").Range("N2").Value
'Wel een vast nummer, geen mobielnummer
If VastNummer <> "" And MobielNummer = "" Then
TelefoonNummer = VastNummer
End If
'Wel een mobiel nummer, geen vast nummer
If VastNummer = "" And MobielNummer <> "" Then
TelefoonNummer = MobielNummer
End If
'Wel een vast nummer, wel een mobielnummer
If VastNummer <> "" And MobielNummer <> "" Then
TelefoonNummer = VastNummer & Chr(10) & MobielNummer
End If
'Geen vast nummer EN geen mobielnummer
If VastNummer = "" And MobielNummer = "" Then
TelefoonNummer = VastNummer & Chr(10) & MobielNummer
End If
Sheets("Presentielijsten").Range("C2").Value = TelefoonNummer
End SubIk zou het fijn vinden om daar een soort van Formule voor te hebben. Die formule moet dan uit het tabblad Leden het vaste telefoonnummer en het Mobiele Telefoonnummer opzoeken en die aan elkaar knopen en in de presentielijst plaatsen.
Iemand een idee? Alvast erg bedankt!
