Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

unstetige Range in Array packen

unstetige Range in Array packen
13.09.2018 11:54:20
Renan
Hallo zusammen,
gibt es eine Möglichkeit einen unstetigen Bereich (zb: "A1:A5" und "A7:A10") in einen Array zu packen?
Ich hatte eventuell daran gedacht für den ersten Bereich ("A1:A5") ein Array zu generieren dann diesen neu zu dimensionieren und den zweiten Bereich ("A7:A10") anschließen zusätzlich hinzuzufügen.
Leider habe ich das code-technisch nicht umgesetzt bekommen. Kann mir eventuell jemand dabei behilflich sein bitte?
Vielen Dank!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unstetige Range in Array packen
13.09.2018 12:26:52
Rudi
Hallo,
kann man z.B. so machen 
Sub aaa()
Dim r As Range, a(), i
Set r = Union(Range("A1:A5"), Range("A7:A10"))
ReDim a(1 To r.Areas.Count)
For i = 1 To r.Areas.Count
a(i) = r.Areas(i)
Next i
End Sub
Gruß
Rudi
AW: unstetige Range in Array packen
13.09.2018 12:56:14
Gerd
Hallo Renan,
dies ist normalerweise weder sinnvoll noch erforderlich.
Sub test()
Range("A1:A5:A7:A10").Select
Union(Range("A1:A5"), Range("A7:A10")).Select
Intersect(Columns("A"), Range("1:5,7:10")).Select
Union(Cells(1, 1).Resize(5, 1), Cells(7, 1).Resize(4, 1)).Select
End Sub

Die Range kannst du einer Objektvariablen (Dim Bereich as Range : Set Bereich= ...) zuweisen.
Ortsfester wird das ganze, wenn man vor jedes Range und Cells das Worksheet oder. ggf. das Workbook u. Worksheet schreibt.
Gruß Gerd
Anzeige
AW: unstetige Range in Array packen
13.09.2018 14:03:18
Daniel
kommt darauf an, was du genau wie ins Array packen willst, obs ein 1- oder 2-dimensionales Array sein soll.
gernerell solltest du beachten, dass du bei Arrays mit Inhalt die Dimensioniertung nur in der letzten Dimension ohne Datenverlust ändern kannt.
Daher ist es sinnvoll, das Array gleich auf die endgültige Größe zu dimensionieren (falls möglich)
man könnte das beispielsweise so machen: 

dim arr
dim i as Long
dim Zelle as Range
dim Bereich as Range
set Bereich = Range("A1:A5,A7:A10")
redim arr(1 to Bereich.Cells.count)
for each Zelle in Bereich
i = i + 1
arr(i) = Zelle.Value
Next
Gruß Daniel
Anzeige

302 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 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
Anzeige
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
Kann Range-Variable in Array abgelegt werden?
Martin

Hallo,
kann eine Range-Variable einem Array übergeben und später aus dem Array auf eine andere Range-Variable übertragen werden? Mein folgendes Beispiel ist zwar völlig sinnlos, aber was müsste ich darin ändern, damit das Makro mit Übergabe der Range-Information über das Array funktioniert?...
13.03.2010 10:27:29
Thread-ID: 1145571
3 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 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
3
6
4
1
3
2
6
2
6
6
11
8
12
3
4
8
2
6
5
3
5
2