PDA

Vollständige Version anzeigen : Zelleninhalte anhand v. Key zusammensetzen


Leslie
22.08.2001, 12:11
Hallo, ich habe folgende Tabelle:

Key----Text

aa1----Ein
aa1----rotes
aa1----Auto
bb2----Das
bb2----blaue Buch

Die Texte die zu einem Key gehoeren mochte ich
in einer Zelle zusammenfuegen.

Das Ergebnis sollte so aussehen:

Key----Text-----------Ziel
------------------------------------
aa1----Ein------------Ein rotes Auto
aa1----rotes------------------------
aa1----Auto-------------------------
bb2----Das------------Das blaue Buch
bb2----blaue Buch-------------------

Wer kann mir einen Tip geben?
Vielen Dank!

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten...</font>

CWM
29.08.2001, 20:16
Hi!

Mit diesem Code sollte es funktionieren:

Sub Test()
Dim Counter As Integer, FirstRow As Integer
Dim CurrentKey As String, CurrentRow As Integer, CurrentText As String
Dim SpalteKey As Integer, SpalteText As Integer, SpalteErg As Integer
SpalteKey = 1
SpalteText = 2
SpalteErg = 3
Counter = 1
FirstRow = 1
CurrentRow = 1
CurrentKey = ActiveSheet.Cells(Counter, SpalteKey).Value
Do
If ActiveSheet.Cells(Counter, SpalteKey).Value = CurrentKey Then
CurrentText = CurrentText & " " & ActiveSheet.Cells(Counter, SpalteText).Value
Else
ActiveSheet.Cells(CurrentRow, SpalteErg).Value = Trim(CurrentText)
CurrentText = ActiveSheet.Cells(Counter, SpalteText).Value
CurrentKey = ActiveSheet.Cells(Counter, SpalteKey).Value
CurrentRow = Counter
End If
Counter = Counter + 1
Loop Until CurrentKey = ""
End Sub

Vorraussetzung:
Die Daten sind nach der Spalte Key sortiert.

Christoph