ich hätte noch eine Frage, die auch an meinen schon hochgeladenen Code anschließt. Die Eingabe soll nun direkt bei Makroaufruf erfolgen. Ich würde hierfür gerne eine WENN-Funktion einfügen. Das klappt soweit auch, jedoch verlangt der Code eine Leerzeichen nach dem =, sodass dieses stets noch manuell entfernt werden muss.
Das ist grundsätzlich nicht ganz so tragisch, da die Zellbezüge ja auch manuell angepasst werden müssen.
Aber vielleicht hast du dennoch eine Idee, wie die WENN-Funktion direkt eingefügt werden kann.
Sub WerteEinfügen()
Dim lngRow As Long
For lngRow = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(lngRow, 3).Value) Then
Cells(lngRow, 3).Value = " =WENN(2.Sicht!D52=""x"";2.Sicht!B52;0)"
End If
Next lngRow
End Sub
Danke und Gruß Timo