VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Beispiel zur UBound-Funktion

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