VBA: Schrittweise Zusammenfassung von Zellinhalten

Forumthread: VBA: Schrittweise Zusammenfassung von Zellinhalten

26.06.2024 13:26:22

Opodeldok

Hallo zusammen.

Ich möchte gerne die einzelnen Zellinhalte der Spalte H zusammenfassen. Und das mit einem VBA Code.

Die zusammengefassten Zellinhalte sollen folgendermaßen dargestellt werden:
(Zelle1) OR (Zelle2) OR (Zelle3) usw.

Also neben dem jeweiligen Zellinhalt sollen noch die Klammern und das "OR" hinzugefügt werden.

Wenn der Inhalt der nächsten Zelle in der Spalte H die Anzahl der Zeichen der Zusammenfassung auf einen Wert über 256 Zeichen ansteigen lassen würde, soll der Code abbrechen und die bereits zusammengefassten Zellen in der oben gezeigten Form in J1 schreiben.

Die Zusammenfassung soll dann in der nächsten noch nicht zusammengefassten Zelle der Spalte H neu starten und weitergehen bis wieder die maximale Zeichfolge von 256 droht, überschritten zu werden. Und immer so weiter.

Die weiteren Teil-Zusammenfassungen sollen in die nachfolgenden Zellen der Spalte J eingetragen werden. Also J2, J3, J4 usw.

Vermutlich geht das mit dem Textjoin Code. Soweit habe ich das Problem recherchieren können. Alleine habe ich das aber nicht hinbekommen.

Wäre toll, wenn mir da ein netter Mensch helfen würde.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: Schrittweise Zusammenfassung von Zellinhalten

26.06.2024 13:48:47

Charly CNX

Hi
Mal so als Hinweis, in einer Zelle sind 32.767 Zeichen zulässig.
VG Charly

AW: VBA: Schrittweise Zusammenfassung von Zellinhalten

26.06.2024 17:35:58

daniel

Hi
probier mal das:

Sub test()

Dim Ausgabe As Range

Dim Zelle As Range

Dim txt As String

Dim i As Long



Set Ausgabe = Range("J1")

Ausgabe.EntireColumn.ClearContents



For Each Zelle In Range("H:H").SpecialCells(xlCellTypeConstants, 3)

    txt = txt & " OR (" & Zelle.Value & ")"

Next

txt = Mid(txt, 5)



Do Until txt = ""

    i = InStrRev(txt, ")", WorksheetFunction.Min(Len(txt), 256))

    Ausgabe.Value = Left(txt, i)

    txt = Mid(txt, i + 5)

    Set Ausgabe = Ausgabe.Offset(1, 0)

Loop

  End Sub

Gruß Daniel

AW: VBA: Schrittweise Zusammenfassung von Zellinhalten

26.06.2024 21:34:09

Opodeldok

Tausend Dank, Daniel!

Läuft prima. Hätte ich alleine nie hinbekommen!

Gruß
Opodeldok

AW: VBA: Schrittweise Zusammenfassung von Zellinhalten

26.06.2024 13:58:04

Opodeldok

Ich weiß. ;-)

Den Inhalt der zusammengefassten Zelle muss ich im nächsten Schritt in ein Suchfeld in Anki eingeben. Dort scheint es eine entsprechende Begrenzung zu geben, so dass ich mehrere Suchen hintereinander durchführen muss.

Aber vielen Dank für den Hinweis!

Beliebteste Forumthreads (12 Monate)

VBA: Schrittweise Zusammenfassung von Zellinhalten

Forumthread: VBA: Schrittweise Zusammenfassung von Zellinhalten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread