mir hat vor 2 Wochen schon einmal jemand in diesem Forum geholfen. Ich möchte doppelte Zeilen zu einer fusionieren.
Die fusionierte Zeile soll aus den Spalten 1 und 2 der ersten gedoppelten Zeile und aus Spalte 3 und 4 der zweiten gedoppelten Zeile bestehen.
Das konnte mir der liebe Matthias auch schon programmieren.
Sub kopieren_loeschen()
Dim ende As Long
Dim zeile As Long, zwzeile As Long
ende = Cells(Rows.Count, 1).End(xlUp).Row
For zeile = 2 To ende
For zwzeile = ende To zeile + 1 Step -1
If Cells(zeile, 1) "" Then
If Cells(zeile, 1) = Cells(zwzeile, 1) Then
'identischen Nummern
Cells(zeile, 3) = Cells(zwzeile, 3)
Cells(zeile, 4) = Cells(zwzeile, 4)
'wenn der Kommentar auch mit kopiert werden soll,
'in der nächsten Zeile den Anstrich rausnehmen
'Cells(zeile, 2) = Cells(zwzeile, 2)
Rows(zwzeile).Delete
ende = ende - 1
Exit For
End If
End If
Next
Next
End Sub
Allerdings ist mir erst im Nachhinein eingefallen, dass Zeilen auch 3mal, 4mal oder noch öfter vorkommen können. Nun brauche ich also ein Programm, dass nur das erste Duplikat und das letzte Duplikat in meiner Liste fusioniert. Alle Duplikate innerhalb der beiden äußeren sollen nicht beachtet werden, bzw. nur gelöscht werden.
Hier ist der Titel zu meinem vorherigen Beitrag, vielleicht hilft der euch ja weiter.
Doppelte Zelle nur teilweise fusionieren LG Lena