Hallo werte Gemeinde,
ich bin einer der vielen VBA-Frischlinge hier an Bord und qäuale mich schon seit einer Woche an den untenstehenden Code.
Kurz zur Erklärung des Ganzen: im beschriebenen Sheet(6) stehen in den angegebenen Ranges Dezimalzahlenwerte. Diese sollen ausgelesen und mit gegebenen max Werten verglichen werden. Wenn die bereits vorhanden Werte der Bestimmung entsprechen, soll in der darauffolgenden Spalte ein i.O. oder n.i.O. als Text erscheinen.
Dem Fehler 13 nach (dieser wird mir beim Ausführen immer mitgeteilt) handelt es sich hierbei um einen Datentypfehler, den ich allerdings aufgrund meiner wenigen Erfahrung nicht erkennen bzw. beseitigen kann.
Über Hilfe Eurerseits wäre ich super dankbar - auch Tipps und Tricks zum allgemeinen vereinfachen sollcher Codezeilen sind mir willkommen!!!
Herzlichen Dank im Voraus, Nico
zeile = 70
Do Until Str(Range("E70:E2500")) = "" _
And Str(Range("F70:F2500")) = "" _
And Str(Range("G70:G2500")) = ""
If IsNumeric(Sheets(6).Range("E70:E2500")) _
And IsNumeric(Sheets(6).Range("F70:F2500")) _
And IsNumeric(Sheets(6).Range("G70:G2500")) _
And Val(Sheets(6).Range("G70:G2500")) > 0.5 _
And Val(Sheets(6).Range("F70:F2500")) > 300 _
And Val(Sheets(6).Range("E70:E2500")) > 240 _
Then Sheets(6).Range("H70:H2500") = "i.O." Else Sheets(6).Range("H70:H2500") = "fehlerhaft"
zeile = zeile + 1
Loop
|