Hallo Gemeinde

Ich bin mit der VBA-Programmierung noch nicht so vertraut.
Kann mir bitte Jemand helfen!

Wenn ich in der Tabelle innerhalb der Range B1:B13 Zeilen einfüge, wird ein Fehler erkannt:

"If CStr(Target.Value) > "5" Then" = Typen unverträglich

Vielen Dank für Eure Hilfe

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Zellbereich As Range
    Set Zellbereich = Range("B1:B13")
    Adr = Target.Address()
    mWB = ActiveWorkbook.Name
    mWS = ActiveCell.Worksheet.Name
    If Intersect(Target, Zellbereich) Is Nothing Then
       Exit Sub
    Else
       If CStr(Target.Value) > "5" Then
           MsgBox "Falscher Wert  (" & CStr(Target.Value) & ")" & " / " & Adr, _
           vbOKOnly + vbCritical, "File-Name:  (" & mWB + ")   Tabellen-Blatt:  (" & mWS + ")"
           Range(Adr).Activate
       End If
    End If
End Sub