Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

319 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
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

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
3
3
2
2
7
20
9
1
1
2
4
5
3
2
4
5
4
3
1
3
6
5
9
5
14