Office: VBA Formelberechnung und Werte gleich in Zellen schreiben

lcars11 · 4. Oktober 2010

Hallo,
ich brauche mal Eure Hilfe.

Ich will die Differenz zwischen 2 Daten Berechnen in Tagen (nicht Arbeitstage)
Die Daten stehen in den Spalten E3:E100 und I3:I100.
Die Zielspalte ist H3:H100.

Die Formel einzutragen ist nicht schwer:
Code:

Range("H3:H100").FormulaLocal = "=I3-E3"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt will ich aber nicht die Formel direkt im Blatt haben, sondern gleich das Ergebnis, da ich mehrere tausend Datensätze habe und die ständigen Formelneuberechnungen die Datei extrem bremsen.

Ich habe im Netz schon folgenden Code gefunden:

Code:

Private Sub Worksheet_Calculate()
Dim objCell As Range
For Each objCell In Range("H3:H100")
If objCell.HasFormula Then _
If IsNumeric(objCell.Text) Then _
If Fix(objCell.Value) = objCell.Value Then _
objCell.Value = objCell.Value
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktioniert auch, nur wie binde ich jetzt beides in selection change ein, um den Code nicht jedes Mal per Klick ausführen zu müssen?
Wenn in den Spalten E und I schon Daten stehen, sollen diese nicht noch einmal neu berechnet werden.

Oder gibt es vielleicht einen besseren Weg?

Grüße Anja

:)

IngGi · 6. Oktober 2010

Hallo Anja,

wandle alle bereits in Spalte H enthaltenen Formeln in Werte um und verwende für künftige Änderungen/Ergänzungen folgendes Makro:

'#######################################################
'# #
'# Code einfügen in: #
'# das Klassenmodul des betreffenden Tabellenblattes #
'# #
'#######################################################
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'alle Zellen im geänderten Bereich prüfen
For Each rng In Target
'wenn Änderung in Spalte E oder I
If rng.Column = 5 Or rng.Column = 9 Then
'Differenz Spalte I minus Spalte E in Spalte H eintragen
Range("H" & Target.Row) = Range("I" & Target.Row) - Range("E" & Target.Row)
End If
Next 'rng
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 6. Oktober 2010

hi

lege folgenden Code direkt in das Tabellenblatt

Code:

'Range("H3:H100").FormulaLocal = "=I3-E3"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Row >= 3 And Target.Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: VBA Formelberechnung und Werte gleich in Zellen schreiben

VBA Formelberechnung und Werte gleich in Zellen schreiben

VBA Formelberechnung und Werte gleich in Zellen schreiben

VBA Formelberechnung und Werte gleich in Zellen schreiben - Similar Threads - VBA Formelberechnung Werte

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)