Bereich in array kopieren
02.01.2020 23:13:06
Barbara
habe Fragen zum array. In meinem Beispielmakro werden erst A1:A3 befüllt, um mal eine Versuchsanordnung herzustellen (für alle, die keine Datei mit Makros aus dem Internet öffnen wollen).
Dann wird dieser Bereich über ein array in den Nachbarbereich B1:B3 kopiert. Dabei wird seltsamerweise auch das Format der Zelle B1 mitkopiert, für C1 aber nicht.
Warum wird das Format von B1 mitkopiert? Im Array selbst ist nichts von einem Format zu sehen.
Hier das Makro
Sub Zahlenformat()
Dim sFeld()
Dim rBereich As Range
Set rBereich = Range("A1:A3")
rBereich.Clear
rBereich.Offset(0, 1).Clear
'Zellen A1:A3 werden befüllt
rBereich(1) = 3
rBereich(1).NumberFormat = "General"
rBereich(2) = 3
rBereich(2).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
rBereich(3) = 43557
rBereich(3).NumberFormat = "yyyymmdd"
'Ende der Vorbereitung
ReDim sFeld(3)
sFeld = rBereich
rBereich.Offset(0, 1) = sFeld
' sFeld = rBereich.NumberFormat ---> Das geht leider nicht
End Sub
Barbara