Plakken harde tekst in tabel die gefilterd is

[Jwitte]

Beste allen,

Ik loop vast met het plakken van harde waarden in een gefilterde tabel dmv een macro. Zie bijgevoegd bestand voor een test bestandje met macro.

Het idee is als volgt: Ik wil in een tabel een aantal cellen selecteren, en dan dmv de macro hier een specifieke tekst in plakken. Voorwaarde is dat dit alleen mag gebeuren in kolom D(=4) en dat alleen geplakt mag worden in de zichtbare cellen (dus niet in de cellen die gefilterd zijn).

Het zou mogelijk moeten zijn om dus losse cellen te selecteren, maar ook om een reeks te selecteren. Alleen de regels die zichtbaar zijn moeten dan de waarde krijgen die in de macro staat. De code van de macro staat hieronder.


Sub TestPlakkenTekst()
'
' TestPlakkenTekst Macro
'

'
If Selection.Column() = 4 Then
Dim cell As Excel.Range


For Each cell In Selection
cell.Value = "TEST"
Next cell
End If

End Sub

Wie kan mij hiermee helpen?

Groet
Job

 

[VenA]

zo?

Sub VenA()
  If Selection.Column = 4 Then Selection.SpecialCells(12).Value = "TEST"
End Sub

 

[Jwitte]

Simpel, maar werkt perfect!

Dank!!