Office: Einzelne Werte aus Array ausgeben

Hallo Luschi

Na dann bin ich ja in guter Gesellschaft :-)



Code:

Ist es eigentlich egal, welche Arraygröße ich hier einstelle?
Weil ich beim Testen gemerkt habe, dass alle Daten im Datenbereich in Array geschrieben werden, auch wenn der Datenbereich lauf ReDim eigentlich zu klein wäre.

Gruß Faultier

 

Hallo

aber vielleicht sollten wir zu meiner ursprünglichen Frage zurückkommen.
Ist es überhaupt möglich Werte aus einer Zeile eines Array's mit einem Ruck (also ohne Schleife) einzufügen, wenn die Zellen, in die eingefügt werden sollen, nicht nebeneinander stehen.
Die Zellen dazwischen dürfen nicht überschrieben werden.

Gruß Faultier

 

Hallo Faultier,

uhh da hast Du Deine Frage gerade terminiert *rolleyes.gif* , darauf gibt's dennoch zunächst die Antwort:

klar funktioniert die, Du fragst Indizes ab, die nicht existieren: Du hast die erste Dimension auf zwei Indizes deklariert, Deine Schleife durchläft aber 10 Indizes...

Die Redimensionierung ist in Deinem Fall auch unnötig:

PHP:

         Option Explicit

Public Sub test()
Dim avntArray As Variant
Dim ialngIndex As Long

With Tabelle1
avntArray = .Range(.Cells(2, 10), .Cells(10, 10)).Value
For ialngIndex = 1 To UBound(avntArray, 1)
If avntArray(ialngIndex, 1) = 2 Then
avntArray(ialngIndex, 1) = ""
End If
Next
.Cells(2, 1).Resize(UBound(avntArray, 1), UBound(avntArray, 2)) = avntArray
End With
End Sub


 

Hallo Faultier,

und wenn wir schon dabei sind, die Antwort auf die nun neu transformierte Frage *cool.gif* :
Zwar i.Gr. auch nicht direkt, aber Du könntest die Zuweisung vorher in einem Temp-Array erledigen und einmalig übergeben:

PHP:

         Option Explicit

Public Sub test2()
Dim avntArray As Variant, avntTemp As Variant
Dim ialngIndex As Long
avntArray = Array(11, 12, 13, 14, 15, 16, 17)
avntTemp = Cells(1, 1).Resize(1, 7).Value
For ialngIndex = 1 To UBound(avntArray) + 1
If avntArray(ialngIndex - 1) = 11 Or avntArray(ialngIndex - 1) = 12 _
Or avntArray(ialngIndex - 1) = 15 Or avntArray(ialngIndex - 1) = 16 Then _
avntTemp(1, ialngIndex) = avntArray(ialngIndex - 1)
Next
Cells(1, 1).Resize(1, 7).Value = avntTemp
End Sub


 

Hallo Muller

Es war nicht wirklich meine Absicht, die Frage zu terminieren.
Vielen Dank für die Antwort

Eigentlich dachte ich die alte, noch ungeklärte Frage neu gestellt zu haben *mrcool
Vielen Dank, jetzt habe ich wieder etwas Arbeit *grins

Gruß Faultier