Gruppe
Allgemein
Problem
Die Werte aus diesem Tabellenblatt sollen in ein Array eingelesen, von dort in eine temporäre Arbeitsmappe aus-, dort sortiert, dann wieder in das Array eingelesen und letztendlich in Tabelle2 ausgelesen werden.
StandardModule: basMain
Sub InArrOutArr()
Dim rng As Range
Dim arr As Variant
Application.ScreenUpdating = False
Set rng = Range("A1").CurrentRegion
arr = rng.Value
Workbooks.Add
Range("A1").Range(rng.Address).Value = arr
Range("A1").Sort key1:=Range("A1"), _
order1:=xlAscending, header:=xlNo
arr = Range("A1").CurrentRegion.Value
ActiveWorkbook.Close savechanges:=False
With Worksheets("Tabelle2")
.Range(rng.Address).Value = arr
.Select
End With
Application.ScreenUpdating = True
End Sub