[huababua]

Vielen Dank für eure Hilfe.
Hab es mittlerweile geschafft.

zeile_eingabe = ActiveCell.Row
spalte_eingabe = ActiveCell.Column
suche = ActiveCell.Value

Dim C As Range

Set C = Range("A7:A46").Find(suche, LookIn:=xlValues, LookAt:=xlPart)
If C Is Nothing Then
MsgBox "Wert nicht gefunden"
Else
zeile_suche = C.Row
End If

Cells(zeile_suche, 5) = Cells(zeile_eingabe, 6)
Cells(zeile_suche, 6) = Cells(zeile_eingabe, 5)

Dies funktioniert, zwar nicht automatisch, ich muss manuell die Sub ausführen, aber das ist mit Tastenkürzel alles kein Problem.

Habe jetzt aber noch gleich eine andere Frage.
Ich habe in einer Spalte die ID und in einer anderen Spalte eine Gruppe.

Jetzt möchte ich per Zufall für die erste Hälfte der IDs die zweite Hälfte der IDs zuordnen, aber immer nur, wenn sie nicht in der Gleichen Gruppe sind.
Ist dies möglich?