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]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[snader22]

ik zag het al, maar weet niet hoe ik het bericht hier moet verwijderen....

 

[huijb]

Je moet niets verwijderen, ik heb je vraag verplaatst.

 

[edmoor]

Lijkt het je niet handig om hier ook de betreffende foutmelding te plaatsen?
Probeer ook deze eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Einde
    Target.Font.Bold = True
    Select Case Target.Value
        Case "q"
            Target.Value = Format(Now(), "hh:mm")
            Target.Interior.ColorIndex = 4
        Case "w"
            Target.Value = Format(Now(), "hh:mm")
            Target.Interior.ColorIndex = 6
        Case "e"
            Target.Value = Format(Now(), "hh:mm")
            Target.Interior.ColorIndex = 3
        Case "a"
            Target.Interior.ColorIndex = 4
        Case "s"
            Target.Interior.ColorIndex = 6
        Case "d"
            Target.Interior.ColorIndex = 3
        Case "z"
            Target.Interior.ColorIndex = 0
    End Select
Einde:
End Sub

 

[Warme bakkertje]

Of helemaal bovenaan

if target.count > 1 then exit sub

 

[snader22]

Dan jullie hartelijk! Ik ben nu goed geholpen!

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    with target
        if .count>1 then exit sub

        .Font.Bold = True
        if instr("qwe",.value) then .Value = Format(Now(), "hh:mm")
        .interior.colorindex=instr("  eq w",.value)+instr("  da s",.value)
    end with
End Sub