Schleife über Ranges
26.09.2020 13:59:39
Franz
ich möchte mehrere Zellen mit der gleichen Formatierung versehen. Aber alle meine verschiedenen Versuche scheitern.
Zum Beispiel dieser Versuch:
Dim ReRng(1 To 10) As Range
Dim z As Byte
Set ReRng1 = Range("Re_Nummer")
Set ReRng2 = Range("Re_Datum")
Set ReRng3 = Range("Re_Name")
Set ReRng4 = Range("Re_Strasse")
Set ReRng5 = Range("Re_PlzOrt")
Set ReRng6 = Range("Re_Anrede")
Set ReRng7 = Range("Re_Kurs")
Set ReRng8 = Range("Re_AnfEndDatum")
Set ReRng9 = Range("Re_AnzEinheiten")
Set ReRng10 = Range("Re_Gebuehr")
For z = 1 To 10
With ReRng & z
.Font.Size = 10
.Font.Italic = True
.Font.ColorIndex = 16
End With
Next
Hier bekomme ich schon bei "Set ReRng1 =" die Fehlermeldung: "Zuweisung zu einer Konstanten nicht zulässig"
Mache ich's aber so:
Dim ReRng1 As Range, ReRng2 As Range, ReRng3 As Range, ReRng4 As Range, ReRng5 As Range, ReRng6 As Range, ReRng7 As Range, ReRng8 As Range, ReRng9 As Range, ReRng10 As Range
kommt bei der With-Anweisung die Meldung: "Variable nicht definiert"
Könnt ihr mir bitte helfen, was ich hier machen muss.
Danke schonmal und Grüße
Franz