Liste aus Matrix erstellen

[Kuwer]

Hallo Andrea,

per VBA z.B. so:

Sub ErstelleListe()

  Dim i As Long, j As Long, k As Long

  Dim varQ As Variant, varZ As Variant

  varQ = Range("A1:C3").Value

  ReDim varZ(1 To UBound(varQ, 1) * UBound(varQ, 2), 1 To 1)

  For i = 1 To UBound(varQ, 1)

    For j = 1 To UBound(varQ, 2)

      If IsError(Application.Match(varQ(i, j), varZ, 0)) Then

        k = k + 1

        varZ(k, 1) = varQ(i, j)

      End If

    Next j

  Next i

  Range("A5").Resize(UBound(varZ, 1)).Value = varZ

End Sub

Gruß Uwe

[Kuwer]

Hallo Günther,

ich hatte zuerst "Macxel" geschrieben, aber das sieht irgendwie blöd aus. Vielleicht fällt mir noch eine bessere Wortschöpfung ein ... (ihr seid herzlich eingeladen, daran mitzuwirken!)

vielleicht Mecxel oder iXcel? :)

Und alles Gute zum Geburtstag.
 [Bild: sm20.gif]

Gruß Uwe

[GMG-CC]

Dank dir, Uwe.
Ein neues Lebensjahr. Und irgendwie ist es dennoch ein Tag wie jeder andere, von den Glückwünschen einmal abgesehen. Nun ja, am Wochenende kommt wohl mein Junior mit seinen Kindern, das ist dann immer schön.

Mit dem ???cel lasse ich mich noch etwas von euch inspirieren. Am liebsten wäre mir, wenn ich zwar Maxcel schreiben würde aber das "a" aus einem Font, der den typischen, angebissenen Apfel zeigt.

[moonly77]

Ok, danke Günther.