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