19.02.2022, 11:27
Hallo,
PHP-Code:
Sub x()
Dim arr As Variant
Dim WS As Worksheet
arr = ComboBox1.List
Set WS = Worksheets.Add
WS.Range("A1").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr
WS.ExportAsFixedFormat xlTypePDF
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End Sub
_________
VG Sabina
VG Sabina