Gruppe
Dialog
Problem
Die Werte aus den Spalten A:B von Tabelle1 sollen in einer ComboBox erscheinen. Die ausgewählte Maschine und deren Preis sollen in Tabelle2 angezeigt werden.
StandardModule: basMain
Sub FilternUndDrucken()
Dim arr()
Dim iRow As Integer
Range("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("D1"), Unique:=True
iRow = 2
Do Until IsEmpty(Cells(iRow, 4))
ReDim Preserve arr(iRow - 1)
arr(iRow - 1) = Cells(iRow, 4)
iRow = iRow + 1
Loop
Columns(4).ClearContents
For iRow = 1 To UBound(arr)
Columns(1).AutoFilter Field:=1, Criteria1:=arr(iRow)
ActiveSheet.PrintPreview
Next iRow
Range("A1").AutoFilter
End Sub