Funktion links rechts
25.01.2019 14:57:56
Tom
der Code soll nach der Berechnung das Ergebnis in eine Zahl umwandeln. Wie mache ich das am besten?
Gruß Tom
Sub Formel_Vers()
Dim Vers As Long, i As Long
With ActiveSheet
Vers = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 7830 To Vers
If .Cells(i, 18) = "" Then
.Cells(i, 18).FormulaR1C1 = _
"=LEFT(RIGHT(RC[-15],6),1)"
End If
Next i
End With
End Sub
Anzeige