Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit doppelten Inhalten zusammenschmelzen

Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 13:37:19
Jassi
Hallo liebes Forum,
habe schon ueberall nach einer Loesung gesucht aber leider noch keine gefunden. Ich will keine Summen addieren nur Zeilen zusammenfuegen/schmelzen, die dieselbe ID haben.
Ich suche fuer folgendes Problem ein Makro.
Ich habe ein Excel-Datei, die mir von einem Computersystem ausgespuckt wird.
In den ersten Zeilen in Spalte A steht nur Info.
Ab Zelle A8 faengt die eigentliche Tabelle mit einem Header an.
Die Datei besteht aus vielen Spalten. Ein mal weniger und einmal mehr Spalten. Dem vorgeschalteten Computersystem geschuldet.
In einer bestimmten Spalte steht immer sowas wie eine ID. Es kommt sehr oft vor, dass manche IDs doppelt oder dreifach vorhanden sind. Wenn das der Fall ist, steht in der Regel in allen Spalten das gleiche drin. Bis auf manche Spalten, die leer bleiben. Die Leerzeichen habe ich mit einem Minus gekennzeichnet.
Ausgangssituation hier:
Info
Info
Info
usw.
Bemerkung Inhalt Fassungsvermoegen Nr. Pos. ID Land Waehrung Typ1 Typ2 Typ3 Typ4 Typ5 Typ6 Zustand
bla blubb 2 liter 34256 Deutschland Euro - - - 1 1 1 gut
bla blubb 2 liter 34256 Deutschland Euro 1 1 1 - - - gut
bla blubb 3 liter 56789 Deutschland Euro 1 1 1 - - - gut
bli bla 4 liter 76523 USA. Dollar 2 2 2 - - - sehr gut
bla blubb 3 liter 89895 Deutschland Euro 3 3 3 - - - gut
bli bla 4 liter 76523 USA. Dollar - - - 2 2 2 sehr gut
Ziel: ID Nummern werden zusammengefasst
Info
Info
Info
usw.
Bemerkung Inhalt Fassungsvermoegen Nr. Pos. ID Land Waehrung Typ1 Typ2 Typ3 Typ4 Typ5 Typ6 Zustand
bla blubb 2 liter 34256 Deutschland Euro 1 1 1 1 1 1 gut
bla blubb 3 liter 56789 Deutschland Euro 1 1 1 - - - gut
bli bla 4 liter 76523 USA. Dollar 2 2 2 2 2 2 sehr gut
bla blubb 3 liter 89895 Deutschland Euro 3 3 3 - - - gut
Die ganze Datei besteht natuerlich aus noch mehr Spalten und Zeilen.
Wer kann mir helfen? Freu mich ueber jede Idee!

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 13:52:09
Daniel
Hi
1. markiere im Bereich alle Leerzellen, die gefüllt werden sollen.
das geht über das Menü START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE - LEERE ZELLEN
2. gib in diese Zellen die Formel ein (sinngemäß). Schließe die Eingabe mit STRG+ENTER ab, um die Formel in alle markierten Zellen zu übernehmen:
=Wenn(ID = ID in Zeile drunter ; Wert aus Zeile drunter ; "")
3. kopiere den ganzen Zellbereich und füge ihn an gleicher Stelle als Wert ein.
4. Wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATEN ENTFERNEN an, mit der Spalte in der die ID steht als Kriterium
Gruß Daniel
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 14:58:46
Jassi
Hallo Daniel,
vielen Dank. Eigentlich schaut deine Loesung recht gut aus. Er loescht zumindest die Zeilen mit doppelten IDs. Aber es fuehrt die Inhalte nicht zusammen.
Also das Ziel deines Makros:
Info
Info
Info
usw.
Bemerkung Inhalt Fassungsvermoegen Nr. Pos. ID Land Waehrung Typ1 Typ2 Typ3 Typ4 Typ5 Typ6 Zustand
bla blubb 2 liter 34256 Deutschland Euro - - - 1 1 1 gut
bla blubb 3 liter 56789 Deutschland Euro 1 1 1 - - - gut
bli bla 4 liter 76523 USA. Dollar 2 2 2 - - - sehr gut
bla blubb 3 liter 89895 Deutschland Euro 3 3 3 - - - gut
Mein Ziel waere aber, dass die Inhalte der Typen in einer Zeile miteinander verschmelzen.
So:
Info
Info
Info
usw.
Bemerkung Inhalt Fassungsvermoegen Nr. Pos. ID Land Waehrung Typ1 Typ2 Typ3 Typ4 Typ5 Typ6 Zustand
bla blubb 2 liter 34256 Deutschland Euro 1 1 1 1 1 1 gut
bla blubb 3 liter 56789 Deutschland Euro 1 1 1 - - - gut
bli bla 4 liter 76523 USA. Dollar 2 2 2 2 2 2 sehr gut
bla blubb 3 liter 89895 Deutschland Euro 3 3 3 - - - gut
Lieben Gruss,
Jassi
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 15:26:45
Jassi
Leider funktioniert das irgendwie nicht. Es ist ja auch nicht immer der Wert, der kopiert werden soll(verschmolzen), genau drunter.
Bei mir bringt er dann nur immer #Name? in allen Zellen.
Lieben Gruß,
Jassi
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 15:37:46
Daniel
HI
naja, du musst schon in die Formel, die ich dir genannt habe, die Beschreibungen durch die tatsächlichen Zelladressen ersetzen.
da ich deine Datei nicht kenne, sondern nur eine vage Beschreibung von dir habe, kann ich dir die Formel auch nicht konkreter nennen.
und natürlich sollte man die Liste vorher nach der Spalte mit den IDs sortieren so dass gleiche IDs direkt untereinander stehen.
Gruß Daniel
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 15:41:24
Daniel
Deine Formel scheint aber nur in der Zeile darunter nach der ID zu suchen. Im Beispiel kann die gleiche ID aber auch später wieder auftauchen. Kann man natürlich durch Sortieren vermeiden.
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 15:44:19
Daniel
Man sollte hier zwingend sortieren.
macht das ganze viel einfacher und reduziert den Rechenaufwand, weil man immer nur in der Zeile drunter schauen muss und nicht jedesmal die komplette Datei durchsuchen muss.
Gruß Daniel
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 14:09:13
Daniel
Hallo Jassi,
ich bin jetzt davon ausgegangen, dass die Tabelle immer in A8 startet und die ID's in wechselnden Spalten je nach Tabelle vorkommen können. Deswegen wird die ID Spalte abgefragt:
Sub ID_Duplikate()
Dim TabRange As Range
Dim IDCol As Long
IDCol = Application.InputBox("Bitte Spalte mit ID markieren", "ID Spalte", , , , , , 8).Column
Set TabRange = Range("A8", Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(8, Columns.Count). _
End(xlToLeft).Column))
TabRange.RemoveDuplicates Columns:=IDCol, Header:=xlYes
End Sub
Probiers mal bei dir aus.
Gruß
Daniel
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 15:26:32
Daniel
Sorry hatte überlesen, dass nicht nur Duplikate entfernt werden sollten, sondern auch Gleiche IDs zusammengefasst. Das ist natürlich etwas komplizierter und ich hoffe es klappt so bei dir:
Sub ID_Duplikate()
Dim TabRange As Range, cell As Range
Dim IDCol As Long, ErsteZeile As Long, LastRow As Long, LastCol As Long
ErsteZeile = 5
IDCol = Application.InputBox("Bitte Spalte mit ID markieren", "ID Spalte", , , , , , 8).Column
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
LastCol = Cells(ErsteZeile, Columns.Count).End(xlToLeft).Column
Set TabRange = Range(Cells(ErsteZeile, 1), Cells(LastRow, LastCol))
For Each cell In TabRange
If cell = "" Or cell Is Nothing Or cell = "-" Then
With TabRange.Offset(cell.Row - ErsteZeile, 0).Columns(IDCol)
If Not .Find(Cells(cell.Row, IDCol)) Is Nothing Then
cell = Cells(.Find(Cells(cell.Row, IDCol)).Row, cell.Column)
End If
End With
End If
Next cell
TabRange.RemoveDuplicates Columns:=IDCol, Header:=xlYes
End Sub
Grüße
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 15:43:43
Daniel
Noch eine Korrektur - Die erste Zeile der Tabelle muss natürlich wieder 8 sein...
Sub ID_Duplikate()
Dim TabRange As Range, cell As Range
Dim IDCol As Long, ErsteZeile As Long, LastRow As Long, LastCol As Long
ErsteZeile = 8
IDCol = Application.InputBox("Bitte Spalte mit ID markieren", "ID Spalte", , , , , , 8).Column
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
LastCol = Cells(ErsteZeile, Columns.Count).End(xlToLeft).Column
Set TabRange = Range(Cells(ErsteZeile, 1), Cells(LastRow, LastCol))
For Each cell In TabRange
If cell = "" Or cell Is Nothing Or cell = "-" Then
With TabRange.Offset(cell.Row - ErsteZeile, 0).Columns(IDCol)
If Not .Find(Cells(cell.Row, IDCol)) Is Nothing Then
cell = Cells(.Find(Cells(cell.Row, IDCol)).Row, cell.Column)
End If
End With
End If
Next cell
TabRange.RemoveDuplicates Columns:=IDCol, Header:=xlYes
End Sub

Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 16:53:58
Jassi
Ha...Das war´s. Deshalb hatte er mir den Fehler gebracht. Super! Vielen Dank für Eure Mühen!!!
So jemanden wie dich bräuchte ich immer als Backup, wenn ich nicht mehr weiter weiß...
Kann nur das nächste Mal hoffen, dass du meine Anfrage liest;0)
LG Jassi
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 16:46:00
Jassi
Oh je oh je...Keine Ahnung ob ich was falsch mache.
Meine ID Spalte heißt nicht ID sondern Teilnr.
Jetzt hab ich einfach in deinem Makro alles was mit ID erscheint in Teilenr. umbenannt.Aber er gibt mir einen Laufzeitfehler an.
Was nun?
Und ich versteh auch nicht warum Erste Zeile =5 ist. Und warum,,,,8?
Wenn ich hinter den code besser steige, könnte ich vielleicht den Fehler finden.
LG Jassi
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 16:55:28
Daniel
Es macht nichts, wie die Spalte heißt. Das ist nur eine Variable im Code.
Die Spalte wählst du ja per Hand auf Abfrage aus (einfach Spalte markieren, für diese Art der Abfrage steht die 8 hinten in der Application.Inputbox).
Die erste Zeile, hatte ich vorhin schon angemerkt, muss natürlich wieder 8 sein in deinem Fall.
Versuch mal nur das mit der Zeile zu ändern und dann den Code laufen zu lassen. Bei Abfrage einfach die ganze Spalte markieren, in der die ID steht (wie gesagt, egal wie die heißt) und den Rest so zu lassen.
Viel Glück!
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
22.01.2019 18:41:41
Jassi
Ich weiss nicht, ob du's mitbekommen hast...aber es hat jetzt alles gut geklappt. Vielen vielen Dank!
Kannst du mir dennoch eins verraten?
Es koennte vielleicht mal vorkommen, dass in irgendlwelchen Spalten ein anderer Inhalt steht.
Beispiel:
bla blubb 2 liter 34256 Deutschland Euro - - - 1 1 1 gut
bla blubb 2 liter 34256 Deutschland Euro 1 1 1 - - - sehr gut
Was koennte man an dem Code noch aendern, damit man diesen Unterschied sieht, oder die Zielzeile dann so aussieht:
bla blubb 2 liter 34256 Deutschland Euro 1 1 1 1 1 1 gut,sehr gut
Also, andere Inhalte mit einem Komma getrennt hinzugefuegt werden.
Vielen lieben Dank,
Jassi
Anzeige
AW: Zeilen mit doppelten Inhalten zusammenschmelzen
23.01.2019 08:29:52
Daniel
Es macht nichts, wie die Spalte heißt. Das ist nur eine Variable im Code.
Die Spalte wählst du ja per Hand auf Abfrage aus (einfach Spalte markieren, für diese Art der Abfrage steht die 8 hinten in der Application.Inputbox).
Die erste Zeile, hatte ich vorhin schon angemerkt, muss natürlich wieder 8 sein in deinem Fall.
Versuch mal nur das mit der Zeile zu ändern und dann den Code laufen zu lassen. Bei Abfrage einfach die ganze Spalte markieren, in der die ID steht (wie gesagt, egal wie die heißt) und den Rest so zu lassen.
Viel Glück!

307 Forumthreads zu ähnlichen Themen

Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Anzeige
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Alle Zeilen mit bestimmtem Inhalt löschen
Lutz

Hallo Excel-Profis,
ich habe eine Tabelle die "Liste" heisst und in der Buchungen per Makro eingefügt werden.
Jetzt möchte ich per Makro einen Vorgang der aus mehreren Zeilen bestehen kann löschen.
D.h. ich möchte per Box fragen welcher Beleg (steht in Spalte "E") gelöscht werden so...
13.03.2009 18:53:36
Thread-ID: 1059979
3 Beiträge
Anzeige
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Vba count.row bei leer zeilen
Carmen

Hallo zusammen,
hänge mal wieder bei vba. und zwar hab ich eine export tabelle (Tabelle1)die zwischen den relevanten Zeile leere zeilen und spalten hat. nun möchte ich diese tabelle in ein neues blatt kopieren, weiß aber nicht wie ich die größe ermitteln kann trotz der leerzeilen und spalte...
23.05.2009 15:46:16
Thread-ID: 1076869
16 Beiträge
Gefüllte Zeilen zählen und Variable zuweisen
Bowl

Hallo zusammen
Hab da noch ein kleines allerletztes Problem ^^
Wie kann man in einer-Excel Tabelle die Anzahl der Gefüllten Zeilen in den denen eine bestimmte Zelle gefüllt ist zählen und den Wert einer Variablen zuweisen?
Hab da schon einiges versucht, das ganze klappt aber irgen...
01.07.2009 12:00:13
Thread-ID: 1085646
14 Beiträge
Anzahl Codezeilen ermitteln
Joachim

Hi,
Kurze Frage
geht es eingentlich per VBA, die Anzahl der Zeilen Code, aus dem ein komplettes Projekt besteht, zu ermitteln ?
Falls Ja, wie ?
Danke
Joachim
22.07.2009 14:40:58
Thread-ID: 1090543
27 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
1
5
3
2
2
4
15
13
26
2
7
5
7
3
6
7
3
5
2
5
10
3
15
2
4