Foutmelding in VBA bij selecteren, kopiëren en plakken

[snader22]

Beste lezer,

Ik heb een stukje VBA in excel geschreven en het werkt prima.
Alleen als ik een aantal cellen selecteer, kopieër en plak, komt er een foutmelding.
Waarschijnlijk is die te verhelpen met één regeltje VB-tekst.

Wie o wie kan mij verder helpen.

Alvast onwijs bedankt!!!

(ik ben nog niet een echte VBA ster hoor)

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Target.Font.Bold = True
    If Target.Value = "q" Then
      Target.Value = Format(Now(), "hh:mm")
      Target.Interior.ColorIndex = 4
        End If
      If Target.Value = "w" Then
      Target.Value = Format(Now(), "hh:mm")
      Target.Interior.ColorIndex = 6
      End If
      If Target.Value = "e" Then
      Target.Value = Format(Now(), "hh:mm")
      Target.Interior.ColorIndex = 3
      End If
      
      If Target.Value = "a" Then
      Target.Interior.ColorIndex = 4
      Target.Value = Empty
      End If
      If Target.Value = "s" Then
      Target.Interior.ColorIndex = 6
      Target.Value = Empty
      End If
      If Target.Value = "d" Then
      Target.Interior.ColorIndex = 3
      Target.Value = Empty
      End If
      If Target.Value = "z" Then
      Target.Interior.ColorIndex = 0
      Target.Value = Empty
      
      Else: Exit Sub
    End If
 
End Sub

 

[huijb]

Je heb haast? Gewoon bij een topic blijven hier verder http://www.helpmij.nl/forum/showthr...ing-in-VBA-bij-selecteren-kopiëren-en-plakken