Mehrzeiligen Datensatz in eine Zeile umkopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

http://www.excel-center.de/forum/read.php?f=1&i=57796&t=57796
Der Begriff Crossposting bedeutet, dass die gleiche Frage in mehreren Foren gleichzeitig gestellt wird.
Es braucht uns niemand beweisen, dass er / sie das Copy & Paste beherrscht. ;-)
Die meisten Forenbetreiber und auch die Helfer fassen dies als Nichtanerkennung ihres Fachwissens und Könnens auf und reagieren dementsprechend. In einem Forum erhalten sie eine Antwort, aber eine Stunde später bemüht sich jemand in einem anderen Forum um ihre Lösung - allerdings für den Papierkorb. Dadurch wird Zeit, die für andere Fragen notwendig ist, gebunden. Oder hätten Sie in den anderen gepostet, dass sie inzwischen eine Antwort haben?
Die meisten Helfer sind in mehreren Foren und Newsgroups unterwegs und werden dementsprechend die meisten Crosspostings entdecken. Die Reaktionen darauf sind sehr unterschiedlich. Manche, so auch ich, lassen Crosspostings einfach links liegen. Andere hingegen werden auch in ihrer Wortwahl sehr deutlich.
Forumseinträge wegen des Crosspostings sind nicht als Angriff auf Ihre Person zu verstehen, sondern sollen Ihnen den Hinweis geben, was Sie falsch gemacht haben. Jede Forumsfrage ohne Crossposting ist uns willkommen und wird auch von einem von uns beantwortet werden, falls wir die Antwort hierzu wissen und Zeit haben. Falls nach einer geraumen Zeit keine Antwort eingegangen ist, steht es Ihnen natürlich offen nach anderen Informationsquellen Ausschau zu halten.

Hallo
probier mal das:

Option Explicit
Sub Compact_Data()
Dim i As Integer, n As Integer
Dim Cr As Integer, endC As Integer
Dim tCr As Integer
Dim tmpId As Integer, tmpStr As String
Dim qWks As Worksheet, tarWks As Worksheet
'Tabelle wo die Daten stehen
Set qWks = Worksheets("Tabelle1")
'Neue Tabelle erstellen für Datenausgabe
Set tarWks = Worksheets.Add
'Letzte Zeile definieren in Datenquelle
Cr = qWks.Cells(65536, 1).End(xlUp).Row
tmpId = 0
tCr = 1
tmpStr = ""
'Daten einlesen
For i = 1 To Cr + 1
    If qWks.Cells(i, 1) = tmpId Then
        For n = 2 To qWks.Cells(i, 255).End(xlToLeft).Column
            If qWks.Cells(i, n) > 0 Then
                tmpStr = tmpStr & qWks.Cells(i, n) & " "
            End If
        Next n
    Else
        If qWks.Cells(i, 1) = "" Then
            tarWks.Cells(tCr, 1) = tmpStr
            Exit For
        End If
        tarWks.Cells(tCr, 1) = tmpStr
        tCr = tCr + 1
        tmpId = 0
        tmpStr = ""
        tmpId = qWks.Cells(i, 1)
        tmpStr = tmpStr & tmpId & " "
        For n = 2 To qWks.Cells(i, 255).End(xlToLeft).Column
            If qWks.Cells(i, n) > 0 Then
                tmpStr = tmpStr & qWks.Cells(i, n) & " "
            End If
        Next n
    End If
Next i
tarWks.Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Der letzte Datensatz wird allerdings doppelt geschrieben, ich weiss noch nicht warum.
Aber den kannst du einfach löschen ;-)
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Mehrzeiligen Datensatz in eine Zeile umkopieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread