Hallo liebe Experten,
ich habe ein Excel-Problem.
Und zwar habe ich zwei Spalten A und B
A B
A1 2
A2 2
A3 33
A4 3
A5 5
A6 4
A7 33
A8 2
A9 3
A10 5
In B können Werte mehrfach vorkommen. Nun brauche ich eine Formel, damit meine Tabelle vereinfacht wird, und zwar damit sie so ausschaut:
A1, A2, A8 2
A3, A7 33
A4, A9 3
A5, A10 5
A6 4
Das heißt, alle Werte die in Spalte B mehrfach vorkommen, sollen in Spalte A mit Komma getrennt aufgezählt werden. Die „Duplikate“ sollen dann natürlich gelöscht werden.
Gibt es dafür eine Formel???
Danke schonmal für eure Hilfe, zerbreche mir schon seit Tagen den Kopf darüber.
Liebe Grüße,
Billy
Das heißt, alle Werte die in Spalte B mehrfach vorkommen,
sollen in Spalte A mit Komma getrennt aufgezählt werden. Die
„Duplikate“ sollen dann natürlich gelöscht werden.
Hallo Billy,
ginge auch eine Vba-Lösung?
Gruß
Reinhard
Hallo Reinhard,
danke für die schnelle Antwort.
Meinst du damit Makros? Ja das ginge auch.
LG,
Billy
Hallo Billy,
Sub tt()
Dim Z As Long, Zei As Long, Inh()
Zei = Cells(Rows.Count, 1).End(xlUp).Row
ReDim Inh(Application.Max(Columns(2)))
For Z = 1 To Zei
Inh(Cells(Z, 2).Value) = Inh(Cells(Z, 2).Value) & "," & Cells(Z, 1).Value
Next Z
Range("A1:B" & Zei).ClearContents
Zei = 1
For Z = 0 To UBound(Inh)
If Inh(Z) "" Then
Cells(Zei, 1) = Mid(Inh(Z), 2)
Cells(Zei, 2) = Z
Zei = Zei + 1
End If
Next Z
End Sub
Gruß
Reinhard
Hallo Reinhard,
mensch super, vielen Dank.
Nur ein kleines Problemchen hab ich noch, was ist wenn ich Spalte B nicht nur Zahlen sondern auch noch Buchstaben stehen??
LG,
Billy
Nur ein kleines Problemchen hab ich noch, was ist wenn ich
Spalte B nicht nur Zahlen sondern auch noch Buchstaben
stehen??
Hallo Billy,
das kleine Problemchen bedeutet ich kann den Code in die Tonne kloppen und neu codieren 
Hättse das nicht vorher sagen können *seufz*
Gruß
Reinhard
Nur ein kleines Problemchen hab ich noch, was ist wenn ich
Spalte B nicht nur Zahlen sondern auch noch Buchstaben
stehen??
Hallo Billy,
Sub tt()
Dim Z As Long, Zei As Long, Inh(), colC As New Collection, C As Long
Zei = Cells(Rows.Count, 1).End(xlUp).Row
ReDim Inh(Zei - 1, 1)
On Error Resume Next
For Z = 1 To Zei
Inh(Z - 1, 0) = Cells(Z, 1).Value
Inh(Z - 1, 1) = Cells(Z, 2).Value
colC.Add Item:=CStr(Cells(Z, 2).Value), key:=CStr(Cells(Z, 2).Value)
Next Z
Range("A1:B" & Zei).ClearContents
For C = 1 To colC.Count
Cells(C, 2) = colC(C)
For Z = 0 To Zei - 1
If CStr(Inh(Z, 1)) = colC(C) Then
Cells(C, 1) = Cells(C, 1) & IIf(Cells(C, 1) "", ",", "") & Inh(Z, 0)
End If
Next Z
Next C
End Sub
Gruß
Reinhard
Guten Morgen Reinhard,
oh Verzeihung, ich wusste nicht, dass mein kleines Problemchen wohl kein Kleines ist.
Tausend Dank für das Makro, funktioniert einwandfrei!! Jetzt muss ich keine hunderte Zeilen lange Tabellen mehr händisch bearbeiten!! Danke!
Liebe Grüße,
Billy
Hallo Reinhard,
sag mal … wäre es ein großer Änderungsaufwand, wenn man Spalte D auch mit löschen will, wenn Spalte A und B gelöscht werden?
Also von
A1 a - a
A2 a - a
A3 33 - c
A4 3 - d
A5 c - e
A6 f - f
A7 c - e
A8 2 - h
A9 3 - d
A10 5 - j
nach:
A1, A2 a - a
A3 33 - c
A4, A9 3 - d
A5 c - e
A6 f - f
A8 2 - h
A10 5 - j
Ganz liebe Grüße, Billy
sag mal … wäre es ein großer Änderungsaufwand, wenn man
Spalte D auch mit löschen will, wenn Spalte A und B gelöscht
werden?
Hallo Billy,
ersetze
Range(„A1:B“ & Zei).ClearContents
durch
Range(„A1:B“ & Zei,„D“).ClearContents
oder gleich so:
Range(„A:B“,„D“).ClearContents
Gruß
Reinhard
1 „Gefällt mir“
Hallo Reinhard,
nochmals Danke für deine fixe Antwort!!
… aber irgendwie funktioniert das ganze bei mir nicht, habe auch selbst schon versucht es zum Laufen zu bringen bevor ich hier wieder schreibe, aber ich schaffs einfach nicht
Liebe Grüße,
Billy