Makro: Zellen verbinden

Hallo,
ich habe folgendes Problem:
bestehende Zahlen (jeweils in einer Zelle/Spalte): 5 5 5 6 6 6 6 7 7 usw.
Das Makro soll nun die Zellen verbinden, wenn die Zahlen gleich sind, d.h. das am Ende nur eine 5, eine 6, eine 7 usw. auftauchen. Es muss aber eine Überprüfung stattfinden, ob, die nächste Zahl noch gleich ist oder nicht, da nicht von jeder Zahl gleich viele Zellen vorhanden sind.
Ich hoffe, das Problem ist nicht zu kompliziert erklärt.
Habe bisher folgendes probiert:
For colIndex = 7 To 256
With Worksheets("Terminplan").Cells(4, colIndex)
If Cells(4, colIndex).Value = Cells(4, colIndex + 1).Value Then
Worksheets("Terminplan").Activate
Range(Cells(4, colIndex), Cells(4, colIndex + 1)).Select
Selection.Merge
End If
End With
Next colIndex
Klappt so aber noch nicht. Kann mir jemand helfen? Danke.
Gruß, Kerstin.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
das ganze bezieht sich auf Spalten in einem Terminplan. Für jeden Tag ist eine Spalte eingerichtet (Breite 1), oben sollen jeweils die Kalenderwoche und der Monat angegeben werden. Diese Angaben stehen jetzt in jeder Zelle, aber die Kalenderwoche 5 muss natürlich nur einmal genannt werden, d.h. die Zellen sollen zusammengefasst werden, damit man auch überhaupt einen Eintrag in der Zelle erkennt (bei Spaltenbreite 1 ist das sonst nicht möglich).
Das Makro verbindet auch die Zellen, allerdings immer nur 2 Zellen. Es fehlt die Bedingung, dass er solange kontrolliert, bis die Bedingung "=" nicht mehr erfüllt ist und erst dann die Zellen markiert und verbindet. Wahrscheinlich irgendeine Verschachtelung.
Gruß, Kerstin.

Sub Zusammenfassen() Dim sp As Integer, sp0 As Integer, ls As Integer Dim wert sp = 7 sp0 = sp Application.DisplayAlerts = False With Worksheets("Terminplan") ls = .Cells(4, .Columns.Count).End(xlToLeft).Column Do wert = .Cells(4, sp) Do sp0 = sp0 + 1 Loop Until .Cells(4, sp0) <> wert With Range(.Cells(4, sp), .Cells(4, sp0 - 1)) .Merge .HorizontalAlignment = xlCenter End With sp = sp0 Loop Until sp > ls End With Application.DisplayAlerts = True End Sub

Sub Zusammenfassen() Dim sp As Integer, sp0 As Integer, ls As Integer Dim wert sp = 7 sp0 = sp Application.DisplayAlerts = False With Worksheets("Terminplan") ls = 256 'bis zum Schluss Do wert = .Cells(4, sp) Do sp0 = sp0 + 1 Loop Until .Cells(4, sp0) <> wert With Range(.Cells(4, sp), .Cells(4, sp0 - 1)) .Merge .HorizontalAlignment = xlCenter End With sp = sp0 Loop Until sp < ls End With Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

276 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro: Zellen verbinden

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

276 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread