Syntax Fehler

[freddy]

Servus Exelaner,

Wieder mal holt mich der Fehlerteufel ein und bräuchte Eure Hilfe

im folgender Code Zeile wird der Fehler " ungültiger Bezeichner moniert"

Ws1 ist ein anderes Tabellenblatt und mit der Set Anweisung fest gelegt es geht nur um isNumeric

Code:

        
     For Zeile = ErsteZeile To LetzteZeile
     For Spalte2 = ErsteSpalte To LetzteSpalte
    
    If Not IsNumeric(WS1.Cells(Zeile, Spalte2)).Value Then MsgBox "Fehler"
    


Komischerweise funktioniert der nachfolgende Code einwandfrei
 
 If Not IsNumeric(.Cells(Zeile, 6)) Or Not IsNumeric(.Cells(Zeile, 7)) Or Not IsNumeric(.Cells(Zeile + 18, 6)) _
 Or Not IsNumeric(.Cells(Zeile + 18, 7)) Or Not IsNumeric(.Cells(Zeile, Spalte)) Or Not IsNumeric(.Cells(Zeile, Spalte + 1)) _
 Or Not IsNumeric(.Cells(Zeile + 18, Spalte)) Or Not IsNumeric(.Cells(Zeile + 18, Spalte + 1)) Then
 
                         MsgBox Space(18) & "Falsche Eingabe" & vbNewLine & _
                                Space(4) & "Der Vorgang wurde Abgebrochen" & vbNewLine & _
                                Space(9) & "Bitte geben Sie eine Zahl ein", vbInformation
 Exit Sub
 End If
 

[atilla]

Hallo Freddy,

entweder das .Value weg lassen oder innerhalb der Klammer so:

If Not IsNumeric(WS1.Cells(Zeile, Spalte2).Value) Then MsgBox "Fehler"

[freddy]

Servus miteinander

Nun bin ich selber Draufgekommen das Value war es manchmal könnte alles sowas von einfach sein wenn das Berühmte Brett nicht wäre

Code:

If Not IsNumeric(WS1.Cells(Zeile, Spalte2)) Then MsgBox "Fehler"


If Not IsNumeric(WS1.Cells(Zeile, Spalte2)).Value Then MsgBox "Fehler"