|
Hallo,
ich bekomme immer wieder folgenden Fehler: Typen unverträglich - Laufzeitfehler 13
Verstehe nicht warum, denn in einer anderen Tabelle läuft dieser durch. Unterschied ist nur:
Wer kann mir dabei helfen ? Komme nicht weiter
------------------------------------------------------------------
Sub CommandButton5 () > funktioniert
------------------------------------------------------------------
Option Explicit
Public Sub modul1() funktioniert nicht
-------------------------------------------------------------------
DIM c as Range
For Each c In Worksheets("ExternBasis").Range("I2:L5188")
If c.Value Like "" Then c.Value = 0
Next c
For Each c In Worksheets("ExternBasis").Range("I2:L5188")
If c.Value Like "OE =" Then c.Value = "0"
Next c
For Each c In Worksheets("ExternBasis").Range("H2:H5188")
If c.Value Like "Versuch*" Then c.Value = "Leer"
Next c
For Each c In Worksheets("ExternBasis").Range("H2:H5188")
If c.Value Like "GStillstand*" Then c.Value = "Leer"
Next c
For Each c In Worksheets("ExternBasis").Range("H2:H5188")
If c.Value = "0" Then c.Value = "Leer"
Next c
For Each c In Worksheets("ExternBasis").Range("H2:H5188")
If c.Value = "" Then c.Value = "Leer"
Next c
|