Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1796to1800
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
Inhaltsverzeichnis

Doppelte Zeilen zusammenführen

Doppelte Zeilen zusammenführen
09.12.2020 15:13:31
Lena
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Zeilen zusammenführen
09.12.2020 17:20:34
onur

Sub kopieren_loeschen()
Dim ende As Long, löschen(1000) As Boolean
Dim row, row2, firstrow, lastrow
ende = Cells(Rows.Count, 1).End(xlUp).row
For row = 2 To ende
firstrow = 0: lastrow = 0
For row2 = row + 1 To ende
If Cells(row, 1)  "" Then
If Cells(row, 1) = Cells(row2, 1) Then
If firstrow = 0 Then firstrow = row
lastrow = row2
löschen(row2) = True
Cells(row, 3) = Cells(row2, 3)
Cells(row, 4) = Cells(row2, 4)
End If
End If
Next row2
Next row
For row = ende To 2 Step -1
If löschen(row) Then Rows(row).Delete
Next row
End Sub

AW: Doppelte Zeilen zusammenführen
10.12.2020 16:05:32
Lena
Vielen Dank!!!
Anzeige
Gerne !
10.12.2020 16:07:49
onur

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige