Zellen untereinander auflisten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jenny,
Tabelle3

	A
1	11
2	11:00:00
3	20:00:00
4	19:00:00
5	18:00:00
6	17:00:00
7	16:00:00
8	15:00:00
9	14:00:00
10	13:00:00
11	11:00:00
12	10:00:00
13	09:00:00

verwendete Formeln
Zelle	Formel	Bereich
A1	=MAX(Tabelle2!D2:AN8237 )
A2	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A1;Tabelle2!$D$2:$AN$8237))}	$A$2
A3	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A2;Tabelle2!$D$2:$AN$8237))}	$A$3
A4	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A3;Tabelle2!$D$2:$AN$8237))}	$A$4
A5	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A4;Tabelle2!$D$2:$AN$8237))}	$A$5
A6	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A5;Tabelle2!$D$2:$AN$8237))}	$A$6
A7	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A6;Tabelle2!$D$2:$AN$8237))}	$A$7
A8	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A7;Tabelle2!$D$2:$AN$8237))}	$A$8
A9	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A8;Tabelle2!$D$2:$AN$8237))}	$A$9
A10	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A9;Tabelle2!$D$2:$AN$8237))}	$A$10
A11	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A10;Tabelle2!$D$2:$AN$8237))}	$A$11
A12	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A11;Tabelle2!$D$2:$AN$8237))}	$A$12
A13	{=MAX(WENN(Tabelle2!$D$2:$AN$8237<A12;Tabelle2!$D$2:$AN$8237))}	$A$13

{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!

Tabellendarstellung in Foren Version 5.51

Option Explicit Sub Kopie() Dim RaZelle As Range Dim RaFound As Range Dim Loletzte As Long With Worksheets("Tabelle3") For Each RaZelle In Worksheets("Tabelle2").Range("D2:AN8237") If RaZelle "" Then Set RaFound = .Columns(1).Find(RaZelle, .Range("A" & Rows.Count), _ xlFormulas, xlWhole, , xlNext) If RaFound Is Nothing Then Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _ .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1 .Cells(Loletzte, 1) = RaZelle End If End If Next RaZelle .Columns(1).Sort Key1:=.Range("A3"), Order1:=xlDescending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With End Sub

Option Explicit Sub SortMe() Dim oSort As Object, arr, z&, s&, out Set oSort = CreateObject("System.collections.arraylist") 'Tabellenname Daten-ggf anpassen arr = Sheets("Tabelle1").Range("D2:AN8237 ").Value For z = LBound(arr, 1) To UBound(arr, 1) For s = LBound(arr, 2) To UBound(arr, 2) If isText(arr(z, s)) Then If Not oSort.contains(arr(z, s)) Then oSort.Add arr(z, s) End If Next s Next z oSort.Sort out = oSort.toArray 'Tabellenname Ausgabe-ggf anpassen Sheets("Tabelle2").Cells(1, 1).Resize(oSort.Count, 1) = Application.Transpose(out) End Sub Function isText(ByVal myVal As String) As Boolean If Len(Trim$(myVal)) Then isText = Not IsNumeric(myVal) Else isText = False End If End Function

Option Explicit Public Sub SortOhneDups_ArrayList() ' nach: ComboBox ohne Duplikate füllen - von ransi am 23.01.2009 13:39:41 ' www.herber.de/forum/archiv/1040to1044/t1042357.htm#1042976 Dim colAL As Object, zz As Long, cc As Long, arrQ arrQ = Sheets("Tabelle1").Range("D2:AN8237") ' anpassen oder dynamisch ermitteln Set colAL = CreateObject("System.Collections.ArrayList") With colAL For zz = 1 To UBound(arrQ) For cc = 1 To UBound(arrQ, 2) If Not IsEmpty(arrQ(zz, cc)) Then If Not .contains(CStr(arrQ(zz, cc))) Then .Add CStr(arrQ(zz, cc)) End If Next cc Next zz .Sort Worksheets.Add Cells(2, 1).Resize(UBound(arrE)) = Application.Transpose(.toArray) End With End Sub

Hi Jennifer,
dein Problem mit den Leerzeichen in den TabNamen kann ich nicht nachvollziehen.
Bist du wirklich sicher, dass die Blattnamen mit den in der Prozedur verwendeten Namen übereinstimmen?
Du könntest die Namen (per Doppelklick in die Excel-Blattliste) markieren, kopieren und in die VBA-Prozedur einfügen.
Die Zieltabelle wurde in meinem Beispiel immer neu angelegt (und war dann die aktuelle).
Du hast eingangs geschrieben: "untereinander in einem neuen Tabellenblatt". Da hab ich mich nach gerichtet...
Hier nun wird in ein bestehendes Blatt geschrieben. Beide Blattnamen enthalten Leerrzeichen,
und es geht trotzdem: ;-)


Public Sub SortOhneDups_ArrayList2()
' nach: ComboBox ohne Duplikate füllen - von ransi am 23.01.2009 13:39:41
' www.herber.de/forum/archiv/1040to1044/t1042357.htm#1042976
Dim colAL As Object, zz As Long, cc As Long, arrQ
arrQ = Sheets("Tab   1").Range("D2:AN8237")    ' anpassen oder dynamisch ermitteln
Set colAL = CreateObject("System.Collections.ArrayList")
With colAL
For zz = 1 To UBound(arrQ)
For cc = 1 To UBound(arrQ, 2)
If Not IsEmpty(arrQ(zz, cc)) Then
If Not .contains(CStr(arrQ(zz, cc))) Then .Add CStr(arrQ(zz, cc))
End If
Next cc
Next zz
.Sort
'      Worksheets.Add ' legte bisher ein neues Tabellenblatt an
Sheets("Tab   Erg").Cells(2, 1).Resize(.Count) = Application.Transpose(.toArray)
End With
End Sub

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen untereinander auflisten

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread