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

Gleiche Einträge in ver. Spalten in eine Zeile sor

Forumthread: Gleiche Einträge in ver. Spalten in eine Zeile sor

Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 11:33:00
Markus
Hallo,
hab eine Liste aus Ordnern ausgelesen.
Insg. 6 Spalten mit Teilenummern.
In Spalte A sind ca. 1200 Nummern in den andern Spalten stehn ca. 800 Nummern alle Nummern wiederholen sich in den Spalten.
Möchte nun ein Makro das mir alle gleichen Nummern in den vers. Spalten in eine Zeile sortiert.
Also:
Spalte A.............Spalte B............Spalte C........usw.
....001..................001...................001.....
....002.................002....................002....
usw.
Hoffe es kann mir jemand helfen.
Danke

Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 11:55:00
harry
Hallo Markus,
wie liegen denn die Daten nach dem Import vor?
Gruß
Harry

AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 12:47:00
Markus
Hallo das ist ein auszug aus meiner Liste.
Userbild
Es sollen alle gleichen Zahlen aus den verschiedenen Spalten in eine Zeile stehn.
Die Zahl in der Dritten Spalte sollte zum Beispiel auf Zeile 12 in der selben Spalte verschoben werden, die nicht in den Spalten vorhandene Zahlen sollen leere Zellen bleiben.

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 13:51:00
harry
Hallo Markus,
hat etwas gedauert, aber so geht's

Sub spalten_ordnen()
'alle Werte aus 8 Spalten in eine Hilfspalte auf Tabellenblatt2 schreiben
x2 = 1
For sp = 1 To 8
x1 = 1
While Sheets("Tabelle1").Cells(x1, sp)  ""
Sheets("Tabelle2").Cells(x2, 1) = Sheets("Tabelle1").Cells(x1, sp)
x1 = x1 + 1
x2 = x2 + 1
Wend
Next
'Duplikate aus Hilfsspalte löschen
Sheets("Tabelle2").Range("a:a").RemoveDuplicates Columns:=1, Header:=xlNo
'Hilfsspalte sortieren
Sheets("tabelle2").Range("a:a").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Einzelne Spalten übertragen und ordnen
x1 = 1
While Sheets("Tabelle2").Cells(x1, 1)  ""
vergl = Sheets("Tabelle2").Cells(x1, 1)
For sp = 1 To 8
x2 = 1
While Sheets("tabelle1").Cells(x2, sp)  ""
If Sheets("tabelle1").Cells(x2, sp) = vergl Then
Sheets("tabelle2").Cells(x1, sp + 1) = vergl
End If
x2 = x2 + 1
Wend
Next
x1 = x1 + 1
Wend
'Hilfsspalte löschen
Sheets("tabelle2").Range("a:a").Delete
'Das Ergebnis der Transformation steht nun auf Tabellenblatt2
'Der Ursprungszustand auf Tabellenblatt1
End Sub


Gruß
Harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:07:00
Markus
Hallo,
danke schonmal.
Bin nur absoluter Anfänger bitte hab Geduld mit mir "Mein Motto: Ich hab keine Angst vor dem Computer aber der Computer hat Angst vor mir"
Also hab dein Makro kopiert und in ein Standart Modul kopiert zeigt nun aber nen fehler in der Zeile

'Duplikate aus Hilfsspalte löschen
Sheets("Tabelle2").Range("a:a").RemoveDuplicates Columns:=1, Header:=xlNo
"Laufzeitfehler 438 - Objekt unterstüzt diese Eigenschaft oder Methode nicht."
Was mach ich falsch?

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:23:31
harry
Hallo,
könnte daran liegen, dass Du Version 10 benutzt
ich habe Excel 2007 (Version 12) und bei mir
läuft es einwandfrei
vielleicht zeichnest Du das Entfernen von Duplikaten mal mit dem Makrorekorder auf
und ersetzt meine Zeile mit dem aufgezeichnetem Code
Gruß
Harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:32:00
harry
Hallo Markus,
so müsste es auch bei Dir gehen

Sub spalten_ordnen()
'alle Werte aus 8 Spalten in eine Hilfspalte auf Tabellenblatt2 schreiben
x2 = 1
For sp = 1 To 8
x1 = 1
While Sheets("Tabelle1").Cells(x1, sp)  ""
Sheets("Tabelle2").Cells(x2, 1) = Sheets("Tabelle1").Cells(x1, sp)
x1 = x1 + 1
x2 = x2 + 1
Wend
Next
'Duplikate aus Hilfsspalte löschen
Zeile = Sheets("tabelle2").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For Zaehler = Zeile To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(Zaehler, 1)) > 1 Then
Rows(Zaehler).Delete
End If
Next
'Hilfsspalte sortieren
Sheets("tabelle2").Range("a:a").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Einzelne Spalten übertragen und ordnen
x1 = 1
While Sheets("Tabelle2").Cells(x1, 1)  ""
vergl = Sheets("Tabelle2").Cells(x1, 1)
For sp = 1 To 8
x2 = 1
While Sheets("tabelle1").Cells(x2, sp)  ""
If Sheets("tabelle1").Cells(x2, sp) = vergl Then
Sheets("tabelle2").Cells(x1, sp + 1) = vergl
End If
x2 = x2 + 1
Wend
Next
x1 = x1 + 1
Wend
'Hilfsspalte löschen
Sheets("tabelle2").Range("a:a").Delete
'Das Ergebnis der Transformation steht nun auf Tabellenblatt2
'Der Ursprungszustand auf Tabellenblatt1
End Sub


Gruß
Harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:35:00
harry
Hallo Markus,
so müsste es auch bei Dir gehen

Sub spalten_ordnen()
'alle Werte aus 8 Spalten in eine Hilfspalte auf Tabellenblatt2 schreiben
x2 = 1
For sp = 1 To 8
x1 = 1
While Sheets("Tabelle1").Cells(x1, sp)  ""
Sheets("Tabelle2").Cells(x2, 1) = Sheets("Tabelle1").Cells(x1, sp)
x1 = x1 + 1
x2 = x2 + 1
Wend
Next
'Duplikate aus Hilfsspalte löschen
Zeile = Sheets("tabelle2").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For Zaehler = Zeile To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(Zaehler, 1)) > 1 Then
Rows(Zaehler).Delete
End If
Next
'Hilfsspalte sortieren
Sheets("tabelle2").Range("a:a").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Einzelne Spalten übertragen und ordnen
x1 = 1
While Sheets("Tabelle2").Cells(x1, 1)  ""
vergl = Sheets("Tabelle2").Cells(x1, 1)
For sp = 1 To 8
x2 = 1
While Sheets("tabelle1").Cells(x2, sp)  ""
If Sheets("tabelle1").Cells(x2, sp) = vergl Then
Sheets("tabelle2").Cells(x1, sp + 1) = vergl
End If
x2 = x2 + 1
Wend
Next
x1 = x1 + 1
Wend
'Hilfsspalte löschen
Sheets("tabelle2").Range("a:a").Delete
'Das Ergebnis der Transformation steht nun auf Tabellenblatt2
'Der Ursprungszustand auf Tabellenblatt1
End Sub


Gruß
Harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:38:00
Markus
Knall gleich mit dem Kopf auf den Tisch.
Komm nicht weiter würde es dir was ausmachen wenn ich dir die liste mal zu Maile und du mal drüberschaust?

AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:48:14
harry
lade mal die Datei unter "hier geht es zum File-Upload" hoch

AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 14:35:00
harry
Hallo Markus,
so müsste es auch bei Dir gehen

Sub spalten_ordnen()
'alle Werte aus 8 Spalten in eine Hilfspalte auf Tabellenblatt2 schreiben
x2 = 1
For sp = 1 To 8
x1 = 1
While Sheets("Tabelle1").Cells(x1, sp)  ""
Sheets("Tabelle2").Cells(x2, 1) = Sheets("Tabelle1").Cells(x1, sp)
x1 = x1 + 1
x2 = x2 + 1
Wend
Next
'Duplikate aus Hilfsspalte löschen
Zeile = Sheets("tabelle2").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For Zaehler = Zeile To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(Zaehler, 1)) > 1 Then
Rows(Zaehler).Delete
End If
Next
'Hilfsspalte sortieren
Sheets("tabelle2").Range("a:a").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Einzelne Spalten übertragen und ordnen
x1 = 1
While Sheets("Tabelle2").Cells(x1, 1)  ""
vergl = Sheets("Tabelle2").Cells(x1, 1)
For sp = 1 To 8
x2 = 1
While Sheets("tabelle1").Cells(x2, sp)  ""
If Sheets("tabelle1").Cells(x2, sp) = vergl Then
Sheets("tabelle2").Cells(x1, sp + 1) = vergl
End If
x2 = x2 + 1
Wend
Next
x1 = x1 + 1
Wend
'Hilfsspalte löschen
Sheets("tabelle2").Range("a:a").Delete
'Das Ergebnis der Transformation steht nun auf Tabellenblatt2
'Der Ursprungszustand auf Tabellenblatt1
End Sub


Gruß
Harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 15:00:24
Markus
Bin jetzt erstmal weg schau heute Abend nochmal hier rein ansonsten bin ich morgen vormittag wieder hier unterwegs.
DANKE

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
29.10.2007 15:21:00
harry
so, das war eine schwere Geburt,
es lag an den Spaltenüberschriften
https://www.herber.de/bbs/user/47229.zip
Gruß
Harry

AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 06:46:00
Markus
Guten Morgen,
bin sprachlos, genau auf dem Punkt getroffen.
Du bist der "Hammer" absoluten respekt.
Wenn ich gross bin will ich das auch mal können.
Vielen, vielen DANK

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 08:03:32
harry
Guten Morgen Markus,
hier noch eine Ergänzung, wenn Du die sortierte Tabelle wieder als Hyperlinks haben willst:

Sub linken()
Set Rng = Sheets("tabelle2").Range("a1:f1700")
For Each cell In Rng
If cell.Value  "" Then
Select Case cell.Column
Case 1
v = "D:\Sachs\Hauptansicht\"
Case 2
v = "D:\Sachs\Unten\"
Case 3
v = "D:\Sachs\Seitenansicht\"
Case 4
v = "D:\Sachs\Seitlich oben\"
Case 5
v = "D:\Sachs\Seitlich unten\"
Case 6
v = "D:\Sachs\Oben\"
End Select
cell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
v & ActiveCell.Value, TextToDisplay:=ActiveCell.Value
End If
Next
End Sub


Gruß
harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 08:38:00
Markus
Hallo,
woher weist du das ich genau gerade im moment danach suche?
Du bist klasse super.
Funzt einwandfrei.
Was verlangst du die Std. wenn ich Unterricht bei dir will? ;-)
Find es nett von dir das du solchen Leuten hilfst wie mir.
DANKE

AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 08:53:00
harry
Hallo Markus,
ich hab Spaß dran
und außerdem habe ich auch mal klein angefangen
und mir wurde hier auch schon oft geholfen
Gruß
harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 09:17:00
harry
Hallo Markus,
mir ist da noch was aufgefallen,
in Deiner Tabelle gibt es einen Eintrag "311 694.JPG" in der ersten Spalte
hier ist "JPG" groß geschrieben, sonst immer klein
das bewirkt, dass dieser Eintrag in der sortierten Tabelle bei den Spalten in
der der gleiche Eintrag mit kleinem "jpg" geschrieben ist fehtl!!!
also bitte in der ursprünglichen Tabelle von "JPG" auf "jpg" ändern und nochmal
durchlaufen lassen, dann passts
Gruß
harry

Anzeige
AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 10:25:00
Markus
Danke
war nur der Test Ordner muss sowieso dann den Hauptordner durchforsten das alles einheitlich ist.
Und das ganze noch verfeinern.

AW: Gleiche Einträge in ver. Spalten in eine Zeile sor
30.10.2007 10:35:00
Markus
Danke
war nur der Test Ordner muss sowieso dann den Hauptordner durchforsten das alles einheitlich ist.
Und das ganze noch verfeinern.
Anzeige

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Datenvergleich über 4 Spalten in zwei Blättern
Martin

Hallo,
ich komme mit eine Formel für folgenden Fall nicht weiter:
Erste Datei (oder erstes Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in Spalte C
Zweite Datei (oder zweites Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in...
14.08.2008 14:33:00
Thread-ID: 1001866
4 Beiträge
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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