ich habe eine Frage zum Befüllen von Werten in ein NameRange:
Ich habe ein Array und kann damit mein NameRange befüllen (siehe Beispiel). Nun kommen neue Werte hinzu und diese sollen hinten angehangen werden.
Nun müsste ich jeden Zellenwert einzeln einfügen, aber ich möchte das aufeinmal machen, so dass ich das Array übergebe.
Bei curName.RefersToRange gibt es das Value und Value2, muss ich das dadrüber machen? Aber wie kann ich dem sagen, füge diese Werte ab z. B. Index 5 hinzu?
Die einzige Möglichkeit die mir einfällt wäre, die alten Werte auf das Array zu übertragen (müsste das Array vergrößern) und dann das ganze zu übergeben. Allerdings wie vergrößere ich ein Array, so dass die Werte verschoben werden?
Das scheint mir auch zu kompliziert zu sein, so dsas ich das nicht als tolle Lösung durchgehen lassen würde.
Hat vielleicht jemand noch eine Idee?
Danke schon mal!
Lukas
Option Explicit
''Normales befüllen
Public Sub Start()
Dim curName As Name
Set curName = ActiveWorkbook.Names("TestName")
Dim i As Integer
Dim asArray(1 To 5, 1 To 1) As String
For i = 1 To 5
asArray(i, 1) = "Wert - " + CStr(i)
Next i
curName.RefersToRange.Value2 = asArray
End Sub
''Hinzufügen von 2 Werten
Public Sub Add()
''Nur 2 Werte sollen angehangen werden
Dim curName As Name
Set curName = ActiveWorkbook.Names("TestName")
Dim i As Integer
Dim asArray(1 To 2, 1 To 1) As String
For i = 1 To 2
asArray(i, 1) = "Add - Wert - " + CStr(i)
Next i
curName.RefersToRange.Value2 = asArray
End Sub