VBA kode for at redigere en kommentar
Nedenstående kode virker helt ok, men kunne godt tænke mig at udvide funktionen til at ikke overskrive en evt. eksisterende kommentar, men hellere kunne redigere den direkte.F.eks. hvis der allerede er lagt ind en kommentar "bla bla her står der en kommentar" så ønsker jeg at have mulighed for at få vist det, samt at kunne redigere i det direkte, ikke bare overskrive kommentaren med det man smider ind.
Alternativt kan jeg også leve med at den tilføjer den nye kommentar efter den eksisterende kommentar således at det kunne blive "kommentar1: bla bla" "kommentar2: bla bla bla2"
"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Set personSheet = ThisWorkbook.Sheets("Kommentarer")
Set myRange = personSheet.Range("A2", personSheet.Range("A2").End(xlDown))
For Each curCell In myRange
If curCell.Value = Target.Value Then
If curCell.Offset(0, 1).Value <> "" Then
myResponse = MsgBox(curCell.Offset(0, 1).Value & vbNewLine & vbNewLine & vbNewLine & "Vil du redigere?", vbYesNo)
Else
myResponse = MsgBox("Der er ingen data, vil du tilføje?", _
vbYesNo)
End If
If myResponse = vbYes Then
myInput = InputBox("Indtast en ny kommentar")
If myInput <> "" Then
curCell.Offset(0, 1).Value = myInput
End If
End If
End If
Next
End If
End Sub
"