Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array in Tabelle schreiben ... neues Problem :-(

Forumthread: Array in Tabelle schreiben ... neues Problem :-(

Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 10:21:36
Peter
Hallo zusammen,
gestern habt Ihr mir hier toll bei meiner Herausforderung zum Thema "Ein Array mit einem Schwung in eine Tabelle schreiben" geholfen.
Und grundsätzlich funktioniert das auch wunderbar.
Halt nur grundsätzlich :-(
Ich habe ein Array mit ca. 100.000 Elementen.
Das Schreiben in die Tabelle klappt ohne Fehler - leider werden nur die ersten ca. 40.000 Zellen mit den im Array enthaltenen Werten gefüllt, der Rest (gut 60.000 Zellen) hat immer den Wert #NV.
Wie gesagt - über das Lokalfenster kann ich sehen, dass alle 100.000 Einträge richtig mit Zahlen gefüllt sind ...
Habt Ihr nochmal eine Idee?
Danke für's Grübeln und viele Grüße
Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 10:26:10
Rudi
Hallo,
meine Glaskugel ist kaputt.
Code?
Gruß
Rudi
AW: Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 10:31:14
Peter
Hi Rudi,
hier der Code:

Sub konvertiereStundenZu5Minuten()
'   Deklarationen
Dim lngLoop                         As Long
Dim lngLoop2                        As Long
Dim varaStundenwerte()              As Variant
Dim vara5Minutenwerte(105120)       As Variant
Dim lngCounter                      As Long
'   Zielbereich leeren
wks5Minutengang.Range("L13:L1048576").ClearContents
'   Werte aus der Tabelle lesen
varaStundenwerte = wksStundengang.Range("O15:O8774").Value
'   Werte verarbeiten (ver-12-fachen)
lngCounter = 0
For lngLoop = LBound(varaStundenwerte) To UBound(varaStundenwerte)
For lngLoop2 = 1 To 12
lngCounter = lngCounter + 1
vara5Minutenwerte(lngCounter) = varaStundenwerte(lngLoop, 1)
Next lngLoop2
Next lngLoop
'   Werte in Tabelle schreiben
wks5Minutengang.Range("L13:L105132") = Application.Transpose(vara5Minutenwerte)
End Sub
Bei 39000 Datensätzen läuft er richtig, bei den hier eingestellten gut 100.000 Datensätzen sind dann die letzten ca. 60.000 Zellen mit #NV gefüllt.
Danke für Deine Zeit
Gruß
Peter
Anzeige
AW: Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 10:46:09
Daniel
Hi
Wenn ich dich erinnern darf, gestern schrieb dir Rudi folgende Zusatzinformation zur Funktion Transpose:
Geht aber nur bis ca. 65.000 Datensätze.
Dh wenn du ein eindimensionalen Array in das Tabellenblatt zurückschreiben willst, musst du das Transpose selber programmieren.
Dh du erstellt ein gleich grosses 2-d-Array und überträgst dann per Schleife die Daten vom 1-d ins 2-d-Array, und schreibst dann das 2-d-Array zurück.
Ist kein Problem, die Schleife ist schnell, sogar schneller als die Transpose-Funktion.
Die Alternative wäre, dass du das Array gleich als 2-d-Array anlegst.
Dim vara5Minutenwerte(105120, 1)
Dann brauchst du nicht mehr transponieren, musst halt aber immer das ",1" im Index mit angeben.
Gruß Daniel
Anzeige
AW: Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 10:50:13
Peter
Oh shit,
hab' ich gestern zwar gelesen ... aber inhaltlich wohl erfolgreich ignoriert :-)
Sorry dafür.
Werde es entsprechend umbauen.
Danke Daniel und Rudi
und viele Grüße
Peter
AW: Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 10:51:26
Rudi
Hallo,
schreib doch gleich in ein 2-Dim Array. 
Sub konvertiereStundenZu5Minuten()
'   Deklarationen
Dim lngLoop                         As Long
Dim lngLoop2                        As Long
Dim varaStundenwerte()              As Variant
Dim vara5Minutenwerte()       As Variant
Dim lngCounter                      As Long
'   Zielbereich leeren
wks5Minutengang.Range("L13:L1048576").ClearContents
'   Werte aus der Tabelle lesen
varaStundenwerte = wksStundengang.Range("O15:O8774").Value
ReDim vara5Minutenwerte(1 To UBound(varaStundenwerte) * 12, 1 To 1)
'   Werte verarbeiten (ver-12-fachen)
lngCounter = 0
For lngLoop = LBound(varaStundenwerte) To UBound(varaStundenwerte)
For lngLoop2 = 1 To 12
lngCounter = lngCounter + 1
vara5Minutenwerte(lngCounter, 1) = varaStundenwerte(lngLoop, 1)
Next lngLoop2
Next lngLoop
'   Werte in Tabelle schreiben
wks5Minutengang.Range("L13").Resize(UBound(vara5Minutenwerte)) = vara5Minutenwerte
End Sub

Gruß
Rudi
Anzeige
AW: Array in Tabelle schreiben ... neues Problem :-(
19.09.2018 11:13:44
Peter
Hallo Rudi,
vielen Dank nochmal - hab's jetzt genauso umgesetzt.
Gruß
Peter
;

Forumthreads zu verwandten Themen

Array in Tabelle schreiben
eres

Schönen Gruß in mein Lieblings-Forum,
ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
Dim HilfsArray(1 To 50000) As String
Dim i as long
Open Input_File For Input As #1
D...
08.04.2009 14:15:07
Thread-ID: 1067735
5 Beiträge
array to range, range to array
Andi

Hallo,
Opa Helmut auf dem Fahrrad:
For i = 1 To UBound(arr)
Cells(1, i) = arr(i)
Next 'i
Raumschiff Enterprise
Range(Cells(1, 1), Cells(1, UBound(arr))) = arr
Ich favorisiere die Methode Raumschiff Enterprise, aber wenn ein arr Speicherplatz mit 1000 Zeichen belegt...
21.12.2010 18:50:18
Thread-ID: 1192391
12 Beiträge
Anzeige
Werte in Array schreiben: Ich brauche Hilfe
Holger,

Guten Morgen liebes Forum,
heute steht mal wieder das unleidige Thema Array an meiner Tagesordnung.
Stück für Stück nähere ich mich an. In diesem Fall schleife ich durch einen Rangebereich.
Hierbei prüfe ich ob der Zellwert unter dem aktuellen unterschiedlich ist oder nicht.
Sin...
16.02.2011 10:28:56
Thread-ID: 1201093
18 Beiträge
VBA, Werte anhand Koordinaten in Tabelle schreiben
Christian

Hallo, ich hab ein kleines Problemchen welches ich gerne mittels VBA lösen möchte. Leider komme ich auch nach einiger Suche nicht mal ansatzweise auf eine Lösung.
Das ganze sieht so aus:
Ich habe 2 Tabellen:
Tabelle 1 hat 3 Spalten z.b. so:
Pos | Blatt | Wert
1 | 1...
01.09.2011 19:10:08
Thread-ID: 1228358
3 Beiträge
Per VBA Werte in eine Datei schreiben
Tobias

Hallo Leute,
ich möchte für den Brötchenverkauf in der Schule eine Statistik erstelle.
Jeden Tag soll , bei klicken des Bottons, aus der Excel Tabelle, die Anzahl, die Produktnummer, der Preis und die Kategorie in die Tabelle "Daten" geschrieben werden.
Mit folgendem Makro ist es...
09.02.2014 16:58:33
Thread-ID: 1348795
5 Beiträge
Array mit If-Anweisung
Moritz

Hallo alle zusammen,
ich beschäftige mich seit ein paar Tagen mit VBA. Ich habe momentan eine Arbeitsmappe die ich dafür gebrauche um eine Liste auszulesen und bestimmte daten dann immer wieder neu erstellten Worksheets zuzuweisen.
als erstes habe ich es ganz statisch nur mit einem work...
29.10.2014 10:23:53
Thread-ID: 1389301
4 Beiträge
VBA Kommentar aus Bereich einer Tabelle schreiben
Timonski

Hallo,
ich will von einem anderen Tabellenblatt, einen bestimmten Bereich z.B. A1:C20 in eine bestimmte Zelle (hier A1) als Kommentar reinschreiben...
hab auch schon mal was gefunden und was geändert, aber der Bereich bekomm ich nicht hin :-)
Sub MyComment() Dim myCom As Comment Dim...
11.03.2015 16:29:49
Thread-ID: 1414373
11 Beiträge
VBA - Werte in Zellen in eine Zelle schreiben
Josef

Hallo allerseits,
ich habe eine Beispieldatei erstellt, um meine Absicht verständlich zu machen.
https://www.herber.de/bbs/user/100813.xlsx
Ich möchte die Inhalte von mehreren, untereinanderliegenden Zellen (B3:B50) in eine Zelle (E2) schreiben lassen, getrennt durch ein |. Ich den...
15.10.2015 16:04:24
Thread-ID: 1452506
4 Beiträge
VBA - Code in Tabellenblatt schreiben
R4h4

Hallo alle Zusammen,
Das Ziel:
Formeln in ein Tabellenblatt schreiben und diese per VBA auslesen und anwenden
Hintergrund:
aktuell arbeite ich an einer Automatischen Rechnungsüberprüfung für viele verschiedene Posten mit Staffelpreisen via VBA.
Die Berechnung variiert dabei...
19.11.2015 12:37:01
Thread-ID: 1459436
2 Beiträge
Anzeige
VBA: Durchschnitt der x-größten Werte eines Arrays
Martin

Hallo,
gibt es eine einfache Möglichkeit den Durchschnitt der x-größten Werte eines Arrays zu ermitteln als VBA-Lösung? Als Formel geht es recht einfach:
http://chandoo.org/wp/2010/06/04/average-of-top-5-values
Ich habe eine Function mit einer Schleife geschrieben, aber vielleicht d...
25.11.2015 12:32:03
Thread-ID: 1460616
10 Beiträge
Anzeige
VBA Formeln in anderes Tabellenblatt schreiben und
Gesa

Hallo zusammen!
Ich benötige mal wieder euer Rudelwissen.
Ich habe eine Datei, in der in Tabelleblatt "Pivot" in den Feldern I4 bis N Zahlen per Formel rauskommen. Nun möchte ich diese Ergebnisse gerne in das Tabellenblatt "Ergebnis S. 1" ab B22 bis G kopieren. Allerdings nur, wenn in d...
21.08.2018 15:06:57
Thread-ID: 1640779
2 Beiträge
Eintrag Array ändert sich bei Pivot-Aktualisierung
Lars

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich habe neben einer Pivot-Tabelle eine Spalte mit Kommentare.
Ich frage die Spalte ab, wo ein Kommentar auftaucht und lese dann aus der Zeile zwei Einträge der Pivottabelle aus.
Diese schreibe ich in ein Array, einmal Kunde(iAnz)...
08.11.2018 13:30:08
Thread-ID: 1656176
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige