Hallo zusammen,
mit Hilfe des Forums habe ich folgendes Makro gebastelt der über einen Commandbutton ausgelöst wird:
Sub Projektliste()
Application.ScreenUpdating = False
Worksheets("Dropdowns").Activate
Dim arr
Dim Z As Long
Dim S As Integer
Dim Mydic
Set Mydic = CreateObject("Scripting.dictionary")
arr = Range("A1:q10000")
On Error Resume Next
For Z = 1 To UBound(arr, 1)
For S = 1 To UBound(arr, 2)
If IsNumeric(arr(Z, S)) Then Mydic.Add arr(Z, S), 0
Next
Next
On Error GoTo 0
Range("s1").Resize(Mydic.Count) = WorksheetFunction.Transpose(Mydic.keys)
Columns("s:s").Select
Selection.Sort Key1:=Range("s1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Worksheets("Auswertung").Activate
Application.ScreenUpdating = True
End Sub
In den Spalten a1:q10000 stehen Listen. Jede Spalte enthält die Daten der Spalte A eines Tabellenblattes. Diese Bezüge vergrössern aber meine Datei auf 5 MB und dass möchte ich nicht. Also wollte ich fragen ob jemand eine Idee hätte wie man die gesamte Auswertung im Makro verarbeiten kann. Wie kann ich ein Array, der 17 Spalten A aus verschiedenen Blätter enthält, definieren?
Danke und Gruss
Salim