In With Range ein array hineinkopieren
23.08.2021 21:00:38
SchubertFranzl
eine Frage zum Befüllen eines Ranges mit "with"
In folgendem Beispiel wird zuerst ein Bereich befüllt und dann selektiert.
Dann soll das Ganze mit "with" gemacht werden, nur wie?
Sub Einsatz()
Dim a As Variant, Bereich As Range
a = Array("Montag", "Dienstag", "Sonntag", "Auto")
Set Bereich = Range("J2").Resize(, UBound(a) + 1)
'Folgende zwei Zeilen mit "With" ausdrücken
Bereich = a
Bereich.Select
With Bereich
'Hier soll der Range mit a befüllt werden
.Select
End With
End Sub
LG, Franz