AW: Wert bleibt gleich
30.11.2009 10:55:16
Tino
Hallo,
mit VBA kannst Du es mal so versuchen.
Sub ErstelleFormel()
Dim LLetzte As Long
With Sheets("Tabelle1") 'Tabellennamen anpassen
'letzte Zeile in O bestimmen
LLetzte = IIf(IsEmpty(Cells(.Rows.Count, 15)), .Rows.Count, Cells(.Rows.Count, 15).End(xlUp).Row)
'Bereich in T leer machen, ohne die Überschrift
.Range(.Cells(2, 20), .Cells(.Rows.Count, 20)).ClearContents
'sind Daten ab Zeile 2 vorhanden?
If LLetzte > 1 Then 'ohne Überschrift
With .Range(.Cells(2, 20), .Cells(LLetzte, 20))
'Formel erstellen in Spalte T
.FormulaR1C1 = _
"=IF((RC15>1461)*(RC15<73000),TEXT(RC15,""JJJJ/MM""),"""")"
'Nur die Werte, fals nicht gewünscht einfach löschen
.Value = .Value
End With
End If
End With
End Sub
Gruß Tino