Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Alle Werte in einer Matrix durch eine Zahl teilen ohne Rest
#1
Guten Morgen Liebe Excel Freunde,


Ich habe 2160 Zeilen und 4096 Spalten (die 4096. Spalte ist die Spalte "FAN").


In jedem Feld steht ein ganzzahliger Wert und die Werte gehen von 0 - 65355.


Nun möchte ich alle Zahlen in den Feldern durch 64 teilen, ohne Rest. Da es insgesamt ca 8,8 Millionen Felder sind, wäre eine Ressourcensparende Methode wünschenswert.



ich bedanke mich im Voraus und freue mich auf Hilfe,


Gruß,


JustAStudent
to top
#2
Hallo,

1. sollen die Zahlen an Ort und Stelle dividiert werden???
2. "ohne Rest", sollen alle Ergebnisse ganzzahlig sein???
Gruß


Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
to top
#3
Danke für deine schnelle Antwort.

1. Ja die zahlen sollen optimalerweise an Ort und Stelle dividiert werden.
2. Alle Ergebnisse sollen ganzzahlig sein
to top
#4
Hallo,

anbei ein Makrovorschlag:
- liest Tabelle1 nach Array (ca 3 Sek)
- teilt alle Zahlen durch 64 (< 1 Sek)
- speichert Ergebnis nach Tabelle1 zurück (ca 27 Sek)

Gruß
Aloys

Code:
Sub Test3()             'Daten aus Tab1 nach Array, Division durchführen und Ergebnis aus Array nach Tab1 zurück
   Dim r As Long, c As Long
   Dim arr()
   Dim szeit As Single
   
   szeit = Timer
   arr = Range(Cells(1, 1), Cells(2160, 4096))
   MsgBox "Phase 1 (Laden Array aus Tab 1)  " & Timer - szeit
   
   szeit = Timer
   For c = 1 To 4096
       For r = 1 To 2160
           arr(r, c) = CLng((arr(r, c) / 64))
       Next r
   Next c
   MsgBox "Phase 2 (dividieren)  " & Timer - szeit
   
   szeit = Timer
   Application.ScreenUpdating = False
   Range(Cells(1, 1), Cells(2160, 4096)) = arr
   Application.ScreenUpdating = True
   MsgBox "Phase 3 (Speichern Array in Tab 2  " & Timer - szeit

End Sub
Win 7, Office 2010
to top
#5
Hi,

hier ein zweiter Ansatz (Laufzeit 20 Sekunden)

Code:
Sub TabelleInArrayDividierenUndZurück()
Dim Quelle As Variant
Dim Zeile As Long
Dim Spalte As Long
 
Debug.Print Now

Quelle = Tabelle1.Range("A1:FAN2160")
   
   For Spalte = 1 To 4096
 
       For Zeile = 1 To 2160
         
           Quelle(Zeile, Spalte) = Int(Quelle(Zeile, Spalte) / 64)
   
       Next Zeile
 
 Next Spalte
 
 Tabelle1.Range("A1:FAN2160") = Quelle
 Debug.Print Now
   
End Sub

Gruß
Max
to top
#6
Erst mal vielen Dank 17  ich erhalte unterschiedliche Werte bei den beiden Funktionen. Und Ich das Gefühl, dass die Werte gerundet werden. Das soll nicht passieren. So sollte ich z.B. für die Zahlen 0 - 63 die Zahl 0 erhalten, für 64 - 127 die Zahl 1 usw.

Gruß,

JustAStudent
to top
#7
Hi,

Du schreibst oben ganzzahliges Ergebnis.
INT ist das VBA-Pendant zur Funktion GANZZAHL.

EDIT:
Rest der ursprünglichen Antwort gelöscht.

Also willst Du grundsätzlich abrunden?


Gruß
Max
to top
#8
Ja ich will abrunden, das hatte ich eigentlich mit Ohne Rest gemeint  19 Sorry für das Missverständnis
to top
#9
Hallo,

Int() und Fix() runden ab!

Gruß Uwe
to top
#10
Was genau muss ich abändern? Bin leider ein ziemlicher Noob in sowas.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Matrix bzw. Schnittpunkt der gesuchten Werte in einer Tabelle suchen Wolf59 4 44 Vor 9 Stunden
Letzter Beitrag: BoskoBiati
  Werte Zusammenzählen mit Suchkriterium in einer anderen Spalte EDmen 6 70 05.12.2016, 20:49
Letzter Beitrag: EDmen
  SummeWenn aus alle Arbeitsblätter Pean 4 65 03.12.2016, 11:55
Letzter Beitrag: shift-del
Thumbs Up Daten aus einer Matrix auslesen tbuergel 1 44 25.11.2016, 21:39
Letzter Beitrag: shift-del
  VBA Formeln durch Werte ersetzen, aber nicht Pivot Torsten 8 134 24.11.2016, 21:52
Letzter Beitrag: Torsten
Rainbow Automatisch alle Namen der Tabellenblätter in einer DropDown-Liste supajanni 1 47 24.11.2016, 13:52
Letzter Beitrag: chris-ka
  alle Werte bei 2 Bedingungen finden Artemis 3 83 20.11.2016, 09:04
Letzter Beitrag: shift-del
  Zeilen kopieren und mit Formeln und Format, aber ohne Werte einfügen Peter Pan 7 130 18.11.2016, 08:17
Letzter Beitrag: Kuwer
  xml Daten über REST API importieren Spike87 5 117 16.11.2016, 09:56
Letzter Beitrag: Spike87
Lightbulb VBA Zeile in eine Arbeitsmappe kopieren wenn in der Zeile eine 1 steht Olossos 8 119 11.11.2016, 17:08
Letzter Beitrag: Kuwer

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste