Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten zusammenfassen

Daten zusammenfassen
14.01.2006 14:31:30
Achim
Hallo Leute,
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten zusammenfassen
14.01.2006 17:06:34
Reinhard
Hi 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.

Anzeige
AW: Daten zusammenfassen
14.01.2006 17:27:45
Achim
Hi,
danke, nachdem ich nn As Long deklariert habe, laüft es auch bei größeren Datenmengen
in Spalte A.
mfg Achim
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige