Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten nach Alphabet sortieren

Forumthread: Spalten nach Alphabet sortieren

Spalten nach Alphabet sortieren
01.10.2014 21:34:10
Markus
HAllo zusammmen,
ich habe eine Datei mit mehreren 1000 Zeilen - jeweils max. bestehend aus Einträgen in 10 Spalten (A bis J).
Hat jemand eine Idee, wie ich jede Zeile nach Alphabet sortieren kann.
Also statt
A Z D B F G T U S V
F K M N A
so
A B D F G S T U V Z
A F K M N
Wäre super, wenn mir jemand helfen könnt.
Vielen Dank!
Viele Grüße
Markus

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten nach Alphabet sortieren
01.10.2014 21:40:40
Peter
Hallo Markus,
versuche es einmal so:
'
'    alle Zeilen (jede für sich) aufsteigend sortieren
Public Sub ZeilenSort()
Dim WkSh     As Worksheet
Dim lZeile   As Long
Dim iSpalte  As Integer
Set WkSh = Worksheets("Tabelle2")
With WkSh
For lZeile = 1 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row
WkSh.Range(WkSh.Cells(lZeile, 1), WkSh.Cells(lZeile, _
WkSh.Cells(lZeile, 256).End(xlToLeft).Column)).Sort _
Key1:=WkSh.Cells(lZeile, 1), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight
Next lZeile
End With
End Sub
Gruß Peter

Anzeige
AW: Spalten nach Alphabet sortieren
02.10.2014 06:12:30
Markus
Hall Peter,
ich bekomme beim Start einen Laufzeitfehler.
Markiert wird folgende Stelle im Makro:
WkSh.Range(WkSh.Cells(lZeile, 1), WkSh.Cells(lZeile, _
WkSh.Cells(lZeile, 256).End(xlToLeft).Column)).Sort _
Key1:=WkSh.Cells(lZeile, 1), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight
Hast Du noch eine Idee?`
Viele Grüße
Markus

Anzeige
AW: Spalten nach Alphabet sortieren
02.10.2014 06:37:54
Hajo_Zi
Hallo Markus,
es gibt Tabelle2 mit Daten?

AW: Spalten nach Alphabet sortieren
02.10.2014 10:21:50
Peter
Hallo Markus,
die Daten stehen bei mir im Tabellenblatt "Tabelle2" ab Zeile 1
Option Explicit
'    alle Zeilen (jede für sich) aufsteigend sortieren
Public Sub ZeilenSort()
Dim WkSh     As Worksheet
Dim lZeile   As Long
Dim iSpalte  As Integer
Dim lLetzte  As Long
Set WkSh = Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen!
With WkSh
lLetzte = .Columns("A:Z").Find("*", SearchDirection:=xlPrevious).Row
For lZeile = 1 To lLetzte
iSpalte = IIf(IsEmpty(Cells(lZeile, Columns.Count)), Cells(lZeile, _
Columns.Count).End(xlToLeft).Column, Columns.Count)
WkSh.Range(WkSh.Cells(lZeile, 1), WkSh.Cells(lZeile, iSpalte)).Sort _
Key1:=WkSh.Cells(lZeile, 1), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight
Next lZeile
End With
End Sub
Das Makro noch etwas an die jetzt größere Spaltenanzahl angepasst.
Gruß Peter

Anzeige
AW: jetzt mit Dokumentation
02.10.2014 11:14:28
Peter
Hallo Markus,
ich habe noch Dokumentation hinzugefügt.
Option Explicit
'    alle Zeilen (jede für sich) aufsteigend sortieren
Public Sub ZeilenSort()
Dim WkSh     As Worksheet
Dim lZeile   As Long
Dim iSpalte  As Integer
Dim lLetzte  As Long
Set WkSh = Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen!
With WkSh
lLetzte = .Columns("A:Z").Find("*", SearchDirection:=xlPrevious).Row
For lZeile = 1 To lLetzte
iSpalte = IIf(IsEmpty(.Cells(lZeile, Columns.Count)), .Cells(lZeile, _
.Columns.Count).End(xlToLeft).Column, Columns.Count)
.Range(.Cells(lZeile, 1), .Cells(lZeile, iSpalte)).Sort _
Key1:=.Cells(lZeile, 1), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight
Next lZeile
End With
End Sub
Gruß Peter

Anzeige
AW: jetzt mit Dokumentation
02.10.2014 12:01:51
Markus
Hallo Peter,
funktioniert bestens. :-)
Danke für Deine Hilfe!
Viele Grüße
Markus

AW: Spalten nach Alphabet sortieren
02.10.2014 12:34:12
Kathrin
Was hältst du hiervon:
Private Sub Workbook_Open()
'Datei immer mit dem Tabellenblatt "Übersicht" öffnen
Sheets("Übersicht").Select
' Sortieren von Arbeitsblättern
Dim i As Integer, j As Integer, k As Integer
k = ActiveWorkbook.Worksheets.Count
For i = 1 To k
For j = i To k
If Worksheets(j).Name
Hier kannst du gleich noch ein Tabellenbklatt auswählen, welches immer als erstes geöffnet werden soll sowie z.B. ein bestimmtes Tabellenblatt nach dieser Sortierung an eine bestimmte Stelle setzen.
Anzeige
;

Forumthreads zu verwandten Themen

Zellen sortieren nach namen
Peter

Guten Morgen ich möchte gerne eine Excel Tabelle erstellen mit meinen ganzen IP Adressen die im Netzwerk vergeben sind.
Daher habe ich eine Tabelle erstellt wo ich alle IP Adressen die in meinem Netzwerk möglich wären aufgeschrieben und beschriftet welche Funktion sie haben.
Wäre es the...
22.11.2009 12:51:48
Thread-ID: 1119140
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
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
Liste nach Namen und Zeit sortieren
Dirk

Hallo ich hab da mal ne frage ?
würde gerne mit den funktionen von Excel (also keien makros usw.) eine Liste sortieren und diese liste dann wiederum mit der Zeit auflisten das heist z.B. in der beispielliste seht ihr links spieler 1 Spieler 2 usw. jetzt möchte ich gerne nur den Spieler 1 mi...
11.06.2012 00:34:15
Thread-ID: 1266867
3 Beiträge
Anzeige
Namen (die Bereiche enthalten) nach sortieren
Martin

Hallo und guten Tag.
Ich habe ein Problem, zu welchem ich bis jetzt keine Lösung gefunden habe.
Zusammenfassung:
Meine Datei ist ein Dienstplanungs-Tool
Die Datei hat 4 Blätter. Eines davon ist das Hauptblatt.
Das Hauptblatt hat etwa 150 Zeilen und rund 7000 Spalten.
Div...
15.03.2016 16:29:33
Thread-ID: 1482176
8 Beiträge
Automatisches Ordnen nach Alphabet und Zahlen
NLS

Guten Morgen,
ich würde gern automatisch den Inhalt der angehangenen Tabelle geordnet bekommen.
Die Tabelle wird per copy und paste gefüllt und anschließend weitergegeben an eine andere Abteilung, die den Inhalt möglichst geordnet ausdruckt und damit arbeiten wird.
welche Möglichkei...
22.09.2016 07:51:58
Thread-ID: 1515723
21 Beiträge
Anzeige
VBA automatisch Sortieren nach Einträgen
Yannick

Hallo liebes Forum, ich habe einen Fall in VBA den ich lösen möchte und bitte um eure Hilfe! Ich habe eine Aufgabenliste angelegt. Es soll sortiert werden. Zunächst aufsteigend nach der erste Spalte A2 "Priorität" (Werte 1-10 1=hoch 10=niedrig). Als nächstes gibt es ein Feld namens "abgenommen"...
14.03.2017 17:25:46
Thread-ID: 1547393
10 Beiträge
Anzeige
VBA automatisch Sortieren nach Einträgen
Yannick

Hallo liebes Forum, ich habe einen Fall in VBA den ich lösen möchte und bitte um eure Hilfe! Ich habe eine Aufgabenliste angelegt. Es soll sortiert werden. Zunächst aufsteigend nach der erste Spalte A2 "Priorität" (Werte 1-10 1=hoch 10=niedrig). Als nächstes gibt es ein Feld namens "abgenommen"...
14.03.2017 17:32:05
Thread-ID: 1547395
2 Beiträge
VBA automatisch Sortieren nach Einträgen
Yannick

Hallo liebes Forum, ich habe einen Fall in VBA den ich lösen möchte und bitte um eure Hilfe! Ich habe eine Aufgabenliste angelegt. Es soll sortiert werden. Zunächst aufsteigend nach der erste Spalte A2 "Priorität" (Werte 1-10 1=hoch 10=niedrig). Als nächstes gibt es ein Feld namens "abgenommen"...
14.03.2017 17:39:27
Thread-ID: 1547400
2 Beiträge
VBA Sortieren nach Spalte A
Siggi

Guten Morgen :-)
mal wieder brauche ich eure hilfe.
Wie kann man diesen aufgenommenen Code verkleinern und die Zeilen sortieren nicht nach Bereich sondern bis ganz unten. Von A3 bis Flexible
Sub Makro3() ' Makro3 Makro Range("A3:I4444").Select ActiveWorkbook.Worksheets("Test").Sort...
01.07.2017 07:38:21
Thread-ID: 1566866
3 Beiträge
Anzeige
Tabelle alphabetisch in Bereich sortieren
Burghard

Hallo,
ich möchte eine Tabelle mit den Zellen A1 bis E30 alphabetisch sortieren, allerdings nicht nach Spalten, sondern zeilenweise von links nach rechts, in dieser Reihenfolge (von A→Z):
A1→B1→C1→D1→E1→
A2→B2→C2→D2→E2→
etc
A30→B30→C30→D30→E30
Hilfe wäre nett.
Grüße<...
20.05.2018 17:10:41
Thread-ID: 1624861
5 Beiträge
[VBA] 2-D Array sortieren nach Sp 5, dann Sp 2
Nils

Hallo,
ich habe ein 2D Array, was ich sortieren möchte:
Dim arr(0 to 12, 0 to 5) as variant
Die Integer in Spalte 2 und 5 möchte ich sortieren, und zwar zuerst nach Spalte 5 und dann nach Spalte 2, sa dass ich folgendes Ergebnis habe:
x,x,0,x,x,0
x,x,0,x,x,1
x,x,0,x,x,2<...
19.12.2018 11:49:38
Thread-ID: 1663827
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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