Hallo,
du bekommst den Fehler hier?
If Not Application.WorksheetFunction.IsNull(Stellplaetze.Cells(rw2.Row, 3).Value) Then
Wenn du diese Zelle einfach nur auf nicht 0 ueberpruefen willst, warum dann so umstaendlich mit Worksheetfunction?
check doch einfach auf ungleich 0
If Stellplaetze.Cells(rw2.Row, 3).Value <> 0 Then
so fuer eine Formatierung der Zelle als Zahl. Sollte die Zelle aber Text enthalten, also zwar eine Null aber die Zelle ist als Standard oder Text formatiert, dann die 0 in "", also:
If Stellplaetze.Cells(rw2.Row, 3).Value <> "0" Then
Gruss Torsten
|