Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte eines Arrays auf ein Mal in Range schreiben?

Werte eines Arrays auf ein Mal in Range schreiben?
17.10.2005 14:26:30
Jens
Hallo liebe Leute!
Mir schien, da gab's eine Möglichkeit...
Ich möchte die Werte eines Arrays auf einen Schlag an einen Range zuweisen. Etwa so:

Sub Test()
Dim intTest(1 to 3) As Integer
intTest(1) = 4
intTest(2) = 6
intTest(3) = 9
Range("A1:A3").Value = intTest()
End Sub

Geht aber so nicht, weil am Ende steht in allen Zellen nur die 4 drin.
Die Variante, jeden Wert einzeln zuzuweisen, möchte ich aus Zeiteffizienz-Gründen nicht gehen. Wenn's aber sonst eine sehr schnelle Möglichkeit gibt, dies zu machen, bin ich offen!
Vielen Dank für eure Antworten sagt wie immer
der Jens

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

Betreff
Datum
Anwender
Anzeige
AW: Werte eines Arrays auf ein Mal in Range schreiben?
17.10.2005 14:33:59
Uduuh
Hallo,
das Array muss 2-Dimensional sein (Zeile,Spalte).

Sub Test()
Dim intTest(1 To 3, 1 To 1) As Integer
intTest(1, 1) = 4
intTest(2, 1) = 6
intTest(3, 1) = 9
Range("A1:A3").Value = intTest()
End Sub

Gruß aus’m Pott
Udo

AW: Werte eines Arrays auf ein Mal in Range schrei
17.10.2005 14:36:08
Jens
Hallo Udo!
Danke, funktioniert! Hat mir sehr geholfen, also vielen Dank!
Jens
AW: Werte eines Arrays auf ein Mal in Range schreiben?
17.10.2005 14:35:09
MichaV
Hallo,
gehst doch, Du musst das Array vorher nur drehen:
Range("A1:A3").Value = WorksheetFunction.Transpose(intTest())
Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Werte eines Arrays auf ein Mal in Range schrei
17.10.2005 15:07:43
Jens
Hallo Uduuh und MichaV!
Hab beide Versionen probiert, beide Funktionieren.
Allerdings ist die zweite Version (eindimensionales Array mit transponieren) um einiges schneller, v.a. bei größeren Datenmengen. Außerdem etwas einfacher zu implementieren.
Also vielen lieben Dank an euch beide, habt mir auf jeden Fall geholfen!
sagt der Jens
AW: Werte eines Arrays auf ein Mal in Range schrei
18.10.2005 07:41:19
Heiko
Moin Jens,
wenn du Transpose einsetzen willst, gerade bei großen Datensätzen, dann Vorsicht da gibt es Grenzen.
aus dem Online-Excel Forum von MichaV.
Auf der alten XLimits- Seite bin ich nun auf einen weiteren Hinweis gestolpert, der meine Vermutung bestätigt hat: Es gibt in Excel97 und 2000 (die kann ich testen) in einigen Fällen eine Einschränkung beim Arbeiten mit Arrays. XLimits sagt dazu:
Limitationen der Transpose-Methode
If you decide to use Excel's Transpose method instead of the TransposeDim() function to transpose the array, you should be aware of the following limitations with the Transpose method:
The array cannot contain an element that is greater than 255 characters.
The array cannot contain Null values.
The number of elements in the array cannot exceed 5461.
http://web.archive.org/web/20040706194455/http://195.186.84.74/xlimits/arrays.htm
( Ob der Link noch geht habe ich nicht getestet. !!! )
Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: Werte eines Arrays auf ein Mal in Range schrei
18.10.2005 09:28:15
Jens
Hallo Heiko!
Danke für den Hinweis mit dem Transpose.
Inzwischen mache ich es so, dass ich einem größeren Zellbereich ein mehrdimensionales Array zuweise, also n Zeilen und m Spalten. So in der Art
redim intTest(1 to n, 1 to m)
...
Range(cells(1,1),cells(n,m)).value = intTest
Funktioniert bisher problemlos.
Danke trotzdem für deinen Hinweis.
LG,
Jens
AW: Werte eines Arrays auf ein Mal in Range schrei
18.10.2005 09:32:45
MichaV
Hallo,
danke Heiko, da hab ich nicht mehr dran gedacht.
Für alle, die es nicht glauben: (XL2000)


Option Explicit
Sub Test()
Dim a
Dim b
Dim i%
ReDim a(5460)
For i = 1 To UBound(a)
  a(i) = Rnd
Next
On Error Resume Next
b = WorksheetFunction.Transpose(a)
If Err.Number = 0 Then Debug.Print "Transponieren bei 5460 Elementen erfolgreich"
On Error GoTo 0
ReDim a(5461)
For i = 1 To UBound(a)
  a(i) = Rnd
Next
On Error Resume Next
b = WorksheetFunction.Transpose(a)
If Err.Number <> 0 Then Debug.Print "Transponieren bei 5461 Elementen nicht erfolgreich"
On Error GoTo 0
ReDim a(2)
For i = 1 To 2
  a(i) = Space(255)
Next i
On Error Resume Next
b = WorksheetFunction.Transpose(a)
If Err.Number = 0 Then Debug.Print "Transponieren bei Elementen mit Länge 255 erfolgreich"
On Error GoTo 0
ReDim a(2)
For i = 1 To 2
  a(i) = Space(256)
Next i
On Error Resume Next
b = WorksheetFunction.Transpose(a)
If Err.Number <> 0 Then Debug.Print "Transponieren bei Elementen mit Länge 256 nicht erfolgreich"
End Sub



Gruss- Micha.
Anzeige

135 Forumthreads zu ähnlichen Themen

Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
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
Anzeige
Array In Vba
@lex

Hallo VBA-Spezialisten !
Seit graumer Zeit suche ich ein Code-Gerüst um Arrays in VBA zu programmieren.Hintergrund:
Ich habe ca. 500 Shapes (MSMap) in einem Blatt.
Mit einer Schleife wird jedes Objekt auf eine Eigenschaft geprüft.
Ist die Prüfung wahr, dann soll dieses Objekt der Se...
12.04.2002 11:59:16
Thread-ID: 112756
4 Beiträge
Range in Array füllen, Problem bei Cells.Count = 1
Andreas

Hallo VBA Freunde,
ich habe es heute zum ersten mal angewandt, ein Array nicht mit einer Schleife, sondern gleich als einen Block zu füllen. Dank Renee konnte ich auch den Fehler beheben, daß ich mein Array nur eindimensional eingerichtet hatte.
Also für Ranges mit mehr als 1 Zelle funk...
22.02.2010 16:33:21
Thread-ID: 1140417
7 Beiträge
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 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
12
13
5
4
4
3
6
4
1
3
2
4
6
2
6
6
11
8
17
2
12
3
4
8
2