Zellen automatisch verbinden?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 Set RNG = Range("D2:D8") St = 5 'Start ab Spalte E En = 124 'Ende bei Spalte DT If Not Intersect(RNG, Target) Is Nothing Then 'Reset Range(Cells(Target.Row, St), Cells(Target.Row, En)).UnMerge Anz = Cells(Target.Row, 2) If IsNumeric(Anz) Then 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 Else MsgBox "Fehler in Eingabe" End If End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim RNG As Range Dim St As Long, En As Long Dim Anz As Long, i As Long Application.ScreenUpdating = False Set RNG = Range("AA4:AA78") St = 30 'Start ab Spalte E En = 132 'Ende bei Spalte DT If Not Intersect(RNG, Target) Is Nothing Then 'Reset Anz = Cells(Target.Row, "AA") If IsNumeric(Anz) Then If Anz > 1 And Anz

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim RNG As Range Dim St As Integer, En As Integer, SpL As Integer Dim Anz As Variant, i As Integer 'Bereich, wo dei Eingabe überwacht wird / gleich der Anzahlspalte Set RNG = Range("AA4:AA70") St = 30 'Start ab Spalte AD En = 149 'Ende bei Spalte ES SpL = 27 'Spalte mit Anzahl If Not Intersect(RNG, Target) Is Nothing Then 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 = Cells(Target.Row, SpL) If IsNumeric(Anz) Then 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 Else MsgBox "Fehler in Eingabe" End If With Application .ScreenUpdating = True .DisplayAlerts = True End With End If End Sub

Guten Morgen Uwe,
vielen Dank für deine Unterstützung : )
Was mir auch erst gestern Abend klar geworden ist, dass von vorne rein immer schon 17 Zellen verbunden sein müssen.
Das soll auch der Standartwert sein. Also das immer 17 verbunden sind und sich nur mehr verbinden, wenn eine 1-6 eingetragen wird.
Daher kommen im letzten Block auch die 18. Hab einen gemeinsamen Teiler für die Zahlen 1-7 gebraucht, der keine Komma-Zahlen ergibt, gibt ja leider keine halben Zellen =D Bin also auf 120 gekommen:
1 120 Zellen (1*120 =120 Zellen)
2 60 Zellen (2*60 = 120 Zellen)
3 40 Zellen (3*40 = 120 Zellen)
4 30 Zellen (4*30 = 120 Zellen)
5 24 Zellen (5*24 = 120 Zellen)
6 20 Zellen (6*20 = 120 Zellen)
7 17 Zellen (7*17 = 119 Zellen) Geht leider nicht auf, deshalb kommt da noch eine Zelle dazu. Aber das muss in der VBA nicht berücksichtigt werden.
Wenn beim letzten Block auch nur 17 verbunden werden, ist das völlig i.O =D
https://www.herber.de/bbs/user/148495.xlsm
Falls du mir helfen kannst wäre super =)
Schönen Freitag und Gruß
Gruß Andreas

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim RNG As Range, St As Long, En As Long, Anz As Long Dim i As Long, j As Long, z As Long Set RNG = Range("AA4:AA78") St = 30 En = 132 If Not Intersect(RNG, Target) Is Nothing Then If IsNumeric(Anz) Then Anz = Cells(Target.Row, "AA") If Anz > 0 And Anz

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

…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 :-?

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

191 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen automatisch verbinden?

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

191 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread