opmerking in cel plaatsen via knop

[rob91]

Hallo,
Ik wil door middel van een knop een (variabele) tekst in de actieve cel kunnen typen.
Dus zonder via celeigenschappen te gaan.
Maar als ik een macro maak zet deze de celverwijzing in waar ik dan sta;dit kan natuurlijk iedere cel zijn waar ik dan met de cursor op sta.
Weet iemand hoe ik dit doe?

Rob

 

[Wigi]

tekst in de actieve cel kunnen typen

ActiveCell.Value = "bla bla bla"

Lastig hé...

 

[Gert Bouwmeeste]

Hallo,
tekst in de actieve cel kunnen typen.
celverwijzing in waar ik dan sta;dit kan natuurlijk iedere cel zijn waar ik dan met de cursor op sta.

De cel waar je met de cursor op staat = de actieve cel. Wat is dan het probleem?

 

[rob91]

Ik was misschien niet duidelijk genoeg.

Als je een macro opneemt neemt hij de waarde van de actieve cel van dat moment als vaste waarde in de macro,
maar de bedoeling is natuurlijk dat ik een willekeurige cel aanklik en dan op de knop druk zodat ik snel een opmerking kan plaatsen.

en Wigi... ik weet dat het iets met activeValue te maken heeft maar weet het niet toe te passen; code schrijven is voor mij nog weggelegd.

Wie helpt mij verder?

 

[Wigi]

Sorry, maar ik begrijp echt de bedoeling niet. Voorbeeldbestandje?

 

[Wigi]

Ah, of bedoel je het plaatsen van een opmerking (comment), met het rode driehoekje rechts bovenaan?

 

[rob91]

Ja Wigi,

Dat is wat ik bedoel; ik wil op een snelle manier bij een ziekmelding of verlofdag de reden in de cel erbij vermelden. Dus comment toevoegen, maar dan niet via rechtmuisknop/eigenschappen ,enz.

 

[Warme bakkertje]

Rob, volgende code voegt een opmerking toe aan de actieve cel.

Sub Opmerking()
    Dim Opmerking As String
    ActiveCell.ClearComments
    Opmerking = Application.InputBox("Geef opmerking", "Commentaren", , , , , , 2)
    ActiveCell.AddComment.Text Opmerking
End Sub

Wijs bv een sneltoets toe aan de macro en je kan snel je opmerking plaatsen in eender welke actieve cel.

Rudi

 

[rob91]

Ik vind het weer helemaal geweldig:thumb:
Het werkt precies zoals bedoeld.
Hartelijk dank voor alle moeite.:thumb:

Rob