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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen