Auteur Topic: Celinhoud laten opnemen als een opmerking (gelezen 2870 keer)

cladon · « **Gepost op:** 31 oktober 2004, 20:16:14 »

Op blad 1 heb ik de cellen

A1 met inhoud "Opmerking 1"
A2 met Inhoud "Opmerking 2"

An met inhoud "Opmerking n"

Op blad 2 heb ik kolommen staan

dmv een opmerking wil ik nu dat in A1 van kolom A de inhoud komt te staan van cel A1 op blad1

Hetzelfde voor de anderen opmerkingen
B1 krijgt de inhoud van cel A2 (blad1) als opmerking

...

SoftAid · « **Reactie #1 Gepost op:** 31 oktober 2004, 22:16:30 »

Citaat van: cladon op 31 oktober 2004, 20:16:14

Op blad 1 heb ik de cellen
A1 met inhoud "Opmerking 1"
A2 met Inhoud "Opmerking 2"
An met inhoud "Opmerking n"
Op blad 2 heb ik kolommen staan
dmv een opmerking wil ik nu dat in A1 van kolom A de inhoud komt te staan van cel A1 op blad1
Hetzelfde voor de anderen opmerkingen
B1 krijgt de inhoud van cel A2 (blad1) als opmerking

Kan je het niet wat moeilijker uitleggen? Het schijnt zo simpel zoals je het nu uitlegt.........

SoftAid

cladon · « **Reactie #2 Gepost op:** 31 oktober 2004, 23:33:21 »

Ik ben eigenlijk aan het zoeken naar een stukje VBA code waarmee ik de inhouden van op voorhand vastgelegde cellen kan gaan gebruiken als een opmerking.

De cellen met de te gebruiken inhoud staan onder elkaar. De opmerkingen staan telkens in de eerste cel van een kolom

Dus als ik drie cellen gebruik om een inhoud in te plaatsen dan heb ik ook op een andere plaats drie opmerkingen staan namelijk in bijvoorbeeld cel A1 , b1 en c1.

Ik zou kunnen werken met een eenvoudige celverwijzing. Dit gaat niet omdat de opmerking een volledige zijn waarvan de lengte willekeurig is.

Doel ik ben een peerevaluatie aan het uitwerken in excel.

SoftAid · « **Reactie #3 Gepost op:** 01 november 2004, 00:34:53 »

Hier moet je al een beetje verder mee kunnen:

Sub Macro1() ' Sub OnClick();SubOnChange()

Sheets("Blad1").Select
ActiveCell.FormulaR1C1 = "test1" ' hier vindt je zelf wel een oplossing om de invoer te geven
Sheets("Blad2").Select
Range("A1").AddComment
Range("A1").Comment.Visible = True 'eventueel False
Range("A1").Comment.Text Text:=Sheets("Blad1").Range("A1").Value
End Sub

Hier is de wol, probeer er maar zelf een paar sokken mee te breien

SoftAid

Carlo · « **Reactie #4 Gepost op:** 01 november 2004, 00:42:06 »

Goed gedaan SoftAid, ik wist niet dat je iets van schapen kende!

cladon · « **Reactie #5 Gepost op:** 01 november 2004, 00:57:32 »

Bedankt SoftAid ik zal het schaapvachtje tonen als het klaar is.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics