Habe einen Code der so nicht ganz funktioniert wie ich es will.
Workbooks(strDateiBestand).Sheets(strBestandSheets1).Cells(lnfRowFind, 18).Value = _
Workbooks(strDateiBestand).Sheets(strBestandSheets1).Cells(lnfRowFind, 18).Value - 1
So wie der Code ist wird in jeder Zelle der Spalte 18 der Wert -1 abgezogen.
Ich will aber dass nur dann -1 abgezogen wird wenn ein Wert eingetragen ist.
Wenn die Zelle leer ist soll das nicht passieren.
Kann ich das so ändern dass das funktioniert.
Bitte um Hilfe
Danke inm Voraus
Gerhard