Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintrag verschieben, wenn doppelt

Eintrag verschieben, wenn doppelt
18.05.2006 13:29:59
Joachim
Hallo,
ich habe eine Tabelle, bei der in der Spalte A die Zahlen mehrfach vorkommen können (z.B. 0340000). Die Werte dazu aus der Spalte B hätte ich gerne in einer Zeile nebeneinander (sozusagen eine Zusammenfassung der mehrfach vorkommenden Zahlen in A).
Ist-Zustand:
Spalte A Spalte B
0338061 832001995288
0338137 832001995220
0340000 841001995251
0340000 841001995250
0340000 841001995264
0340000 841001995263
0342006 842001995471
0348003 842001995491
0348003 842001995218
0350009 852001999004
0350009 852001995481
Wunsch:
Spalte A Spalte B
0338061 832001995288
0338137 832001995220
0340000 841001995251 841001995250 841001995264 841001995263
0342006 842001995471
0348003 842001995491 842001995218
0350009 852001999004 852001995481
Da die Tabelle über 2000 Zeilen hat, ist das manuell langwierig und leicht fehleranfällig.
Gruss
Joachim

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

Betreff
Datum
Anwender
Anzeige
AW: Eintrag verschieben, wenn doppelt
18.05.2006 13:53:31
Harald
Hi Joachim,
versuch mal das.

Sub test()
Dim i As Integer, x As Integer, col As Integer
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" Then
For x = Cells(Rows.Count, 1).End(xlUp).Row To i + 1 Step -1
If Cells(x, 1).Value = Cells(i, 1).Value Then
col = Cells(i, Columns.Count).End(xlToLeft).Column + 1
Cells(i, col) = Cells(x, 2).Value
Rows(x).Delete
End If
Next x
End If
Next i
End Sub

Gruss Harald
AW: Eintrag verschieben, wenn doppelt
18.05.2006 14:07:22
Joachim
Hallo Harald,
vielen Dank!
Es funktioniert!
Viel "Handarbeit" gespart.
Gruss
Joachim
Danke für die Rückmeldung mT
18.05.2006 14:11:16
Harald
...bleibt noch zu Erwähnen, dass ich die Variablendeklaration für i und x auf das schnellere Integer gesetzt hab.
Beträgt die Zeilenzahl über 30.000 muss auf As Long umgestellt werden
Gruss Harald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige