---

Hallo alle zusammen,

ich habe das Probelm, dass ich eine Range im Excel in eine variable speichern möchte und später diese wieder an einer anderen Stelle kopieren will. Dies ist nicht mit selekt und paste möglich da ich das mit mehreren Range's machen möchte. Also mehrere Varable habe die einen Zeilen und Spaltenbereich wieder ausgeben können.

Könnt ihr mir helfen?

Gruß
vD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo vD,

was genau möchtest du machen? Den Inhalt deinen Rangeobjektes speichern und an anderer Stelle wieder einfügen? Dann nutze folgenden Code. Hier werden die Zellen eines Range ausgelesen und in ein Array geschrieben.

Sub makro2()
Dim wert() As Variant
Dim r As Integer
Dim c As Integer
Dim a As Range

Set a = Selection

r = a.Row
c = a.Column

ReDim wert(a.Rows.Count, a.Columns.Count)

For Each zelle In a
    wert(zelle.Row - r, zelle.Column - c) = zelle.Value
Next
End Sub

Viel Spaß beim Nachbasteln.

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP