geschweifte Klammer automatisch verlängern

Forumthread: geschweifte Klammer automatisch verlängern

23.01.2026 15:32:50

Mycroft

Hallo ihr Profis,

ist es möglich eine sich schließende geschweifte Klammer dynamisch zu verlängern bzw. zu verkürzen, wenn mehr Text in Zeilen hinzugefügt wird?
Leider geht dies nicht per Excel Formel. Eventuell per VBA?

Anbei die Datei

in Spalte d ist die Klammer, wenn jetzt wie im Beispiel in Spalte K die Zeilen in Spalte D mehr werden soll sich die Klammer erweitern, bzw sollte es weniger Zeilen sein in Spalte D sich halt verkürzen.
Hatte schon paar vba Codes dazu im internet gefunden, konnte es aber nicht umsetzen.
Hoffe hier kann mir geholfen werden

https://www.herber.de/bbs/user/180071.xlsx

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: geschweifte Klammer automatisch verlängern

23.01.2026 16:09:06

daniel
AW: geschweifte Klammer automatisch verlängern

27.01.2026 09:31:31

Mycroft

AW: geschweifte Klammer automatisch verlängern

23.01.2026 16:09:06

daniel

Hi

wie kommt den der zusätzliche Text in die Datei?
du hast bei dir in Spalte A eine Mischung aus manueller Eingabe und Formeln, zumindest in Spalte A.

prinzipell sollte die Anpassung so funktionieren:

ActiveSheet.Shapes(...).Top = obereZelle.Top + obereZelle.Height / 2

ActiveSheet.Shapes(...).Height = untereZelle.Top - obereZelle.Top

das Problem ist, wie man die untere Zelle bestimmt und das hängt davon ab, wie bei dir die Daten hinzukommen.

wenn du manuell befüllst, reicht ein Sprung:

set untereZelle = Cells(rows.count, 1).end(xlup)

wenn du Formeln hast und du die letzte Zelle haben willst, die einen Wert liefert (kein ""), dann müsstest du .Find verwenden, um die letzte Zelle zu finden, die mindestens ein Zeichen anzeigt:

set untereZelle = Columns(1).Find(what:="?*", lookin:=xlvalues, lookat:=xlwhole, searchdirection:=xlprevious)

du solltest auch noch die Eigenschaft der Klammer auf "von Zellposition und -größe abhängig setzen. Dann bekommst du eine automatische anpassung, wenn du Zeilenhöhen änderst, Zeilen einfügst oder löschst

Gruß Daniel

AW: geschweifte Klammer automatisch verlängern

27.01.2026 09:31:31

Mycroft

Danke Daniel,

werde es mal versuchen

geschweifte Klammer automatisch verlängern

Forumthread: geschweifte Klammer automatisch verlängern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread