Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In Array einlesen, sortieren, auslesen

Gruppe

Liste

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