Het woord "Textvak:" verwijderen uit cel

[HanziePanzie]

Wanneer ik in een cel een opmerking uit mijn werkblad wil tonen met mijn test button, staat er als eerste woord altijd "Tekstvak:"en hierna de opmerking waar het om gaat.
Hoe kan dit woord weggelaten worden zodat alleen de zin uit de opmerking zelf overblijft?


Ik heb de volgende werkende code:

Sub Testknop()

H1 = ActiveSheet.Name

H2 = "Blad1"
Sheets(H1).Select
r = 13
Sheets(H2).Columns("B:B").ClearContents

For Each cm In ActiveSheet.Comments
Sheets(H2).Cells(r, 2) = cm.Shape.AlternativeText
r = r + 1
Next cm

End Sub

 

[VenA]

Replace zou je kunnen gebruiken. Een voorbeeldbestand is beter want de code die je nu geplaatst hebt is onleesbaar door het niet gebruiken van codetags en er staan nogal wat overbodige zaken in.

 

[HSV]

Dan is "Tekstvak" waarschijnlijk je gebruikersnaam.

Opties → Populair → Gebruikersnaam.

 

[pasan]

For Each cm In ActiveSheet.Comments
Sheets(H2).Cells(r, 2) = Right(cm.Text, Len(cm.Text) - InStr(1, cm.Text, ":"))
r = r + 1
Next cm

 

[snb]

Sub M_snb()
  For Each it In Sheet1.Comments
    it.Text Mid(it.Text, 9)
  Next
End Sub

 

[HanziePanzie]

Fijn dat jullie reageren.

Ik heb de oplossing van Pasan toegepast en die werkt voor mij.
Hartelijk dank voor jullie reacties