ich suche eine VBA Lösung für diese Formel. =WENN(F4="Cash & Carry";E4;"")
Sie steht in Spalte A, kann dort aber nicht verwendet werden weil sie durch kopieren neuer Daten gelöscht würde.
vielen Dank und ein schönes Wochenende.
Gruß Frank
Sub Test()
Dim TB1, SP As Integer, ZE As Integer, LR As Long
'*** Stammdaten Anfang
Set TB1 = Sheets("Tabelle1")
SP = 5 'Spalte mit Daten; E
ZE = 4 'ab Zeile
'*** Stammdaten Ende
LR = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
With TB1.Cells(ZE, 1).Resize(LR - ZE + 1, 1)
.FormulaR1C1 = "=IF(RC[5]=""Cash & Carry"",RC[4],"""")"
.Value = .Value
End With
End Sub