Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.
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.)
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige