Hallo Leute,
habe mir einen Code gebastelt, der grundsätzlich funktioniert.
Ein Problem gibt es leider nur, wenn Cells(4,3) leer ist oder 0 ist,
dann ändert sich der Wert in der Zielzelle nicht in "" oder 0.
"Ergebnis" hole ich mir aus einer anderen Funktion und das funktioniert perfekt.
Kann mir bitte jemand helfen?
Sub GrundGebuehr()
If IsEmpty(Worksheets("Berechnung").Cells(4, 3).Value) = True Then
Worksheets("Berechnung").Cells(5, 3).Value = ""
ElseIf Worksheets("Berechnung").Cells(4, 3).Value = 0 Then
Worksheets("Berechnung").Cells(5, 3).Value = ""
Else
GrundGebuehr = Worksheets("Tabelle C").Cells(ergebnis, 2)
End If
Gruß,
Frank