dynamisches zweidimensionales Array in Tabelle
01.11.2016 17:57:47
Volker
Ich versuche derzeit, ein zweidimensionales dynamisches Array (arrLog) zunächst zu füllen und nachfolgend in einer Tabelle auszugeben. Dies soll folgendermaßen ausschauen: Die Anzahl der Zeilen in der Ausgabetabelle variiert mit der Anzahl der Elemente des Arrays arrTab. Die Spaltenzahl bleibt gleich. In Spalte 6 werden die veränderlichen Werte des Arrays arrTab eingetragen, die übrigen Spalten erhalten feste Werte (z.b.: A,B,C,D,E) und bleiben von Zeile zu Zeile gleich. Ein neuer Tabelleneintrag soll dann in der nächsten freien Zeile erfolgen.
Der u. a. Code-Ansatz hilft mir noch nicht weiter. Was muss ich hier noch verändern?
Oder lässt sich dies einfacher/eleganter lösen?
Ich hoffe, es ist verständlich erklärt.
Viele Grüße
Volker
Sub ZweidimArrayInTabelle
Dim arrLog() As String
Dim spazähler As Integer
Dim zeizähler As Integer
ReDim arrLog(1 To 6, 1 To UBound(arrTab))
arrLog(1, 1) = "A"
arrLog(1, 2) = "B"
arrLog(1, 3) = "C"
arrLog(1, 4) = "D"
arrLog(1, 5) = "E"
arrLog(1, 6) = Werte aus Array arrTab
ReDim Preserve arrLog(1 To 6, 1 To UBound(arrTab))
For zeizähler = 1 To UBound(tmparrTab)
For spazähler = 1 To 6
ThisWorkbook.Worksheets("Ausgabe").Cells(zeizähler, spazähler).Value _
arrLog(zeizähler, spazähler)
Next spazähler
Next zeizähler
End Sub