Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Reihe eines Arrays an neues Array übergeben

Reihe eines Arrays an neues Array übergeben
Dennis
Hallo zusammen,
ich würde gerne wissen ob es möglich ist eine komplette Reihe eines Arrays an ein neues Array zu übergeben ohne dabei auf schleifen zurück greifen zu müssen.
Also das man direkt sagt
z.B. Array1(800,149)
und nun möchte ich in dem Array2 die komplette Reihe 350 zuweisen (also alle 150 spalten):
Array2 = Array(Reihe 350)
Würde mich über Hilfe sehr freuen.
Schonmal danke im voraus...
Gruss Dennis

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Reihe eines Arrays an neues Array übergeben
20.06.2011 17:06:24
MichaV
Hallo,
hier ein Beispiel mit Zeile und Spalte. Mit "reinem" VB gehts nicht, aber in VBA kannst Du ja auf die Excel- Funktion Index zurückgreifen. Aber Vorsicht, es gibt da ekelige Grenzen, Probleme kanns bei langen Texten und grossen Arrays geben. Teste also ein bissel mit Extremwerten rum.

Option Explicit
Sub bla()
Dim quelle(1 To 500, 1 To 500)
Dim ziel()
Dim x%, y%
For x = 1 To 500
For y = 1 To 500
quelle(x, y) = "x:" & x & " y:" & y
Next y, x
ziel = Application.WorksheetFunction.Index(quelle, 5)
Range("A1:A500") = Application.WorksheetFunction.Transpose(ziel)
Erase ziel
ziel = Application.WorksheetFunction.Index(quelle, 0, 5)
Range("B1:B500") = ziel
End Sub
Gruss- Micha
Anzeige
AW: Reihe eines Arrays an neues Array übergeben
20.06.2011 17:17:17
Dennis
Hallo Micha,
danke für deine Antwort.
Mein Problem ist ich habe eine ziemliche grosse Datenmenge. 100.000 Zeilen und 150 Spalten voll mit Werten.
Ich speicher die ganzen Werte in einem Array:
ar = Range("A1").CurrentRegion.Value
Und in einem neuen Array würde ich gerne nur jede 10. Zeile haben....
Hast du evtl. eine Idee wie das gehen könnte. Oder sind das schon zuviele Werte, da du meintest bei grossen Arrays kann es Probleme geben.
Danke & Gruss
Dennis
AW: Reihe eines Arrays an neues Array übergeben
20.06.2011 17:49:51
MichaV
Hallo Dennis,
das Problem gabs bei Arrays mit mehr als 5461 Elementen. Dann gabs aber auch ne Fehlermeldung. Weiss nicht ob das für XL2007 behoben wurde. (Bei XLimits ist das unter "Limitationen der Transpose-Methode" beschrieben, aber den Fehler gabs auch bei der .Index()- Methode. Intern wird da wohl transponiert...) Also einfach ausprobieren.
Ich habe auch mal gelesen dass lange Texte (über 256 Zeichen?) beim transponieren (also evtl. auch durch Index()) abgeschnitten werden.
Du musst ja sowieso mit Schleifen arbeiten, wenn Du jede 10. Zeile haben willst. Kannst Du dann nicht jede 10. Zeile in der CurrentRegion direkt abgreifen? Glaube nicht das das viel länger dauert...
Gruss- Micha
Anzeige
Nachfrage
20.06.2011 18:02:52
Reinhard
Hallo Micha,
"Mit "reinem" VB gehts nicht, aber in VBA kannst Du..."
ich dachte es wäre andersrum. Im VB-Brett des dir bekannten anderen Forums habe ich ähnlich angefragt, also Teile eines mehrdimensionalen großen Arrays in ein kleineres zu extrahieren.
In Vb scheint das zu gehen mit API, in Vba nicht.
In VB nimmt man da "copymemory", das braucht als Argument/paramter einen Pointer auf die variable (den gibts in Vba nicht), dann die Bytelänge und die Angabe wohin, also den memorybereich des neuen Arrays, dann klappt das wohl.
Liege ich falsch? (Ist schon Jahre her wo ich da diesbezüglich angefragt habe)
Gruß
Reinhard
Anzeige
AW: Nachfrage
20.06.2011 18:16:47
MichaV
Hallo Reinhard,
API gehört für mich nicht zu "reinem" VB. Mit API greifts Du auf andere (z.B. Windows-) Funktionen zurück, eben weil sie in VB nicht zur Verfügung stehen.
Gruss- Micha
AW: Reihe eines Arrays an neues Array übergeben
20.06.2011 18:52:43
Daniel
HI
eine entsprechende Funktion ist mir nicht bekannt.
da VBA beim Arbeiten mit Arrays sehr schnell ist, spricht in diesem Fall nichts gegen die Schleifenlösung.
selbst wenn es eine Funktion gäbe, intern müsste sie ja die gleiche Schleife ausführen.
Gruß, Daniel
AW: Reihe eines Arrays an neues Array übergeben
21.06.2011 11:27:48
Dennis
Hallo zusammen,
danke an alle die mir geholfen haben.
Were es nun doch mit Schleifen lösen so wie es Daniel vorgeschlagen hat.
Das Problem bei der Variante von Micha ist, das ich damit zwar genau die eine Reihe aus dem Array heraus holen kann, aber die Reihe dann nicht einfach an das neue Array anhängen kann...
Gruss Dennis
Anzeige

36 Forumthreads zu ähnlichen Themen

Tabellenarray an Tag der Ufrm übergeben
Peter

Hallo Forum,
ich möchte bestimmte Tabellenblätter, die als Array zusammengefasst sind,
einer Variable zuordnen.
Diese Variable soll bei Aufruf der Ufrm durch eine
Schaltfläche der Tag Eigenschaft der Ufrm übergeben werden und entsprechende
Tabellenblätter ein bzw. ausblenden...
06.12.2009 10:29:57
Thread-ID: 1122029
3 Beiträge
Anzeige
Arraylist-Methode insert() funktioniert nicht
Jörg

Hallo,
was ist am folgenden Code falsch? Ich möchte an zweiter Stelle ein Item mit dem Wert 1 einfügen.
Private Sub test() Dim x As Object Set x = Nothing Set x = CreateObject("System.Collections.ArrayList") x.add 5 x.add 2 x.add 10 x.insert (1,"1") End Sub
Bei der letzten Zeile...
14.02.2010 23:22:13
Thread-ID: 1138543
6 Beiträge
Array an ParmaArray übergeben
Schattenkirchner

Hallo Spezialisten,
ich habe eine Prozedur mit einem ParamArray: Sub TEST (ParamArray Number()) End Sub Der Aufruf
TEST 1, 6, 9, 55, 1000
funktioniert einwandfrei, sofern sich die Anzahl der Numbers in grenzen hält. Wenn ich aber ca. 250 Argumente eintippen muss, wirds schon müssi...
30.05.2010 18:01:45
Thread-ID: 1159471
7 Beiträge
Anzeige
Objekt an Funktion übergeben
Dirk

Hallo liebes Forum,
Ich habe lange rumprobiert aber es will nicht gelingen...
... Wie kann ich ein Objekt an eine Funktion übergeben?
Hier der Aufruf Private Sub CommandButton1_Click() Call createarray("Tabelle1", 2, 1, 35, Userform1.ListBox1) End Sub Hier die Funktion
Function...
20.07.2010 21:18:45
Thread-ID: 1167962
6 Beiträge
Tabelle in Funktion übergeben
Dirk

Hallo zusammen!
Frage ist folgendes möglich?
Auf einem Tabellenblatt Tabelle1 befinden sich Images als control
in einer Funktion
function imageoption(ctl as string, wks as Worksheet)
wks(ctl).picture = load picture (blabla)
End Function
Ein Click ereignis soll die W...
30.10.2010 16:14:42
Thread-ID: 1184523
3 Beiträge
Daten aus einer Funktion in Array
Guybrush

Hallo!
Folgendes Problem:
Ich gebe in einer Funktion (Variant) ein Array in ein Worksheet aus.
Im Worksheet ist der Bereich mit SHIFT+CTRL+ENTER markiert.
Die Daten aus der Funktion sind teilweise Datum, Zeit und Zahlen:
z.B.: ab A1:
13.05.2012 00:06:03 140 2
16.05.2...
22.08.2012 19:22:43
Thread-ID: 1276090
5 Beiträge
Data Strucute an Funktion übergeben
Benni

Hallo,
ich habe ein kleines Problem bei der Übergabe von Daten Strukturen an eine Funktion, folgender Aufbau liegt vor:
Ich möchte in der unten S ub "berechnen" die Datenstrukur werte2 übergeben, allerdings sollen in dieser Datenstruktur auch die Werte von der Struktur werte1 enthalten...
28.12.2012 14:50:44
Thread-ID: 1292251
5 Beiträge
Array in Funktion
Andreasser

Guten Morgen allerseits
ich mühe mich jetzt schon seit Stunden mit dem Versuch ab eine einfache Funktion zu schreiben, und zwar habe ich Probleme beim ersten Punkt des Codes. Ich möchte der Funktion noten(bereich) den Bereich übergeben und es sollen alle im Bereich enthaltenen Werte in ein...
29.03.2013 09:05:58
Thread-ID: 1306441
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
9
5
6
6
5
2
4
4
8
3
7
12
2
2
2
13
21
4
6
4
9
22
3
1