ich muss Daten aus Spalte A in Spalte C in bestimmter Form zusammenfassen.
Leider hab ich keine Ahnung von VBA. Hab mal ein Beispiel hochgeladen.
Weitere Erklärung in der Datei.
https://www.herber.de/bbs/user/30030.xls
Grüße Achim
Option Explicit
Sub trans_spezial2()
Const TR As String = "|" 'Trennzeichen
Const BR As String = """ + _" 'Umbruch
Dim zeiC As Long, n As Long, nn As Byte, zei As Long
Dim Stepp As Integer, Satz As String
Stepp = 6
zei = Range("A65536").End(xlUp).Row
While zei / Stepp > 30
Stepp = Stepp + 1
Wend
For n = 1 To Int(zei / Stepp)
Satz = Chr(34)
For nn = 0 To Stepp - 1
Satz = Satz & Cells((n - 1) * Stepp + 1 + nn, 1) & TR
Next nn
Satz = Satz & BR
zeiC = zeiC + 1
Cells(zeiC, 3) = Satz
Next n
Satz = Chr(34)
For nn = (n - 1) * Stepp To zei
Satz = Satz & Cells(nn, 1) & TR
Next nn
Satz = Satz & BR
If Len(Satz) > 4 Then
zeiC = zeiC + 1
Cells(zeiC, 3) = Satz
End If
Cells(zeiC, 3) = Replace(Cells(zeiC, 3), BR, Chr(34))
End Sub
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.