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

Dynamisch einen Array fuellen aus Zellinhalten

Forumthread: Dynamisch einen Array fuellen aus Zellinhalten

Dynamisch einen Array fuellen aus Zellinhalten
18.05.2006 14:25:02
Horst
Hey !
Mal was ganz anderes:
Ich habe ein Tabellenblatt wo z.b A1 bis B30 mit zahlen gefuellt sind.
Jetzt moechte ich gerne diese zahlen per makro in einen Array einfuegen.
Also soetwss wie:
aarray = Array(Sheets("Tabelle1").Range("A1":BC30").Value)
funktioniert aber nicht.
hat jemand ne idee?
gruss
horst
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamisch einen Array fuellen aus Zellinhalten
18.05.2006 14:32:03
Peter
Hallo Horst,
versuch einmal das nachfolgende Makro:
'
' einlesen aus Range("A5:D10") in ein zweidimensionales Array
'
' das Array DARF KEINE Dimensionierung in der Definition erhalten
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'
Public 

Sub Zweidim_einfach()
Dim aTabelle  As Variant
aTabelle = Range("A5:D10")
Worksheets("Tabelle1").Range("A19:D24").Value = aTabelle
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Dynamisch einen Array fuellen aus Zellinhalten
18.05.2006 14:46:52
Horst
hallo peter !
Das einlesen ist gut mit:
myarray = Range("a1:b30").Value
aber wie bekomme ich jetzt aus dem mehrdimenisonaln array ein eindimensionalen,
so dass ich einfach drauf zugreifen kann, und mir keine gedanken machen muss in welcher dimension welcher wert steht.
Beispiel
Jetzt:
myarray(1, 1)
myarray(1, 2)
usw,
ich moechte aber
myarray(1)
myarray(2)
usw.
und so auf das gleiche ergebnis kommen !
Geht soetwas?
Gruss
horst
Anzeige
AW: Dynamisch einen Array fuellen aus Zellinhalten
18.05.2006 15:06:51
u_
Hallo,
halte ich zwar nicht für sinnvol aber...:

Sub tt()
Dim rng As Range, i As Long
Set rng = Range("A1:B30")
ReDim myarr(1 To rng.Cells.Count)
For i = 1 To UBound(myarr)
myarr(i) = rng.Cells(i)
Next
For i = 1 To UBound(myarr)
Sheets(2).Cells(i, 1) = myarr(i)
Next
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Dynamisch einen Array fuellen aus Zellinhalten
18.05.2006 15:52:16
Horst
danke, dass war das was ich braute !
Gruss
horst
;

Beliebteste Forumthreads (12 Monate)

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