Clever-Excel-Forum

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

Hallo Freddy,

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

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

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"

freddy

atilla

freddy