(ich hoffe mein Problem wurde nicht schon desöfteren behandelt).
Ich habe eine VBA Function geschrieben, die ausgehend von der
aktuellen Zelle in der ersten Spalte nach oben die erste Zelle
sucht, die nicht leer ist .
Diese Funktion funktioniert auch einwandfrei, auch wenn ich Sie manuell in andere Zellen kopiere.
Sobald ich aber per VBA die Autofill Methode benutze, habe ich in jeder Zelle "#WERT!" stehen.
Wenn ich jetzt in die Zelle gehe und Enter drücke funktioniert die Formel wieder.
Die Recherche hat mir leider nicht geholfen.
Ist da jemand, der das selbe Problem hatte ?
Code:
Public Function Unterauftrag(wert)
Dim iT As Long
iT = wert.row + 1
Unterauftrag = ""
Do While Trim(Unterauftrag) = ""
iT = iT - 1
Unterauftrag = Cells(iT, 2).Value
Loop
If IsNumeric(Unterauftrag) = False Then Unterauftrag = "----"
End Function
Gruß Kai