Hallo Uwe,
hast Du VBA-Erfahrung? Wenn ja, dann weiter zur Sub, wenn nein hier ‚ne Kurzanleitung:
Leg zum Testen eine Kopie Deiner Datei an. Die öffnest Du. Mit Alt + F11 (gleichzeitig) kommst Du in die „Entwicklungsumgebung“.
Links unter Menü- und Symbolleiste ist der Projektexplorer. Hier markierst Du Deine Datei (Linksklick). Mit Einfügen // Modul erzeugst Du den Kontainer für die Subroutine.
Den Text der Subroutine unten kopierst Du rechts in das leere Code-Fenster.
Mit Alt + F11 gehts wieder zurück zu Excel.
Mit Alt + F8 kannst Du Makros ausführen. Evtl. unter Makros in: „Diese Arbeitsmappe“ auswählen. Oben sollte die Routine „MitMerkmal“ zur Auswahl stehen. Die wählst Du aus und Klick auf Ausführen.
Die Texte in der Subroutine nach dem Hochkomma "‘" sind Kommentare, für den Fall dass Du was ändern oder Dich mit VBA beschäftigen möchtest.
Hier die Subroutine
Option Explicit
’ Start Subroutine
Sub MitMerkmal()
’ Variablen
Dim MG As String, MM As String, Test As String
Dim Z As Integer, S As Integer
’ Vorbelegen
Z = 2 ’ Die erste Zeile sei eine Kopzeile
S = 9 ’ Merkmal ab Spalte I
MG = Cells(Z, 3).Value ’ Mitglied aus Spalte C
MM = Cells(Z, 1).Value ’ Merkmal aus Spalte A
’ Start der äusseren Schleife
Do Until MG = „“ ’ Wiederhole bis Zelle leer ist
Cells(Z, S).Value = MM ’ Merkmal eintragen
Z = Z + 1 ’ zur nächsten Zeile
Test = Cells(Z, 3).Value ’ Mitglied einlesen
If Test = „“ Then Exit Sub
’ Start der inneren Schleife
Do Until Test MG ’ solange bis unlgeich
MM = Cells(Z, 1).Value ’ neues Merkmal lesen
Z = Z - 1 ’ Zeile zurück
S = S + 1 ’ dann Spalte weiter
Cells(Z, S).Value = MM ’ neues Merkmal eintragen
Z = Z + 1 ’ in kopierte Zeile
Rows(Z).Delete Shift:=xlUp ’ Zeile löschen
Test = Cells(Z, 3).Value ’ Testmitglied neu belegen
Loop ’ Ende der inneren Schleife
MG = Cells(Z, 3).Value ’ Mitglied und
MM = Cells(Z, 1).Value ’ Merkmal neu belegen
S = 9 ’ zurück in Anfangspalte für Merkmal
Loop ’ Ende der äusseren Schleife
End Sub
Ggf. musst Du Sicherheitseinstellungen ändern, damit Du Makros ausführen kannst. Wenn das Ergebnis gefällt, Spalte A löschen fertig.
MfG MwieMichel