Lege velden niet in overzicht tonen

[Juffnetjes]

Ben een beginnende VBA'er en heb het forum al een keer doorgespit zonder iets te kunnen vinden.

Heb een macro opgenomen waarin onderstaande gegevens (gedeeltelijk) staan:

Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "txtVerhuizenAchternaam5Naam meeverhuizer 5"
.Replacement.Text = "^pNaam meeverhuizer 5: "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Als dit veld echter leeg is wil ik dat de vervangende tekst wordt weggelaten. Deze wordt nu wel getoond, maar zonder inhoud.
Hoe lost ik dat in de code op?
Bedankt!!!:thumb:

 

[Axel Hagg]

Dag Juffnetjes,

Je informatie is te summier om er goed op te reageren.

Over welk veld hebben we het?

Als dit leeg is (er wordt niets gevonden) dan wordt er ook niets gereplaced.

Wat wordt er getoond zonder inhoud?

Wat is eigenlijk de bedoeling van het geheel?

Overigens hoort execute aan het eind te staan anders zoekt de computer met het vorige item of met niets.

Gegroet,

Axel.

 

[WinteE]

Toevoegen :

If Selection.value = Empty Then
   Me.formulierveld.Visible = False
End If