Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste automatisch neu erstellen und umsortieren

Liste automatisch neu erstellen und umsortieren
25.07.2008 21:57:00
Markus
Hallo liebe Forumsteilnehmer,
ich benötige eure Hilfe bei folgendem Problem, welches ich gerne mit Excel lösen würde.
Ich habe eine Liste mit folgende Spalten und folgenden Beispieleinträgen
Lfd. Nr. Name1 Name2 Name3 Bemerkung Ablageort
001 A B C Larum Leitz
002 Z W X Lirum Leitz
003 usw.
004 usw.
Die Liste wird ständig erweitert. Nun zum Problem: Über ein Makro hätte ich gerne eine zweite Tabelle
automatisch geöffnet die auf der Grundlage der vorgenannten Daten folgendes erzeugt:
Lfd. Nr. Name1 Name2 Name3 Bemerkung Ablageort
001 A B C Larum Leitz
001 B A C Larum Leitz
001 C A B Larum Leitz
002 W X Z Lirum Leitz
002 X W Z Lirum Leitz
002 Z X W Lirum Leitz
Also aus den Spalten Name1, Name2 und Name3 soll jeweils jeder Eintrag einmal alphabetisch sortiert unter Name1 erscheinen und daneben dann Name2 und Name 3, sowie unverändert Bemerkung und Ablageort.
Hat vielleicht jemand eine Lösunsgidee?
Beste Grüße
Markus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste automatisch neu erstellen und umsortiere
26.07.2008 09:46:32
ChrisL
Hallo Markus
Probier mal...

Sub Makro1()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Long, LetzteZeile1 As Long, LetzteZeile2 As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
WS2.Rows("2:65536").Delete
LetzteZeile1 = WS1.Range("A65536").End(xlUp).Row
For i = 2 To LetzteZeile1
LetzteZeile2 = WS2.Range("A65536").End(xlUp).Row + 1
WS2.Cells(LetzteZeile2, 1) = WS1.Cells(i, 1)
WS2.Cells(LetzteZeile2 + 1, 1) = WS1.Cells(i, 1)
WS2.Cells(LetzteZeile2 + 2, 1) = WS1.Cells(i, 1)
WS2.Cells(LetzteZeile2, 2) = WS1.Cells(i, 2)
WS2.Cells(LetzteZeile2 + 1, 2) = WS1.Cells(i, 3)
WS2.Cells(LetzteZeile2 + 2, 2) = WS1.Cells(i, 4)
WS2.Cells(LetzteZeile2, 3) = WS1.Cells(i, 3)
WS2.Cells(LetzteZeile2 + 1, 3) = WS1.Cells(i, 2)
WS2.Cells(LetzteZeile2 + 2, 3) = WS1.Cells(i, 2)
WS2.Cells(LetzteZeile2, 4) = WS1.Cells(i, 4)
WS2.Cells(LetzteZeile2 + 1, 4) = WS1.Cells(i, 4)
WS2.Cells(LetzteZeile2 + 2, 4) = WS1.Cells(i, 3)
WS2.Cells(LetzteZeile2, 5) = WS1.Cells(i, 5)
WS2.Cells(LetzteZeile2 + 1, 5) = WS1.Cells(i, 5)
WS2.Cells(LetzteZeile2 + 2, 5) = WS1.Cells(i, 5)
WS2.Cells(LetzteZeile2, 6) = WS1.Cells(i, 6)
WS2.Cells(LetzteZeile2 + 1, 6) = WS1.Cells(i, 6)
WS2.Cells(LetzteZeile2 + 2, 6) = WS1.Cells(i, 6)
Next i
End Sub


Gruss
chris

Anzeige
AW: Liste automatisch neu erstellen und umsortiere
26.07.2008 13:16:00
Markus
Hallo Chris,
allerbesten Dank, es funktioniert! Ich habe schon lange nach der Lösung gesucht.
Vielleicht hast du noch einen Zusatztipp:
Die Auswertungssliste soll nach der Spalte "Name1" sortiert werden von A-Z. Geht zwar einfach über die Sortierung von Excel, aber automatisch mit dem Makro wäre es super.
Schöne Grüße
Markus

AW: Liste automatisch neu erstellen und umsortiere
27.07.2008 13:50:48
Herby
Hallo Markus,
probier mal:

Sub sortieren()
Dim lZ As Long
lZ = Worksheets("Tabelle2").Range("A65536").End(xlUp).Row
Worksheets("Tabelle2").Range("A1:F" & lZ).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:= _
Range( _
"C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub


Ich habs mit dem Makrorecorder aufgezeichnet.
viele Grüße
Herby

Anzeige
AW: Liste automatisch neu erstellen und umsortiere
27.07.2008 13:51:50
Herby
Hallo Markus,
probier mal:

Sub sortieren()
Dim lZ As Long
lZ = Worksheets("Tabelle2").Range("A65536").End(xlUp).Row
Worksheets("Tabelle2").Range("A1:F" & lZ).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:= _
Range("C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub


Ich habs mit dem Makrorecorder aufgezeichnet.
viele Grüße
Herby

AW: Liste automatisch neu erstellen und umsortiere
08.09.2008 14:49:15
Wells
Hallo Herby,
spät aber besser spät als nie. Besten Dank die Sortierung funktioniert einwandfrei.
Schöne Grüße
Markus
Anzeige

302 Forumthreads zu ähnlichen Themen

Tabelle automatisch sortieren
anke

Hi Excelfreunde,
ich habe einmal wieder ein kleines Problem ( für alle Excelfreaks );
ich möchte, daß sich eine Tabelle automatisch nach Eingabenende und " Enter " sortiert:
Ist das überhaupt möglich ?
Gruß Anke
28.08.2008 17:22:00
Thread-ID: 1005538
6 Beiträge
Anzeige
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
Anzeige
Spalte nach Nummer sortieren
Micha*
Bereich markieren (alle Spalten)
Daten
Sortieren
Spalte wählen
fertig
16.04.2002 09:34:17
Thread-ID: 113611
4 Beiträge
Sortieren nach Namen
Peter H. Erdmann
Hallo,Bau Dir eine Hilfsspalte mit den Familiennamen einDie erhältst Du über die Formel:
=RECHTS(A1;LÄNGE(A1)-FINDEN(" ";A1;1))(Klappt aber nur, falls nur ein Vorname vorhanden, bzw Vornamen mit Bindestrich)Gruß aus dem Land der Bayern
Peter
16.04.2002 10:00:01
Thread-ID: 113625
4 Beiträge
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 Beiträge
Arbeitsblätter nach Namen sortieren
edie

Hallo zusammen,
ist es realisierbar, die Arbeitsblätter nach Namen so zu sortieren wie deren Namen in Tabelle1 Spalte A5, nach unten variabel, stehen?
Hat jemand eine Idee bzw. Code? Bitte kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße edie
12.08.2010 14:00:04
Thread-ID: 1171935
3 Beiträge
Datums-Spalte nach TAG sortieren
Bruno

Hallo Leute,
ich versuche, leider ohne Erfolg eine Liste zu sortieren :
Datumszeile nach Geburtstag !!!! nicht nach dem Geburtsjahr sondern vorrangig eben nach dem Geburts-TAG. 01. , 02. , 03. ,
Wer kann mir helfen ?
gruss
Bruno
19.11.2010 19:18:47
Thread-ID: 1187861
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
2
4
3
3
3
1
2
2
2
8
2
2
2
3
2
17
4
7
4
4
7
1
3