• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

runtime error 13 type mismatch

Status
Niet open voor verdere reacties.
A

agosto

Nieuwe gebruiker
Lid geworden
30 jan 2009
Berichten
2
Hallo

Ik heb telkens een Runtime Error 13 Type Mismatch als ik een Row wil invoegen of deleten.

Ik gebruik deze code:
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$25" And Target.Value <> "" Then
Sheets("brief").Range("b15").Value = Now
End If
End Sub

De fout zit in de regel
Code: 
If Target.Address = "$B$25" And Target.Value <> "" Then

Iemand enig idee wat ik fout doe?
 
Je kan deze foutmeldingen uit en weer aanzetten.:

Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error Resume Next

    If Target.Address = "$B$25" And Target.Value <> "" Then
        Sheets("brief").Range("b15").Value = Now
    End If
    
On Error GoTo 0

End Sub

zie voor meer uitleg / voorbeelden:
http://www.ozgrid.com/VBA/ExcelVBAErrors.htm
 
Target.Value is gebaseerd op 1 celwaarde.
Dus als je een hele rij selecteer geeft dat een foutmelding.
Dit kan je oplossen door Target.Count op 1 te zetten.

Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 Then
If Target.Address = "$B$25" And Target.Value <> "" Then
Sheets("brief").Range("b15").Value = Now
End If
End If
End Sub

Met vriendelijke groet,


Roncancio
 
Dank dank dank!!!

Allebei de oplossingen werken goed.

Denk dat ik voor de tweede oplossing ga... beter een error voorkomen dan uitzetten lijkt me zo :D

Dank voor de input! :thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan