Office: Zellen automatisch verbinden

Hallo,

ich habe eine sehr große Excel Tabelle.
In der zweiten Spalte möchte ich die Zellen verbinden, die einen gleichen Wert haben. Per Hand würde dieses ewig dauern. Gibt es eine Möglichkeit dieses automatisch zu machen?
Danke für die Hilfe

 

Hallo!

Kannst du mal ein Beispiel geben, wie das aussehen soll?
Ich kann mir darunter irgendwie noch nichts vorstellen...

 

hier ein Beispie.

Spalte 1; Spalte 2; Spalte 3
4445;56;545454
738;56;458475
857;4;8473587
8734574;4;8458
4783;4´;547

das heißt, in den ersten beiden Zeilen soll aus 56 eine Zelle gemacht werden; dann soll in Zeile 3 bis 5 aus der 4 eine Zelle gemacht werden.

Verstanden?

 

Hallo!

Rechtsklicke den Tabellenreiter deines Blatts und wähle "Code anzeigen"
Füge nun diesen Code ins Codefenster rechts ein:

Code:

Sub test()
Dim zelle As Range
Dim zähler As Integer
Application.DisplayAlerts = False
For Each zelle In Selection
zähler = 0
Do While zelle = zelle.Offset(zähler, 0)
zähler = zähler + 1
Loop
Range(zelle, zelle.Offset(zähler - 1, 0)).Merge
Next zelle
Application.DisplayAlerts = True
End Sub

Markiere nun die Zellen, auf die das Makro angewendet werden soll, z.B. B2:B500, und rufe das Makro über Alt+F8 auf.

Teste es bitte zunächst an einer Kopie deiner Datei.

 

super!!! Hat geklappt. Vielen Dank

 

nur noch eine Kleinigkeit,

wie müsste es aussehen, wenn ich folgende Tabelle hätte?

Auch wieder in Spalte 2 die Zellen verbinden. Aber nun mit den folgenden leeren Zellen bis zum nächsten Eintrag.
Das war´s aber auch dann.
Sorry

 

Hallo!

Dann klappt bei mir dieser Code:

Code:

Sub test()
Dim zelle As Range
Dim zähler As Integer
Application.DisplayAlerts = False
For Each zelle In Selection
If zelle <> "" Then
zähler = 1
Do While zelle.Offset(zähler, 0) = ""
If Intersect(zelle.Offset(zähler, 0), Selection) Is Nothing Then Exit Do
zähler = zähler + 1
Loop
Range(zelle, zelle.Offset(zähler - 1, 0)).Merge
End If
Next zelle
Application.DisplayAlerts = True
End Sub

 

Zellen mit gleichem Inhalt verbinden

Hallo,

wie sieht dieser Code denn aus, wenn ich in einer Liste gleiche Begriffe miteinander verbinden möchte.
Wie z.B.

QUET W02 - FIRMENWERBUNG FIRMENWERBUNG(MAQUET)
QUET W05 - SEMINAR / MESSE SEMINAR(MAQUET)
QUET W01 - SORTIMENT SORTIMENT(MAQUET)
QUET T02 - Stents, Bypässe Flixene u. V12
QUET W03 - EINRICHTUNG OTESUS 1160

Hier möchte ich, der Übersicht halber, die Zelle mit Quet verbunden haben, so dass nur ein mal Quet steht. Die 5 Zeilen sollen aber erhalten bleiben.
Jetzt schon herzlichen Dank

LG
rotwildqueen

 

Leute, Leute!
Was soll das Verbinden für Vorteile bringen?
Die nachteile sind klar:
Filtern und Sortieren gehören damit der Vergangenheit an!
Wenn es Dir "nur" um die Nichtsichtbarkeit der Redundanzen geht, würde ich eher eine simple bedingte Formatierung nutzen:
Ab A2 bis "unten":
bed. Form., neue Regel, Formel ist: =A2=A1
benutzerdefiniertes Zahlenformat ;;; zuweisen.

Gruß Ralf

 

Hallo Ralf,

Da darfst Du dich aber nicht von Luc erwischen lassen :p

 

Habe mir sagen lassen - besser: I hope so - dass Luc hier nicht aktiv ist. ;)
*SchweißAbwisch*

 

Wollen wir es hoffen :D