Zeilen zuammenlegen

Hallo zusammen,
nachdem ich im 1. Step meiner Herausforderung hier schon super Hilfe bekommen habe - an dieser Stelle nochmals vielen Dank an Thorsten (Oberschlumpf) - möchte ich nun den 2. Schritt noch realisieren. Ich versuche mal zu erklären:
In Spalte A stehen Zahlen, in Spalte C-N stehen dazugehörige Werte. Jede dieser Zahlen wiederholt sich 1x, auch bei der Wiederholung stehen wieder Werte in C-N. Ich möchte nun jeweils die Wiederholung der Zahl löschen, muss aber vorher die Werte in C-N in das erste Vorkommen der Zahl übernehmen. Die Werte C-N des ersten Vorkommens dürfen dabei aber nicht überschrieben werden, die erste Zahl und die Wiederholung haben nie in der gleichen Spalte (C-N) einen Wert.
Somit bleibt nachher pro Zahl eine Zeile (Vorher waren es ja zwei). Wenn diese Aufgabe erledigt ist, soll noch die komplette Hintergrundfarbe der Tabelle auf weiss geändert werden (Vorher gelblich). Manche Werte in Spalte C-N sind grün hinterlegt, diese Hintergrundfarbe muss vorhanden bleiben, aber auf grau geändert werden.
Nachfolgend eine Beispielmappe mit einem Blatt "vorher" und einem "nachher". Ich hoffe dass die Beispielmappe meine komplizierte Erklärung etwas relativiert. Für Rückfragen bin ich gerne da.
DL: https://www.herber.de/bbs/user/91590.zip
Vielen Dank im Voraus, Ralph.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
einfache lösung:
1. selektiere alle Zellen in Spalte C-N
2. schränke die Selektion auf alle leeren Zellen ein, hierzu klickst du:
START - BEARBEITEN - SUCHEN UND AUSWÄHLEN -INHALTE - LEERE ZELLEN
3. gib jetzt in die aktive Zelle Zelle folgende Formel ein (hier für C1)

=Wenn($A1=$A2;C2;"")

(also im Prinzip: "wenn in Spalte A in der Zeile drunter der gleiche Wert steht wie in meiner Zeile, dann lies den Wert aus der Zelle unter mir, sonst leer" , sollte eine andere Zelle die aktive sein, musst du die Formel entsprechend anpassen)
4. Schließe die Eingabe mit STRG+ENTER ab, die Formel wird in alle markierten Zellen übernommen.
5. kopiere die Spalten C:N und füge sie an gleicher Stelle als Wert ein
6. wende auf die ganze Tabelle die funkion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an mit Spalte A als kriteriumsspalte.
als Makro sieht das so aus:

Sub test()
With Range("C:N")
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=IF(RC1=R[1]C1,R[1]C,"""")"
.Formula = .Value
End With
Range("A:N").RemoveDuplicates 1, xlNo
End Sub

Sub test() Dim Z As Long Dim S As Long For Z = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(Z, 1).Value = Cells(Z + 1, 1).Value Then For S = 3 To 14 If Cells(Z, S) = "" Then Cells(Z + 1, S).Copy Cells(Z, S) Next Rows(Z + 1).Delete shift:=xlUp End If Next End Sub

For Z = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 For S = 3 To 14 Select Case Cells(Z, S).Interior.ColorIndex Case 10 'Farbindex für gelblich Cells(Z, S).ColorIndex = xlNone Case 20 'Farbindex für grün Cells(Z, S).ColorIndex = 15 'Farbindex für grau Case Else Next Next

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread