Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1576to1580
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
Inhaltsverzeichnis

Mehrere Range.Value in Array

Mehrere Range.Value in Array
24.08.2017 16:41:36
_Domi_
Hallo zusammen,
ich habe folgende Frage:
wie kann ich die Values mehrerer Zellen in ein Array packen?
Folgende Zellen würden benötigt werden:
P16, R16, P20, R20, P24, R24, P28, R28, P32, R32
Danke und Gruß
Domi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Range.Value in Array
24.08.2017 17:06:45
Michael
Hallo!
zB so:
Sub a()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets(1)
Dim a(), r As Range, c As Range, i&
With ws
Set r = .Range("P16,R16,P20,R20,P24,R24,P28,R28,P32,R32")
ReDim a(1 To r.Cells.Count)
For Each c In r
i = i + 1: a(i) = c.Value
Next c
'weiter mit dem Array...
End With
Set ws = Nothing: Set r = Nothing: Set c = Nothing: Erase a
End Sub
LG
Michael
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige