Supportnet / Forum / Tabellenkalkulation

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 [code] 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 [/code]

Ich vermute mal das die Variable CStr(Target.Value) einen numerischen Wert hat. Dann führt das zum Fehler weil "5" einen Zeichenfolgen-Wert darstellt.
Probier mal ohne Anführungsszeichen.

Gruß Flupo

Moin Flupo

So funzt es, hätte ich auch selber drauf kommen können !! War aber wohl eine zu lange Nacht ;)
Herzlichen Dank für Deine prompte Hilfe !!!

Gruss Marco

• Windows 2003 Server
• Excel Makro benutzerdefinierte (TYPE) Variable übergeben
• ddr ram - verschiedene typen
• Typen unverträgliche Laufzeitfehlerehler 13 Sql
• Problem mit VB