Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren von Zellinhalten nach Spalten

Sortieren von Zellinhalten nach Spalten
16.07.2003 20:49:01
Nina
Hallo liebe Excel Gemeinde,
ich habe da ein kleines Problem. Ich habe eine Tabelle mit Text drin.
z.B.
Spalte1, Spalte2, Spalte3
Eins, Zwei, Drei
Zwei,
Eins, Drei
Zwei, Drei
etc.
Die Spaltenüberschriften (Zeile1) sollen durch die Inhalte ersetzt werden. D.h. die erste Zeile sollte dann so ausschauen Eins,Zwei,Drei.
Und wie kann ich die Eins'en in die Spalte1 (bzw. in die Spalte der Überschrift Eins), alle Zwei'en in die zweite Spalte und die Drei'en in die dritte Spalte bringen?
Vielen herzlichen Dank für Eure Mühe im Voraus.
Nina

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren von Zellinhalten nach Spalten
16.07.2003 21:51:35
ChrisL
Hi Nina
Option Explicit

Sub Makro_Nina()
Dim LetzteZeile As Long, LetzteSpalte As Integer, Spalte As Integer, Zelle As Object, Inhalt As String
Dim iZeile As Long, iSpalte As Integer
With ActiveSheet
LetzteZeile = Mid(.UsedRange.Address, InStrRev(.UsedRange.Address, "$") + 1, Len(.UsedRange.Address) - InStrRev(.UsedRange.Address, "$"))
.Rows(1).EntireRow.Insert
For Each Zelle In .UsedRange
LetzteSpalte = .Range("IV1").End(xlToLeft).Column
If WorksheetFunction.CountIf(.Range(.Cells(1, 1), .Cells(1, LetzteSpalte)), Zelle) = 0 Then
If LetzteSpalte = 1 And Range("A1") = "" Then
.Cells(1, LetzteSpalte) = Zelle
Else
.Cells(1, LetzteSpalte + 1) = Zelle
End If
End If
Next Zelle
For iZeile = 2 To LetzteZeile + 1
LetzteSpalte = .Cells(1, 256).End(xlToLeft).Column
For iSpalte = 1 To LetzteSpalte
If WorksheetFunction.CountIf(.Range(.Cells(iZeile, 1), .Cells(iZeile, LetzteSpalte)), .Cells(1, iSpalte)) > 0 And .Cells(iZeile, iSpalte) <> .Cells(1, iSpalte) Then
Inhalt = .Cells(iZeile, iSpalte)
Spalte = .Range(.Cells(iZeile, 1), .Cells(iZeile, LetzteSpalte)).Find(.Cells(1, iSpalte).Value, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Cells(iZeile, iSpalte) = Cells(iZeile, Spalte)
Cells(iZeile, Spalte) = Inhalt
End If
Next iSpalte
Next iZeile
End With
End Sub

Gruss
Chris

Anzeige
AW: Sortieren von Zellinhalten nach Spalten
16.07.2003 22:17:14
Nina
Vielen Herzlichen Dank, Crist ~~! Funktioniert wunderbar...
Liebste Grüsse Nina

doch noch eine Frage
16.07.2003 22:24:08
Nina
Noch mal ich, Chris
wie muss ich es anpassen, damit es nur für den Bereich ab z.B. Spalte B zutrifft.
d.h. die Spalte A soll nicht sortiert werden.
Dank und Gruß
Nina

Habs geschafft ~!!!! Auf jeden Fall danke~!
16.07.2003 23:07:34
Nina
oT

316 Forumthreads zu ähnlichen Themen

Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Daten nach Kriterien in Spalten umsortieren
hans

Hallo zusammen.
habe mir bereits einige Stunden den Kopf zerbrochen, ohne jedoch weitergekommen zu sein. Mein Problem ist folgendes:
Ich habe eine Tabelle (kleiner Auszug siehe unten), die Daten enthält, die jeweils entweder mit den Buchstaben A, B oder C enden. Ich möchte nun diese Dat...
14.06.2009 02:13:12
Thread-ID: 1081347
6 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
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
Tabelle nach mehr als 3 Spalten sortieren
manasse

Hallo zusammen,
ich möchte eine große Tabelle nach mehr als drei Spalten sortieren. Standardmäßig geht das ja nur mit maximal drei Spalten. Kennt jemand dazu eine Lösung?
Für jegliche Hilfe bin ich dankbar.
Dank und Gruß
Manasse
04.11.2010 11:49:12
Thread-ID: 1185146
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
Pivot nach bestimmter Spalte sortieren
MikeM

Hallo zusammen,
ich möchte eine Kunden-Umsatz-Pivot-Datei nach einer bestimmten Spalte sortieren. Leider funktioniert das nicht. Ich habe eine kurze Datei mit angehängt inkl. kurzer Beschreibung.
https://www.herber.de/bbs/user/74121.xlsx
Über Hilfe wäre ich sehr dankbar.
Herzli...
30.03.2011 22:05:19
Thread-ID: 1207581
2 Beiträge
Zeilen sortieren nach einer Spalte ausserhalb des
Wenger

Hi all!
Ist denn mein Problem so schwierig? Immer ernte ich nur Kopfschütteln.
Erklärung:
Die Rennleitung hat eine Veranstaltersoftware. Diese exportiert mir ein Excel-Sheet mit den Spalten A, B und C. Diese Spalten dürfen keinesfalls verändert werden!!
In meinem Beispiel start...
07.07.2011 20:28:17
Thread-ID: 1221296
3 Beiträge

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
14
5
4
3
1
2
2
1
2
17
3
2
3
4
7
2
1
8
5
6
4
7
2
7