Per VBA,ohne Copy zu nutzen: mehrere Zellen mit 2 dividi?

Hallo Leute,

ich versuche gerade alles umzuschreiben und die ganzen Copy.Funktionen herauszunehmen. Soweit so gut. Nun stoße ich auf ein Problem:

Range("A1:D50000").Value = Range("E1:H50000").Value

funktioniert und Excel kopiert alle Zellen mit individuellen Werten in die anderen Zellen in einem akzeptablen Speed im Gegensatz zur Standard Copy-Paste-Value Funktion wo man ja den Zwischenspeicher von Windows nutzen muss.

Warum funktioniert das nicht mit einer einfachen Division einer Konstanten?:

Range("A1:D50000").Value = Range("E1:H50000").Value / 2

Eine Lösung die ich gefunden habe, aber zu langsam ist (da Excel jede Einzelne Zelle abfragt), ist diese (Verwendung von for oder Schleife):

Range("A1:D50000").Select



'Dim zelle As Range

'For Each zelle In Selection

'zelle.Value = zelle.Value / 2

'Next zelle

Das dauert fast 13 Sekunden bei mir. Mit der Copy und Special-Paste funktion (die ich nicht nutzen kann) dauert es 0.1 Sekunde (!)

Kann man das irgendwie über ein Array Lösen? Excel hat einfach das Problem, dass wenn man Versuche unternimmt das ohne Schleifen/Individualabfrage der Zellen zu lösen, alle Zellen mit dem gleichen Inhalt füllt und nicht individuell per Zelle vorgeht. In dieser folgenden, relativ schnellen Funktion funktioniert das komischerweise (also schnell und individuell jede Zelle kopiert) -allerdings ohne Rechenoperationen (z.B. durch 2 Teilen) oder ich bin einfach nur unwissend und man kann das hier irgendwie einfügen (also durch 2 zu teilen?):

Range("A1:D50000").Value = Range("E1:H50000").Value

Habt Ihr noch andere Ansätze um mehrere Zellen durch 2 zu dividieren?

Vielen Dank!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Warum funktioniert das nicht mit einer einfachen Division einer Konstanten?:
Range("A1:D50000").Value = Range("E1:H50000").Value / 2
weil VBA ein BASIC und damit eigentlich eine ziemlich alte einfache Progammiersprache ist, in der man noch ziemlich viel selber programmieren muss.
Da funktioniert eine Einzelwertoperation wie +-*/ auch wirklich nur mit Einzelwerten und kann nicht auf Arrays angewendet werden. Das ist dann ein Komfort, den erst weiter Entwickelte Programmiersprachen haben oder den Excel in seiner Formelsprache hat, da Formelsprachen keine Schleifenanweisungen haben. (obwohl, ist mittlerweile auch nicht mehr ganz richtig, mit NACHEZEILE und NACHSPALTE bekommen Excelformeln jetzt auch explizite Schleifenelemente)

Habt Ihr noch andere Ansätze um mehrere Zellen durch 2 zu dividieren?
ja, sogar für die Kombination der Aufgabe: übernimm Werte aus anderen Zellen und Teile sie durch 2, das geht in einem Schritt, ohne Nutzung der Zwischenablage.

With Range("A1:D50000")

   .FormulaR1C1 = "=RC[4]/2"

   .Formula = .Value

End with

bitte mal in deinen Speedvergleich mit aufnehmen und dabei berücksichtigen, dass hier nicht nur durch zwei geteilt wird, sondern gleichzeitig die Werte aus dem anderen Zellbereich übernommen werden.

Gruß Daniel

Private Sub CommandButton1_Click() Dim rng, ti ti = Timer Set rng = Range("A1:D30000") rng = Evaluate(rng.Address & "/2") Range("I1:L30000") = rng MsgBox Timer - ti & " sec" End Sub

Dim Arr
Dim i, j
Arr = Range("E1:H50000").Value
For i = 1 To UBound(Arr, 1)
For j = 1 To UBound(Arr, 2)
Arr(i, j) = Arr(i, j) / 2
Next
Next
Range("A1:D50000").Value = Arr

Sub divideByTwo() Dim rngSource As Range Dim rngTarget As Range Dim dblTi As Double dblTi = Timer Set rngSource = Range("E1:H50000") Set rngTarget = Range("A1:D50000") rngTarget = 0.5 rngSource.Copy rngTarget.PasteSpecial Operation:=xlPasteSpecialOperationMultiply MsgBox Timer - dblTi & " sec" End Sub

Sub Dividiere() Dim Arr Dim i, j Arr = Range("E1:H50000").Value For i = 1 To UBound(Arr, 1) For j = 1 To UBound(Arr, 2) Arr(i, j) = Arr(i, j) / 2 Next Next Range("A1:D50000").Value = Arr End Sub

Beliebteste Forumthreads (12 Monate)

Per VBA,ohne Copy zu nutzen: mehrere Zellen mit 2 dividi?

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per VBA,ohne Copy zu nutzen: mehrere Zellen mit 2 dividi?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread