Differenz aus Spalten mit 'value'

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Dietmar;
VBA ist nicht Xl, hier musst du so etwas selbst datentypgerecht pgmieren oder eine xl/vbFkt benutzen, die das macht. Einfache Operatoren können das definitiv nicht leisten, weil man nunmal keinen Vektor von einem anderen subtrahieren kann. In Xl realisiert das die XlSteuerung, auf die du mit VBA idR keinen Zugriff hast, es sei denn du benutzt die vbFkt Evaluate, die aber TextFmln auswertet, weshalb du hierbei einen ZellBereich als Adresse angeben musst und kannst (aus einem Datenfeld ohne ZellBezug aber erst eine MatrixKonstante seiner Werte in TextForm machen müsstest).
Eine weitere Methode, in VBA einen Zyklus über die beiden VektorBereiche zu vermeiden, wäre die Benutzung einer XlFkt als WorksheetFunction. Da käme hier nur ~.Sum infrage, aber dafür müssten die Werte des 2.Bereichs negativiert wdn, was das gleiche Problem aufwirft, und außerdem würde so nur eine GesamtSumme gebildet wdn. Also führt normalerweise nichts an zyklischer Verarbeitung, Zelle für Zelle, vorbei, es sei denn, du trägst in den ganzen D-Vektor eine R1C1-basierte Fml ein, was du vermutlich nicht willst (allerdings könnte man die anschließend mit ihrem Ergebnis überschreiben) und sich bei der geringen ZellAnzahl auch nicht lohnt. Also entweder klassisch so …

Dim xZelle As Range
…
For Each xZelle In Range("D2:D10")
xZelle = xZelle.Offset(0, -3) - xZelle.Offset(0, -2)
Next xZelle

…oder mit vbFkt Evaluate so: Range("D2:D10") = Evaluate("A2:A10-B2:B10")
Morrn, Luc :-?
Besser informiert mit …

…führen und auch nicht fktionieren, da du ja den anscheinend schon vorhandenen Wert des Zieles hinzuaddieren willst, Dietmar,
aber das konnte Ralf (seine Variante hatte ich aber bereits genannt!) ebensowenig wie ich wissen, weil du das bei deiner Frage weder erwähnt noch in deinem Versuch angedeutet hattest… :-|
Bei Evaluate-Einsatz könnte man den aber voran- bzw nachstellen.
Bei großen Datenmengen wäre der Klassiker aber wohl am schnellsten und Ralfs Variante nur unnötig aufwendig (abgesehen mal davon, dass sie hier nicht einsetzbar wäre). Allerdings könnte auch .Sum verwendet wdn, dass Texte (nicht aber FehlerWerte!) und echte Wahrheitswerte (nicht bei Negation) ignoriert. Der Klassiker würde ebenso wie die Evaluate-Variante bei jedem Text oder Fehlerwert im DatenMaterial in einen Fehler laufen. Das müsste in diesem Fall noch abgefangen wdn.
Übrigens ist die Angabe von .Value hier zwar nicht falsch, aber überflüssig, da das die StandardEigenschaft eines Range (das gilt auch für einen mit .Offset verschobenen!) ist.
Luc :-?

Beliebteste Forumthreads (12 Monate)

Differenz aus Spalten mit 'value'

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread