ich hatte hier zwar den Beitrag schon reingestellt, aber irgendwie taucht er nicht im Forum mehr auf. Daher stelle ich ihn nochmals rein. Falls er doch drin steht, und ich ihn nur übersehen habe, entschuldige ich mich hier schon mal für das Doppelposting! Also dann mal los:
Ich habe hier eine Personenliste, wobei jeder Person eine Firma zugeordnet ist. Es ist auch so, dass mehrere Personen in dieser Liste einer Firma angehören.
Nun möchte ich gerne per Makro, diese Liste nach Firmen zusammenfassen. D.h. in der Liste die dabei rauskommen soll, steht in einer Zelle die Firma und in der selben Zeile eine Zelle weiter stehen nun alle Personen die zu dieser Firma gehören.
Und zwar in diesem Muster: Mustermann, Max; Bolika, Anna; Nachname, Vorname; ....
Dafür habe ich folgendes Makro geschrieben:
Sub test2()
Dim menge, zeile1, zeile2 As Long
Dim ag, namen As String
menge = 1
zeile1 = 1
zeile2 = 1
Do
If Worksheets("Generator").Cells(menge, 1).Value "" Then
menge = menge + 1
End If
Loop Until Worksheets("Generator").Cells(menge, 1).Value = ""
Do
ag = Worksheets("Generator").Cells(zeile1, 19).Value
Do
Select Case Worksheets("Test").Cells(zeile2, 3)
Case ag: namen = Worksheets("test").Cells(zeile2, 1).Value
namen = namen & "; " & Worksheets("Generator").Cells(zeile1, 21). _
Value
Worksheets("test").Cells(zeile2, 1).Value = namen
Case "": Worksheets("test").Cells(zeile2, 1).Value = Worksheets("Generator"). _
_
_
Cells(zeile1, 21).Value
Worksheets("test").Cells(zeile2, 2).Value = Worksheets("Generator"). _
_
_
Cells(zeile1, 18).Value
Worksheets("test").Cells(zeile2, 3).Value = ag
Worksheets("test").Cells(zeile2, 8).Value = "Unternehmen HH Modell _
_
_
2008; Unternehmen ALLGEMEIN"
Worksheets("test").Cells(zeile2, 10).Value = Worksheets("Generator") _
_
_
.Cells(zeile1, 23).Value
Case Else: zeile2 = zeile2 + 1
End Select
Loop Until Worksheets("Test").Cells(zeile2, 3) = ag Or Worksheets("Test").Cells(zeile2, _
_
_
3) = ""
zeile1 = zeile1 + 1
Loop Until zeile1 > menge
End Sub
Wenn ich nun dieses Makro ausführere erstellt er auch eine Liste, nur ist diese Liste fehlerhaft. Folgende Fehler treten auf:
1. Es werden zwar die Personen den Firmen wie gewünscht zu geordnet, aber nicht alle. Es taucht manchmal die selbe Firma nochmals auf nur mit anderen Personen.
2. Es fehlen ganze Firmen (plus Personen dazu).
3. Bei den zusammen gefassten Einträgen, stehen zwar die Personen drin, aber es fehlt dann immer eine Persom (die erste die hätte eingetragen werden müssen). Die Perso taucht dann auch nicht mehr im ganzen Datensatz auf.
Hat jemand vielleicht 'ne Ahung was da schief läuft. Mir ist bewußt das dieses jetzt alles vielleicht etwas kompliziert rüber kommt, aber wer 'ne Idee hat, kann sie gerne an mich weitergeben. Ich würde mich sehr darüber freuen!
MfG
Gordon