Office: Zeilen zusammenfassen

Excel 2003

Hallo zusammen,

gibt es die Möglichkeit den Inhalt von 2 Zeilen (jeweils mehrere Spalten) automatisiert zu einer Zeile zusammenzufassen?

Über das Feld Kundennummer (ist in beiden Zeilen vorhanden) müsste abgefragt werden, welche Zeilen jeweils zusammengehören.

Hat jemand eine Idee ??


Gruß raab71

 

Hallo!

Kannst du mal ein Beispiel hochladen, wie es jetzt aussieht und wie es danach aussehen soll?
Sind es immer genau zwei Zeilen, oder auch mal nur eine oder vier?

 

Hallo,

es sind immer genau 2 Zeilen, die zu einer zusammengefasst werden sollen.
Ein Beispiel ist anbei.


Gruß raab71

 

Hallo!

Hat etwas gedauert, da mein PC irgendeine Macke hatte, aber schließlich habe ICH hier die Hosen an... :-D
Eine Formellösung ist mir nicht eingefallen, aber per Makro müsste es gehen:

(BITTE ZUNÄCHST NUR AN EINER KOPIE DEINER DATEI TESTEN!!!!)

Dieses Makro legt ein neues Tabellenblatt an, in dem die Zeilen zusammengefasst werden.
Es geht von diesen Voraussetzungen aus:
Ein Datensatz beginnt in Spalte A und umfasst 36 Spalten (bis Spalte AJ); dies kann aber leicht angepasst werden.
Das Suchkriterium (Kundennr.) befindet sich in Spalte E; auch dies kann angepasst werden.
Der erste Datensatz befindet sich in Zeile 3; auch dies (welch Wunder) kann angepasst werden.
Dein Datenblatt heißt "Tabelle1" (ja, das kann man auch anpassen...)

Was ist nun zu tun?
Öffne aus deiner Datei heraus mit Alt+F11 den VBA-Editor.
Menü Einfügen > Modul.
Diesen Code in das Codefenster rechts kopieren:

Code:

Sub raab71()
Dim i As Integer
Dim Zeile As Integer
Dim Zähler As Integer
Dim Ende As Integer
'Die Anzahl der Spalten die ein Datensatz besitzt
'wird hier MANUELL(!!) festgelegt.
Const AnzSp = 36
Worksheets.Add Before:=Sheets(1)
With Sheets("Tabelle1")
'Jetzt wird die Spalte der Kundennummer festgelegt (Spalte E).
Ende = .Range("E65536").End(xlUp).Row
'Ebenso die Zeile des ERSTEN Datensatzes (Zeile 3).
For i = 3 To Ende
'Die Ziffer "5", die jetzt immer wieder auftaucht
'steht für die Spalte E (fünfte Spalte).
If Application.WorksheetFunction.CountIf(Sheets(1).Columns(5), .Cells(i, 5)) = 0 Then
Zähler = 1
Zeile = Zeile + 1
.Range(.Cells(i, 1), .Cells(i, AnzSp)).Copy
Sheets(1).Cells(Zeile, 1).PasteSpecial Paste:=xlPasteAll
Do Until .Cells(i + Zähler, 5) = Sheets(1).Cells(Zeile, 5)
Zähler = Zähler + 1
Loop
.Range(.Cells(i + Zähler, 1), .Cells(i + Zähler, AnzSp)).Copy
Sheets(1).Cells(Zeile, AnzSp + 1).PasteSpecial Paste:=xlPasteAll
End If
Next i
End With
End Sub

Aus der Tabelle heraus kannst du dieses Makro mit Alt+F8 aufrufen.

Hoffentlich klappt's...

 

Hallo,

ich hab´s grad getestet. Funktioniert wunderbar !!!

Vielen Dank für die schnelle und kompetente Hilfe.


Gruß raab71