In diesem Beispiel werden die Elemente der ersten benutzerdefinierten Liste in die erste Spalte in Sheet1 geschrieben.
listArray = Application.GetCustomListContents(1) For i = LBound(listArray, 1) To UBound(listArray, 1) Worksheets("sheet1").Cells(i, 1).Value = listArray(i) Next i
In diesem Beispiel wird davon ausgegangen, dass Sie zur Erstellung eines PivotTable-Berichts in Sheet1 der aktiven Arbeitsmappe eine externe Datenquelle verwendet haben. Die Zeichenfolge der SQL-Verbindung und die Zeichenfolge der SQL-Abfrage werden in ein neues Tabellenblatt eingefügt.
Set newSheet = ActiveWorkbook.Worksheets.Add sdArray = Worksheets("Sheet1").UsedRange.PivotTable.SourceData For i = LBound(sdArray) To UBound(sdArray) newSheet.Cells(i, 1) = sdArray(i) Next i