Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

meherere Spalten in eine Liste

meherere Spalten in eine Liste
sksw
Hallo zusammen,
ich bitte um die Mithilfe bei folgendem Problem:
Ich habe eine Tabelle mit mehreren Spalten und würde die Tabelle gerne als eine lange zusammenhängende Liste darstellen lassen (idealerweise ab Zelle A1 eines neuen Tabellenblattes).
Abkürzungen:
-Ü=Überschrift
-E=Eintrag
Ü1 Ü2 Ü3 Ü4
E1 E1 E1 E1
E2 E2 E2
E3
Rauskommen soll das hier:
Ü1
E1
E2
E3
Ü2
E1
E2
Ü3
E1
E2
Ü4
E1
Die erhaltene Liste soll zusammenhängend sein.
Danke für eure Hilfe.
LG sksw

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: meherere Spalten in eine Liste
23.03.2012 10:24:55
Rudi
Hallo,
Function sksw(rng As Range)
Dim arrTmp(), i As Long, j As Long, n As Long
ReDim arrTmp(1 To Application.CountA(rng), 1 To 1)
For j = 1 To rng.Columns.Count
For i = 1 To rng.Rows.Count
If Not IsEmpty(rng(i, j)) Then
n = n + 1
arrTmp(n, 1) = rng(i, j)
End If
Next
Next
sksw = arrTmp
End Function
Sub aaaaa()
Dim arrTmp
arrTmp = sksw(Range("A1:E4"))
Worksheets.Add.Cells(1, 1).Resize(UBound(arrTmp)) = arrTmp
End Sub

Alternativ zur Sub als Funktion im Blatt: =Index(sksw(A1:E4);Zeile(a1)) und runter kopieren.
Gruß
Rudi
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige