VBA Zahl 3 in Array 0,0,1,0 umwandeln

Hallo zusammen,
es ist Ewigkeiten her, dass ich hier Fragen gestellt habe. Aber dieses Forum ist und bleibt in guter Erinnerung.
Ich habe ein neues Projekt gestartet, womit ich überwiegend all die Tätigkeiten im Excelblatt über die Array Funktion in VBA ausführen möchte.
Momentan happert es am folgenden Vorgehen:
Im Bereich A2:D4 stehen Zahlen, die ich in eine Art Binärcode umwandeln möchte.
Dabei soll die eigentliche Zahl an derselbigen Position eine 0,99 darstellen und alle anderen 0,01.
Dabei steht die kleinste und die größte Zahl für die Range (also 1 und 9 in dem Beispiel.. daher die komplette Aufstellung von 1,2,3,4,5,6,7,8,9).
(Die tatsächliche Range ist bei weitem höher und liegt bei 10.000 Zeilen und Spalten mit Zahlen gefüllt, aber das mache ich mir dann)
So würde es am Beispiel aussehen, wenn ich es blos mit Formeln erledigen würde:
Userbild

Der Bereich F2:N4 müsste in einem Array auftauchen, damit ich mit dem weiter rechnen kann.
Zum Testen würde es auch reichen, wenn die Werte in einem neuen Tabellblatt eingefügt werden.
Wer hat Ideen oder Ansätze? Würde mich über Eure Hilfestellung gerne freuen.
VG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
naja, statt Formel dann über die Arrays schleifen und die Werte vergleichen:
das ist der Code für eine reine VBA-Lösung mit Rückschreiben der Werte

dim arr1, arr2, arr3
dim z as Long
dim s as Long
dim s1 as Long
arr1 = Range("A2:D4").value
arr2 = Range("F1:N1").value
redim arr3(1 to ubound(arr1, 1), 1 to ubound(arr2, 2))
for z = 1 to ubound(arr1, 1)
for s = 1 to ubound(arr2, 2)
for s1 = 1 to ubound(arr1, 2)
arr3(z, s) = 0.01
if arr1(z, s1) = arr2(1, s) then
arr3(z, s) = 0.99
Exit for
end if
next s1
next s
next z
range("F2").Resize(ubound(arr3, 1), ubound(arr3, 2)) = arr3

das wäre die Formellösung per VBA

with Range("F2:N4")
.FormulaR1C1 = "=IF(ISNUMBER(MATCH(R1C,RC1:RC4,0)),0.99,0.01)"
.Formula = .Value
end with

kannst ja mal beides an deine Datenmenge anpassen und die Laufzeit vergleichen.
wenn Variante 1 nicht deutlich schneller ist, würde ich Variante 2 bevorzugen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

VBA Zahl 3 in Array 0,0,1,0 umwandeln

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

352 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zahl 3 in Array 0,0,1,0 umwandeln

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

352 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread