Daniel Ulbrich
Home > Visual Basic > VBA > Excel > Formelergebnis als Wert einfügen
Menü
Login-Formular
Letzte Änderung:
August 29. 2008 23:58:13
en

Formelergebnis als Wert einfügen


Das Makro kopiert für die markierten Zellen die Berechnungsergebnisse der Formeln als reine Werte in die Zellen ein. Nach Eingabe können die markierten Zellen auch mit schwarzer Schriftfarbe formatiert werden.

Sub Wert_enter()
fa = MsgBox("Sollen alle Zellen schwarze Schrift bekommen?", vbYesNo, "Schriftfarbe")
    Dim rng As Range
    Dim cl As Range
    Set rng = Application.Selection
    ber = Application.Calculation
    Application.Calculation = xlManual
z = rng.Cells.Count
i = 0
    For Each cl In rng.Cells
        x = cl.Value
        x = Trim(x)
        cl.Value = x
        If IsNumeric(x) Then cl.Value = CDbl(x)
        If fa = vbYes Then cl.Font.Color = RGB(0, 0, 0)
        i = i + 1
    Next
    Application.Calculation = ber
End Sub


 
© 2006-2008 Daniel Ulbrich | Alle Rechte vorbehalten | Impressum
Powered by CMSimple | Template Design by NMuD