Verplaatsen tekst

[SjonR]

Waarom zeg je dan eerst dat je het in A1 plakt?

 

[Timshel]

@xbox. Als je bedoelt wat ik denk dat je bedoelt moet je de waarde in het rood aanpassen naar het betreffende kolomnummer

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cl As Range
    
    Application.EnableEvents = False
    For Each Cl In Range("G2:G10000")
        If Cl.Value = "" And Cl.Offset(, -5).Value <> "" And Cl.Offset(, 7).Value = "" And Cl.Offset(, 8).Value = "" Then Cl.Value = "o.b.v. melding"
    Next
    For Each Cl In Range("D2:D10000")
        If Cl.Value = "" And Cl.Offset(, 10).Value = "" And Cl.Offset(, 11).Value = "" And Cl.Offset(, 3).Value = "o.b.v. melding" Then Cl.Value = "extra"
    Next
    If Target.Column = [B][COLOR=#FF0000]1[/COLOR][/B] Then
        For Each Cl In Target
            If LCase(Cl.Value) = "schoon" Then
                Cl.Offset(, 1) = Cl
                Cl.ClearContents
            End If
        Next
    End If
    Application.EnableEvents = True
    If Intersect(Target, Range("D6:J" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Or Target.Count > 1 Then Exit Sub
    Set Cl = Sheets("Planning").Range(Target.Address).Offset(-4, 4)
    If Target.Value <> "" Then
        Cl.Value = "a"
        Cl.Offset(, 1) = Date
    Else
        Cl.Resize(, 2).ClearContents
    End If
End Sub

 

[xbox360]

@Timshel

Super

het is gelukt THNX :thumb: