excel formel durch wert ersetzen vba

Private Sub Worksheet_Calculate() Dim objCell As Range For Each objCell In Range("M2:M14") If objCell.HasFormula Then _ If IsNumeric(objCell.Text) Then _ If Fix(objCell.Value) = objCell.Value Then _ objCell.Value = objCell.Value Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Calculate() Dim objCell As Range For Each objCell In Range("M2:M14") If objCell.HasFormula Then If objCell.Text "" Then objCell.Value = objCell.Text 'oder = objCell.Value End If End If Next End Sub

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Calculate() Dim objCell As Object, objRange As Object On Error Resume Next Application.EnableEvents = False Set objRange = Range("M2:M14").SpecialCells(xlCellTypeFormulas) If Not objRange Is Nothing Then For Each objCell In objRange If objCell.Value <> "" Then objCell.Value = objCell.Value Next End If Application.EnableEvents = True End Sub

Hallo Helmut,
das deine Formel FALSCH als Ergebnis liefert, solange die Bedingung nicht erfüllt ist, hättest du selber wissen müssen und den Code auch entsprechend anpassen können.

' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
Dim objCell As Object, objRange As Object

On Error Resume Next
Application.EnableEvents = False
Set objRange = Range("M2:M14").SpecialCells(xlCellTypeFormulas)
If Not objRange Is Nothing Then
  For Each objCell In objRange
    If objCell.Value <> False Then objCell.Value = objCell.Value
  Next
End If
Application.EnableEvents = True
End Sub

Gruß Sepp

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Calculate() Dim objCell As Object, objRange As Object On Error Resume Next Application.EnableEvents = False Set objRange = Range("K3:CS10").SpecialCells(xlCellTypeFormulas, xlLogical) If Not objRange Is Nothing Then For Each objCell In objRange If objCell.Value = True Then objCell.Value = objCell.Value Next End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

excel formel durch wert ersetzen vba

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

excel formel durch wert ersetzen vba

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread