Erste Zeile eines Zelenverbundes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zellenverbund() lRow = Cells(Rows.Count, 1).End(xlUp).Row For i = lRow To 2 Step -1 Cells(i, 1).Select If Cells(i, 1) = Cells(i + 1, 1) Then MsgBox "Zellenverbund" Else MsgBox "kein Zellenverbund" End If Next i End Sub

Sub Zellenverbund() lRow = Cells(Rows.Count, 1).End(xlUp).Row For i = lRow To 2 Step -1 If Range(Cells(i, 1), Cells(i + 1, 1)).MergeCells Then MsgBox "Zeile " & i & " und " & i + 1 & " sind verbunden" End If Next i End Sub

hm, nicht schlecht, aber immer noch nicht das, was ich brauche.
vielleicht ein wenig mehr hintergrund:

das problem ist, das sich in spalte 1 ein zellenverbund an den
naechsten reiht. beim ausdruck werden die verbünde u.U. ausein-
andergerissen und auf zwei seiten zerstückelt. so soll vor dem
druck ein seitenwechsel gesetzt werden und zwar über dem 1. verbund,
der nicht mehr ganz auf die seite passt.

deine loesung funktioniert bei nur einem verbund. wenn sich zwei (oder
mehr) einanderreihen, ist die abfrage .mergecells immer TRUE, wobei
er nicht erkennt, das es zwei verschiedene verbunde sind. genau das
sollte er aber herausfiltern, damit ich an der stelle den zeilenumbruch
setzen kann.

also: vom tabellenende rueckwaertszaehlend ist die position der 1. Zeile
eines zellverbundes vor dem uebergang zu einem weiteren verbund gesucht.
uebergang

ich hoffe, jetzt ist ein wenig mehr licht in die geschichte gekommen...
trotzdem schon mal danke

Hallo Jörg,
ich hoffe ich habe dih richtig verstanden.
das folgende Makro durchläuft die Spalte A von oben nach unten und meldet jede Übergang zwischen zwei aneinandergrenzenden Zellenverbunde. Im Beispiel von Zeile 2 bis 1000.
(Zellenverbunde, die nicht aneinandergrenzen, werden nicht genannt.)


Sub grenze_Zellenverbund()
For i = 2 To 1000 Step 1
If Range(Cells(i, 1), Cells(i + 1, 1)).MergeCells = True Then
BolVerbEnd = False
For iCount = i + 1 To 1000
Set ma1 = Range(Cells(iCount, 1), Cells(iCount, 1)).MergeArea
Set ma2 = Range(Cells(iCount - 1, 1), Cells(iCount - 1, 1)).MergeArea
If ma1.Address = "$A$" & iCount Then
BolVerbEnd = False
Exit For
ElseIf ma1.Address <> ma2.Address Then
BolVerbEnd = True
Exit For
End If
Next iCount
i = iCount
End If
If BolVerbEnd = True Then
MsgBox "Verbundgrenze zwischen: " & iCount - 1 & " und " & iCount
End If
BolVerbEnd = False
Next i
End Sub

Gruß
Christoph

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread