Spalten in Zeilen und gleiche Werte zusammenfassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
das was du vorhast, ist schon etwas aufwendiger, aber so sollte es funktionieren:
1. mit "Daten-Text in Spalten" die Werte beim " " in Zweit Spalten aufteilen (in zukunft Nummer und Anhang benannt
2. in einer dritten Spalte mit folgender Formel die Zähl-Nr bestimmen, wie oft jede Nummer bisher vorkommt(absolute und Relative addrssierung beachten):
=ZÄHLENWENN(B$2:B2;B2)
3. eine weitere Hilfsspalte VOR den Daten einfügen, hier setzt du Nummer und Zähl-Nr zu einer ID-Nr. zusammen:
=B2&"-"&D2
4. jetzt filterst du die Zähl-Nr. nach 1, und kopierst die Werte in eine andere Tabelle
damit hast du jede vorkommende Nr. genau 1x
5. in der neuen Tabelle fügst du als Spalten-überschrift die Nummern von 1 bis zur görßten Zähl-Nr. ein
6. jetzt kannst du im Tabellen-Körper per SVerweis die Daten holen. Den Suchbegriff setzt du dir aus den Reihen- und Spaltenüberschriften zu sammen.
=SVERWEIS($A2&"-"&B$1;ausgangsdaten!$A$2:$C$16;3;0)
7. wenn dich das #NV bei den daten stört, die weniger als die Max-Anzahl vorkommen, must du noch eine Wenn-Abfrage einbauen. Die Formel im Tabellenkörper sieht dann so aus:
=WENN(B$1&lt=ZÄHLENWENN(ausgangsdaten!$B:$B;$A2);SVERWEIS($A2&"-"&B$1;ausgangsdaten!$A$2:$C$16;3;0);"")
im Beispiel wird vielleicht klarer. https://www.herber.de/bbs/user/37346.xls
Wenn diese Arbeit öffters vorkommt, sollte man aber vielleicht doch ein Makro schreiben.
Gruß, Daniel

Hallo
normalerweise ja, aber in dem Fall wird etwas komplexer, da das Makro ja auch darauf reagiern muß vieviele Spalten maximal benötigt werden.
Außderdem würde ich hier die zusätzlichen VBA-Möglichkeiten nutzen und etwas anders vorgehen, um mir die zwischenschritte wie Daten zerlegen,Sortieren, Hilfsspalten einfügen, Autofilter usw. zu sparen.
Bei der Makrolösung bspw. brauchen die Daten auch nicht sortiert zu sein.


Sub Umformen()
Dim arrDaten
Dim i As Long
Dim Zeile As Long
Dim Nummer As Long
Dim Anhang As String
'--- Daten in eine Array-Variable kopieren
With Sheets("Original")
arrDaten = Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
End With
'--- Daten neu anordnen
With Sheets("Ergebnis")
.Cells.ClearContents
For i = 1 To UBound(arrDaten)
'--- Wert zerlegen in Nummer und Anhang
Nummer = CLng(Left(arrDaten(i, 1), 9))
Anhang = Right(arrDaten(i, 1), 4)
'--- Prüfen, ob Nummer schon vorhanden, wenn nicht, einfügen
If WorksheetFunction.CountIf(.Columns(1), Nummer) = 0 Then
.Cells(65000, 1).End(xlUp).Offset(1, 0).Value = Nummer
End If
'--- Anhang an Nummer anfügen
Zeile = WorksheetFunction.Match(Nummer, .Columns(1), 0)
.Cells(Zeile, 255).End(xlToLeft).Offset(0, 1).Value = Anhang
Next
.Select
End With
End Sub

Gruß, Daniel
PS.
damit das Makro läuft, müssen
- die orginal-Daten in einer Mappe "Original" in der Spalte A ohne überschrift stehen.
- eine Mappe "Ergebni" vorhanden sein. In dieser werden die Daten neu angeordnet

Beliebteste Forumthreads (12 Monate)

Spalten in Zeilen und gleiche Werte zusammenfassen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten in Zeilen und gleiche Werte zusammenfassen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread