Collapse column

Autor Thema: Zellen mit X durch Überschrift ersetzen und in einer Zelle zusammenfassen  (Gelesen 507 mal)

Offline Sensenbraut

  • Newbie
  • *
  • Beiträge: 1
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2016
Zellen mit X durch Überschrift ersetzen und in einer Zelle zusammenfassen
« am: September 10, 2019, 12:34:19 Nachmittag »
Einen wunderschönen guten Mittag an alle Smile
Ich bin in VBA leider völlig ungeübt. Habe es mir vor ein paar Monaten mal aus Interesse angeguckt, es aber nie angewendet. Mein Wissen geht also gen Null. Doch jetzt könnte ich das Wissen wirklich gut gebrauchen, da ich sehr, sehr viele Excel-Dokumente mit diesem Aufbau habe und sie umwandeln muss...
Zu meinem Problem: Ich habe in der ersten Spalte Namen und den nachfolgenden nur die Bezeichnung der Eigenschaften als Überschrift und darunter "X"e, wenn es zutrifft. Nun brauche ich den Text der Überschriften anstelle der "X"e. Das Problem kann ich notfalls über die "Wenn, dann"-Funktion lösen. Schwieriger wird es allerdings mit dem zweiten Schritt. Denn ich möchte die Texte für ein Unternehmen in einer Zelle haben. Die Textverketten-Funktion geht leider in meiner Version nicht. Ich kann zwar die Textketten-Funkton verwenden, aber da ich Zeilenumbrüche zwischen den Informationen haben möchte, habe ich lauter doppelte Zeilenumbrüche, die ich nur händisch weg bekomme und dafür sind es vieeeeel zu viele Datensätze. Das würde dann so aussehen:
Info A
Info B
Unnötiger Textumbruch
Unnötiger Textumbruch
Info C
usw.
Ich packe mal noch einen Beispiel-Screenshot hinein, damit ihr versteht was ich meine.

Da ich leider wirklich keine Ahnung von VBA habe, würde mir ein fertiger Code sehr helfen und vielleicht noch mit einer Erklärung welche Stellen ich für die anderen Excel-Tabellen ändern muss.
 
Vielen vielen lieben Dank schonmal an alle


Die Links zur gleichen Frage in anderen Foren:
http://www.vba-forum.de/forum/View.aspx?ziel=53497
https://forum.excel-inside.de/thread-2698-post-3029.html#pid3029
« Letzte Änderung: September 10, 2019, 13:01:30 Nachmittag von Sensenbraut »

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.