Daten zusammenführen

05/03/2008 - 11:53 von Michael Feske | Report spam
Hallo alle zusammen,
ich möchte Daten aus zwei tabellen zusammenführen.
Ich verwende Excel 2003.
In einer Tabelle (1) stehen in Spalte A Vorname in Spalte B derNachname ind
Spalte C eine Gruppenbezeichnung, diese kommt mehrfach vor.
In einer anderen Tabelle (2) stehen in Spalte G wieder die Gruppen. Jetzt
soll in Spalte L die Teilnehmer aus Tabelle (1) getrennt durch Komma
aneinander gefügt werden.

Wer hat Ideen oder Lösungen für mich ?

Gruß
Micha
 

Lesen sie die antworten

#1 Peter Schleif
06/03/2008 - 10:11 | Warnen spam
Michael Feske schrieb am 05.03.2008 11:53:

Wer hat Ideen oder Lösungen für mich ?



Eine VBA-Lösung habe ich unten angefügt. Eine Lösung über Formeln habe
ich erst gar nicht probiert. Du müsstest bitte noch die folgenden
Werte im Code anpassen:

Const erste_zeile1 = 2 'erste Datenzeile in Tabelle1
Const erste_zeile2 = 2 'erste Datenzeile in Tabelle2
Set sh1 = Sheets("Tabelle1")
Set sh2 = Sheets("Tabelle2")

Peter



Sub gruppieren()
Dim zeile1 As Integer
Dim zeile2 As Integer
Dim letzte_zeile1 As Integer
Dim letzte_zeile2 As Integer
Dim sh1 As Worksheet
Dim sh2 As Worksheet

Const erste_zeile1 = 2 'erste Datenzeile Tabelle1
Const erste_zeile2 = 2 'erste Datenzeile Tabelle2

Set sh1 = Sheets("Tabelle1")
Set sh2 = Sheets("Tabelle2")

letzte_zeile1 = sh1.Cells(erste_zeile1, "C").End(xlDown).Row
letzte_zeile2 = sh2.Cells(erste_zeile2, "G").End(xlDown).Row

sh2.Range(sh2.Cells(erste_zeile2, "L"), _
sh2.Cells(letzte_zeile2, "L")).ClearContents

For zeile1 = erste_zeile1 To letzte_zeile1
For zeile2 = erste_zeile2 To letzte_zeile2

If sh1.Cells(zeile1, "C") = sh2.Cells(zeile2, "G") Then
sh2.Cells(zeile2, "L") = sh2.Cells(zeile2, "L") _
& IIf(sh2.Cells(zeile2, "L") = "", "", ",") _
& Trim(sh1.Cells(zeile1, "A") _
& " " & sh1.Cells(zeile1, "B"))
Exit For
End If

Next
Next

End Sub

Ähnliche fragen