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.