Wie erste Spalte Mergen

[loopios7]

Hey,
Ich versuche die Zellen in einer Tabelle so zu formatieren dass alle Kommentare in einem Feld sind, damit ich diese Daten dann in eine MS SQL Datenbank importieren kann, jedoch muss ich dafür etwas haben welches dies automatisch macht da es einige tausend Zeilen sind.
   
Danke für eure Hilfe!

[MisterBurns]

Also zumindest ich verstehe genau gar nicht, was die große verbundene Zelle mit dem großen Pfeil aussagen soll.
Anstatt mühsam ein Bild einzustellen, wäre eine Beispielmappe wesentlich hilfreicher.
Ebenfalls hilfreicher wäre eine etwas ausführlichere Erklärung.

EDIT: Nach erneutem Drübernachdenken habe ich zumindest verstanden, was du haben möchtest (und dass der Pfeil nur verwirrend ist)
Dennoch bleibt es dabei -> Beispieldatei, weil Nachbauen von vorhandenen Dateien lehne ich ab.

[LCohen]

Ich vermute, dass es beim Ergebnis nicht um Zellen-Verbinden, sondern um Verketten geht.

TE wollte die Verkettung optisch nur über Mergen zeigen. Denkbar ist allerdings, dass die Ausgangsdaten tatsächlich gemergt sind. Dann wird es nerviger.

[Kuwer]

Hallo,

teste mal damit:

Sub aaa()

 Dim rngB As Range, rngZ As Range

 Dim varC As Variant

 Set rngB = Range("A1").CurrentRegion

 Application.ScreenUpdating = False

 For Each rngZ In rngB.Columns(1).Cells

   If rngZ.MergeCells Then

     With Application.Intersect(rngZ.MergeArea.EntireRow, rngB.Columns(3))

       varC = Join(Application.Transpose(.Value), vbLf)

       .Value = ""

       .Cells(1).Value = varC

     End With

     Application.Intersect(rngZ.MergeArea.EntireRow, rngB.Range("A:B")).UnMerge

   End If

 Next rngZ

 If Application.CountBlank(rngB.Columns(1)) Then

   rngB.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 End If

 Application.ScreenUpdating = True

End Sub

Gruß Uwe

[loopios7]

Also zumindest ich verstehe genau gar nicht, was die große verbundene Zelle mit dem großen Pfeil aussagen soll.
Anstatt mühsam ein Bild einzustellen, wäre eine Beispielmappe wesentlich hilfreicher.
Ebenfalls hilfreicher wäre eine etwas ausführlichere Erklärung.

EDIT: Nach erneutem Drübernachdenken habe ich zumindest verstanden, was du haben möchtest (und dass der Pfeil nur verwirrend ist)
Dennoch bleibt es dabei -> Beispieldatei, weil Nachbauen von vorhandenen Dateien lehne ich ab.

Das war nur ein Beispiel um zu zeigen was Zuerst sein soll und dann am Ende, jedoch bleiben beim normalen Mergen ja nur die Daten der linkeren-oberen Zelle.
Am Ende soll halt alles nur in einer Reihe sein (Kommentar am Ende aber noch auf mehreren Zeilen einfach eine Zelle) damit Ich es in eine Datenbank kopieren kann.
Testdatei kann ich sonst eine erstellen falls du eine möchtest, die Datei auf der ich das Anwenden will kann ich dir jedoch nicht geben.

[loopios7]

Hallo,

teste mal damit:

Sub aaa()

 Dim rngB As Range, rngZ As Range

 Dim varC As Variant

 Set rngB = Range("A1").CurrentRegion

 Application.ScreenUpdating = False

 For Each rngZ In rngB.Columns(1).Cells

   If rngZ.MergeCells Then

     With Application.Intersect(rngZ.MergeArea.EntireRow, rngB.Columns(3))

       varC = Join(Application.Transpose(.Value), vbLf)

       .Value = ""

       .Cells(1).Value = varC

     End With

     Application.Intersect(rngZ.MergeArea.EntireRow, rngB.Range("A:B")).UnMerge

   End If

 Next rngZ

 If Application.CountBlank(rngB.Columns(1)) Then

   rngB.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 End If

 Application.ScreenUpdating = True

End Sub

Gruß Uwe

Danke viel mal, hat geklappt nach dem ich die Range Werte für meine Tabelle angepasst habe!