Commentaar invullen in rij1

[janusvl]

Ik ben bezig met een redelijk uitgebreid script in excel hierbij wil ik ook werken met commentaar maar hiervoor moet al commentaar in de cel staan.

Heeft er iemand een script waarmee in automatisch A2 t/m A599 kan vullen met commentaar en dan steeds de tekst hallo ofzo?

Ik kwam er zelf niet helemaal uit ik hoop dat het duidelijk is wat ik bedoel

janus

 

[Wigi]

Range("A2:A599").Value = "Hallo"

Het loont de moeite om ook andere topics met VBA-code door te nemen, dan zou je dit zonder vragen zelf gekund hebben :thumb:

Wigi

 

[janusvl]

Range("A2:A599").Value = "Hallo"

Het loont de moeite om ook andere topics met VBA-code door te nemen, dan zou je dit zonder vragen zelf gekund hebben :thumb:

Wigi

ja maar dit is gewoon de tekst dat was mij ook nog wel gelukt maar ik wil commentaar hebben dus een commentaar als je er met je muis over gaat moet er zo'n popup komen met hallo

maar toch alvast bedankt voor de snelle reactie

janus

 

[Wigi]

Zo dan:

    For Each r In Range("A2:A599")
        r.AddComment "Hallo"
    Next

 

[janusvl]

ik heb hem al

Het is me inmidels toch gelukt met het volgende script

Dim i As Integer
 Dim c As String
 i = 2
  Do
        
      c = "A" & i
    Range(c).AddComment
    Range(c).Comment.Visible = False
    Range(c).Comment.Text Text:="Hallo" & Chr(10) & ""
            i = i + 1
            If i= 599 Then Exit Do

        Loop

 

[janusvl]

Zo dan:

    For Each r In Range("A2:A599")
        r.AddComment "Hallo"
    Next

zag het te laat maar ik denk dat dit wel is wat ik bedoel ja