2
Zellenverbund deaktivieren
Guten Morgen Zusammen,
Zu meinem Problem: Ich habe ein Tabelle in die ich aus anderen Dateien Bereiche reinkopiert habe. Nun gibt es in manchen Dateien Zellenverbunde. Mit diesen Zellenverbunden gibt es später nur Probleme deshalb will ich diese deaktivieren.
Habe natürlich Google benutzt und einiges gefunden, bloß will das bei mir nicht so recht klappen hier mal der Code:
Fast vergessen: es sind nur einige Zellen verbunden, der Rest nicht. Muss ich erst die Verbundenen Zellen suchen das es klappt?
Habe es auch schon mit "With Selection.MergeArea" versucht und der Eigenschaft .UnMerge
Danke für eure Hilfe
Gruß Gimli3311
Zu meinem Problem: Ich habe ein Tabelle in die ich aus anderen Dateien Bereiche reinkopiert habe. Nun gibt es in manchen Dateien Zellenverbunde. Mit diesen Zellenverbunden gibt es später nur Probleme deshalb will ich diese deaktivieren.
Habe natürlich Google benutzt und einiges gefunden, bloß will das bei mir nicht so recht klappen hier mal der Code:
Fast vergessen: es sind nur einige Zellen verbunden, der Rest nicht. Muss ich erst die Verbundenen Zellen suchen das es klappt?
' Am ende Ausführen
Vorlagen_Gesamt.Activate
Set rngUsed = ActiveSheet.UsedRange
'Selektiere den genutzten Bereich
rngUsed.Select
' Zellenfarbe entfernen
With Selection.Interior
.ColorIndex = xlNone
End With
'Rahmen hinzufügen
With Selection.Borders
.LineStyle = xlContinuous ' xlNone alle Rahmenlinien im benutzten Range aus
End With
'--
'Zellenverbund ausschalten
With rngUsed.MergeArea
.MergeCells = False
End WithHabe es auch schon mit "With Selection.MergeArea" versucht und der Eigenschaft .UnMerge
Danke für eure Hilfe
Gruß Gimli3311
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 266020
Url: https://administrator.de/contentid/266020
Printed on: May 9, 2024 at 14:05 o'clock
2 Comments
Latest comment
Moin Gimli3311,
machst du am schnellsten so
oder so
Grüße Uwe
machst du am schnellsten so
rngUsed.MergeCells = False
For Each cell In rngUsed
If cell.MergeCells Then
cell.Unmerge
End If
Next
Hey Uwe,
Danke für dein Hilfe, hat funktioniert ;)
Gruß Gimli3311
Danke für dein Hilfe, hat funktioniert ;)
Gruß Gimli3311
