Gruppe
Allgemein
Bereich
Liste
Thema
In Array einlesen, sortieren, auslesen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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