1x dezelfde tekst in excel

[anoniem]

Het lijkt zo simpel, maar 't wil me maar niet lukken; ik heb op een werkblad 2 cellen met dezelfde tekst. Nu wil ik telkens één van de twee d.m.v. knippen en plakken ergens anders neerzetten, maar ik wil dat dan de cel waarin de tekst staat die ik níet weghaalde, blanco wordt (of dat er desnoods iets anders in komt te staan). Dit om te voorkomen dat ik deze tekst nógmaals zou kunnen gebruiken. Iemand een oplossing?

[anoniem]

misschien a3 = a4 en in cel a4 tik je dan a4 = a3 doe maar een gooi [edit] werkt dus niet, dan krijg je deze opmerking: Formulas that refer back to their own cells When a formula refers to its own cell, either directly or indirectly, it is called a circular reference. To calculate such a formula, Microsoft Excel must calculate each cell involved in the circular reference once by using the results of the previous iteration. Unless you change the default settings for iteration, Microsoft Excel stops calculating after 100 iterations or after all values in the circular reference change by less than 0.001 between iterations, whichever comes first. Microsoft Excel cannot resolve formulas with circular references by using normal calculation. When you make a circular reference, a message will warn you that a circular reference has occurred. If the circular reference is accidental, click OK. The Circular Reference toolbar displays, and tracer arrows point to each cell that is referenced by the circular reference. You can use the Circular Reference toolbar to move through each cell in the reference so that you can redesign the formulas or logic to break the circular reference. (Some scientific and engineering formulas require circular references.) [b:e5cd1f89d6]Since some formulas require a circular reference, you may need to change the number of iterations. To change the number of iterations, click Options on the Tools menu, and then click the Calculation tab. Select the Iteration check box, and then indicate the maximum number of iterations and degree of change you want Microsoft Excel to use.[/b:e5cd1f89d6] [/edit]

[anoniem]

[code:1:a65b6385db]Sub dubbelweg() Dim zoek As String zoek = ActiveCell.Value If ActiveCell.Column = 1 Then Exit Sub 'beveiliging als de actieve cel niet in kolom 1 staat Columns("A:A").Select ' bereik waarin gezocht wordt Selection.Replace What:=zoek, Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False End Sub [/code:1:a65b6385db] werking: copieer een naam uit de eerste kolom naar ergens anders op het blad. laat die cel actief en run de makro Maak eventueel een knop op het blad waar de makro aan gekoppeld is Wim