woorden vervangen via macro

[rzeeuw]

Ik heb een macro waarin ik dmv SubTotalen gemiddelden laat aanmaken per wijziging in interval. De volgende teksten worden dan aangemaakt:

'Gemiddelde 12:00-14:00'
'Gemiddelde 14:00-16:00'
'Gemiddelde 16:...... etc etc

Ik wil echter het woord 'Gemiddelde' niet zien en de rest niet dikgedrukt. Oftewel een macrofunctie die of het woord 'Gemiddelde' weghaalt of de tekst vervangt voor dezelfde tekst zonder het woord 'Gemiddelde', vb:

'Gemiddelde 12:00-14:00' vervangen door '12:00-14:00'

Ik heb zo'n vermoeden dat het best makkelijk te doen is, kan het echter zowel niet in de help functie van VBA, als met Google. als met de zoekfunctie op dit forum vinden.

Bij voorbaad dank

(Ps: ik had ooit in een topic hier een macrofunctie gelezen die een kolom kan selecteren van bv. A2 tot 'het einde van de kolom'. Kan echter de manier waarop 'het einde van de kolom' geselecteerd werd niet terugvinden. Kan iemand ook die functie posten)

 

[jheesterbeek]

Hoi,

Ik heb je vraag opgenomen met de macrorecorder en kom volgens mij een heel eind:

Cells.Replace What:="Gemiddelde", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

With Application.FindFormat.Font
.FontStyle = "Vet"
.Strikethrough = False
.Superscript = False
.Subscript = False
End With
With Application.ReplaceFormat.Font
.FontStyle = "Standaard"
.Strikethrough = False
.Superscript = False
.Subscript = False
End With
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True


Succes

John

 

[rzeeuw]

Het werkt!

Heel erg bedankt!!