Avatar billede carlt Seniormester
08. januar 2009 - 11:01 Der er 6 kommentarer og
1 løsning

Kommentarer - flytte, kopiere, sætte ind

Jeg har af og til brug for til en celle at tilføje en kommentar, som jeg også tdligere har tilføjet til en anden celle (kopier/sæt ind).
Eller fjerne en kommentar fra en celle og tilføje den til en anden celle (klip/sæt ind).
Er det muligt, og hvis det er, hvordan gør man så?
Avatar billede supertekst Ekspert
08. januar 2009 - 11:42 #1
Hvis der kun er anført en kommentar i en celle, kan denne "klippes" og "kopieres" uden problem.

Hvis cellen også har et indhold - vil dette også blive klippet/kopieret.
Er det kun kommentaren, der skal flyttes/kopieres kan det gøres via VBA.
Avatar billede carlt Seniormester
08. januar 2009 - 11:47 #2
Jeg vidste, at man kunne kopiere cellen MED indhold OG kommentar. Det jeg søgte var en flytnning/kopiering af kommentaren alene.
VBA er desværre ikke min stærke side.
Men læg gerne et svar, for nu behøver jeg ikke længere overveje det spørgsmål.
Mvh
carlt
Avatar billede supertekst Ekspert
08. januar 2009 - 12:58 #3
Prøver om jeg lige kan fikse en makro....
Avatar billede supertekst Ekspert
08. januar 2009 - 13:52 #4
Rem KODEN INDSÆTTES VIA HØJREKLIK PÅ DET ØNSKEDE ARK - VIS PROGRAMKODE
Dim commClip As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rem ===================
Rem KLIP = DOBBELT-KLIK
Rem ===================
On Error GoTo noComment
    commClip = Target.Comment.Text
    Cancel = True
    Target.Comment.Delete
    Exit Sub
   
noComment:
    If commClip <> "" Then
        indsætKommentar
    End If
End Sub
Public Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Rem ===================
Rem KOPIER = HØJRE-KLIK
Rem ===================
On Error GoTo noComment
    commClip = Target.Comment.Text
    Cancel = True
    Exit Sub

noComment:
    If commClip <> "" Then
        indsætKommentar
    End If
End Sub
Private Sub indsætKommentar()
Rem =============================================================
Rem INDSÆT - DOBBELT-KLIK eller HØJRE-KLIK når indhold i commCLIP
Rem =============================================================
    With ActiveCell
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=commClip
    End With

    commClip = ""
End Sub
Avatar billede carlt Seniormester
15. januar 2009 - 05:14 #5
Beklager - der er gået nogle dage.
Men "Rem KODEN INDSÆTTES VIA HØJREKLIK PÅ DET ØNSKEDE ARK - VIS PROGRAMKODE" det kunne jeg ikke få til at virke. Jeg kunne huske, at jeg tidligere et eller andet sted havde set: "vis programkode", men ikke hvor.
Indtil nu. Jeg kunne ikke sove, og lå så og kom i tanke om, at jeg skulle højreklikke på det, jeg kalder "arkfanen" (efter din anv. havde jeg bare højreklikket midt på arket).
Og så ser det ud til at virke.
Jeg vil arbejde videre med det i morgen - efter lidt mere søvn.
Avatar billede supertekst Ekspert
15. januar 2009 - 08:38 #6
Ok...
Avatar billede carlt Seniormester
17. januar 2009 - 17:04 #7
Der skulle lidt meree søvn til, for jeg kunne stadig ikke få det til at køre.
Men da jeg rigtigt gennemgik koden, lagde jeg mærke til dine REM´er - altså at der var forskel på højre- og venstreklik, så nu kører det.
Tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Sektionschef til Cyber Security Guidance ved Cyberdivisionen i Forsvaret

Styrelsen for Grøn Arealomlægning og Vandmiljø

Teamleder til Application Management

AL Sydbank A/S (tidligere Arbejdernes Landsbank)

Afdelingschef til GDPR & Tech Regulation