Kommastellen auslesen
24.04.2007 18:07:02
Universal
ich habe eine Tabelle mit vielen Werten in Spalte B. Ich möchte, dass wenn ein Wert in Spalte B vier Kommastellen hat, eine Kommastelle abgeschnitten (nicht gerundet) wird.
Sub Umwandeln()
Anzahl = Application.CountA(ActiveSheet(Range("B:B"))) - 1
For i = 2 To Anzahl
If Range("B" & Anzahl) = "vier Kommastellen" Then
Wert = Application.RoundDown(Sheets("Tabelle1").Range("B" & Anzahl), 3)
Range("B" & Anzahl) = Wert
End If
Next i
End Sub
Ich danke euch!!!
Gruß
Uni