Zelle Formel durch Inhalt ersetzen VBA
09.07.2022 10:03:56
GerdL
Hallo,
ich suche ein VBA code
Zelle A1 ist eine Formel hinterlegt - wenn jetzt der Zellwert 95 erreicht dann soll die Formel in der Zelle durch den Inhalt ersetzt werden.
ist sowas möglich? ich habe gefühlt das ganze Netzt jetzt schon durch.
über eine Antwort, besten Dank.
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- diesen Code rechts einfügen
Private Sub Worksheet_Calculate()
With Range("A1")
If .HasFormula And .Value >= 95 Then
.Value = .Value
End If
End With
End Sub
Bei jeder Neuberechnung wird Zelle A1 geprüftLG UweD
Betrifft: AW: Zelle Formel durch Inhalt ersetzen VBA
WOW,
herzlichen Dank - ich habe mir hier echt ein Wolf gesucht und nichts gefunden...
darf ich noch eine Frage stellen :) - geht das auch mit einer ganzen Spalte - das er überprüft wo der Wert erreicht ist und den Wert durch die Formel ersetzt?
wenn ich z.B. statt Range A1 sowas in der Art Range("B5:B10").EntireColumn.Select setze
hier meckert er zwar aber vielleicht geht das ja mit einem anderen code
LG
Betrifft: AW: Zelle Formel durch Inhalt ersetzen VBA
Hallo Thomas!
Private Sub Worksheet_Calculate()
Dim C As Range, lngCalc As Long
lngCalc = Application.Calculation
Application.Calculation = xlCalculationManual
For Each C In Range("B5:B" & Columns(2).Cells(Rows.Count).End(xlUp).Row)
If C.HasFormula = True Then
If C.Value >= 95 Then
.Formula = .Value
End If
End If
Next
Application.Calculation = lngCalc
End Sub
Gruß GerdBetrifft: AW: Korrektur
Private Sub Worksheet_Calculate()
Dim C As Range, lngCalc As Long
lngCalc = Application.Calculation
Application.Calculation = xlCalculationManual
For Each C In Range("B5:B" & Columns(2).Cells(Rows.Count).End(xlUp).Row)
If C.HasFormula = True Then
If C.Value >= 95 Then
C.Formula = C.Value
End If
End If
Next
Application.Calculation = lngCalc
End Sub