Zellen automatisch verbinden?

Andreas · 2021-10-07T15:11:38+00:00

Hi zusammen, würde gerne Zellen innerhalb einzelner Zeilen automatisch verbinden. Hier meine Datei: https://www.herber.de/bbs/user/148493.xlsx Wie viele Zellen am Stück verbunden werden sollen, steht in Spalte B. Denke dafür brauche ich eine VBA? Hoffe mir kann jemand helfen : ) Vielen Dank vorab Gruß Andreas

Noch ein Versuch


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RNG As Range
Dim St As Integer, En As Integer
Dim Anz As Variant, i As Integer
Dim Arr, MMax As Integer
Set RNG = Range("AA4:AA70") 'Bereich, wo die Eingabe überwacht wird
St = 30 'Start ab Spalte AD
En = 149 'Ende bei Spalte ES
MMax = 7 'maximaler Eingabewert
Arr = Array(0, 120, 60, 40, 30, 24, 20, 17) 'Datensatz Nr beginnen mit 0
If Not Intersect(RNG, Target) Is Nothing Then
'Prüfen auf Ganzzahl und  MMax, Target  Int(Target)
MsgBox "Falsche Eingabe"
Exit Sub
End Select
With Application
.ScreenUpdating = False 'verhindert das Bildschirmflackern
.DisplayAlerts = False ' Schaltet die Warnmeldung aus
End With
'Reset
Range(Cells(Target.Row, St), Cells(Target.Row, En)).UnMerge
Anz = Arr(Target)
For i = St To En Step Anz
If i + Anz > En Then Anz = En - i + 1
Cells(Target.Row, i).Resize(1, Anz).Merge
Next
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End If
End Sub

LG UweD

…nun auf meinen an Uwe gerichteten Hinweis bezieht, Andreas;
der bedeutet schlicht, dass die Xl-StandardMethode der ZellenVerbindung als reine Formatierungsoperation nicht vorsieht, dass eine VerbundZelle ggf verschiedene Formate ihrer FolgeEinzelZellen bewahrt und ebenso keine von Leer verschiedenen Werte in ihnen. Ebenso keine MatrixFmln, nicht einmal singulare (→ liefern nur einen ErgebnisWert — wie es in deiner Matrix-Spilling-Xl-Version damit aussieht, weiß ich nicht). Das ist sowohl manuell als auch per VBA-Methode ~.Merge der Fall. Entsprd lauten dann die FehlerMeldungen, falls anderes versucht wird.
Allerdings kann man in Xl und auch in VBA Formate übertragen (FormatPinsel!), was dazu führt, dass …
1. ein Change-Ereignis ausgelöst wird (sonst nicht!) und …
2. nur das Format einer vorformatierten (Verbund-)Zelle auf eine (bzw mehrere unverbundene) Zellen übertragen wird, wobei deren Wert- und FormelInhalte (auch MatrixFmln mit mehr als 1 ErgebnisWert) erhalten bleiben - und das ganz ohne Fehlermeldung. Letztere kommt erst, wenn man die VerbundZelle auf StandardWeise wieder auflösen will, ist dann aber bedeutungslos. Das fktioniert sowohl manuell als auch per VBA — nur nicht mit ~.Merge! Angezeigt wird aber stets nur der 1.Wert*.
* In LOcalc kann man dagegen auch bei normaler VerbundFormatierung entscheidem, ob nur der 1.Wert oder alle in ihren Zellen erhalten bleiben oder alle Werte in der 1.Zelle zusammengeführt wdn sollen. Beim Aufheben des Verbunds wdn auch alle OriginalFormate der EinzelZellen wiederhergestellt, in Xl aber nicht.
Leider habe ich trotz Ansicht deines Originals nicht ganz verstanden, worauf das hinausläuft und inwiefern hier VerbundZellen, die mehr als 1 Wert|Fml enthalten, erforderlich sind. Aber viell hilft dir ja mein Hinweis, dein Problem selbst zu lösen. Ansonsten gibt's im hiesigen Archiv auch 2 Beiträge (1er mit DemoCode für horizontale und 1er mit Programm für vertikale ZellVerbindung) mit BspCodes, deren LinkAdressen ich allerdings nicht gemerkt habe, weil zumindest der vertikale nicht von mir gepostet wurde und deshalb die ursprüngl vorhandene Erläuterung weitgehend fehlt. Falls an letzterem Beitrag ebenfalls Interesse deinerseits besteht (nach deiner BspMappe sieht es für mich aber nicht danach aus, dass das zur Anwendung kommen könnte), kann ich dir hier die WebAdresse des über WebArchives WayBackMachine erreichbaren OriginalBeitrags mitteilen, denn die Original-WebSite wurde längst gelöscht und das zugehörige Forum eingestellt.
Morhn, Luc :-?

Forumthread: Zellen automatisch verbinden?

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial