Kombinationen ausrechnen

Zwecks Verpaarungsplaanung (Zucht) habe ich eine Exceltabelle erstellt
bei der alle Möglichen Variationen eines Gencodes dargestellt werden.

Nun kann es aber sein dass zb. bei 64 Kombinationen die gleichen mehrmals vorkommen.

Kann ich aus einem Zellenblock die Kombinationen rausfiltern die verschieden sind?

Es sieht in etwa so aus (die einzelnen Buchstabenpaare sind jeweils in eine einzelne Zelle übernommen worden)

aa bb Dd Pp
aa bb Dd Pp
Aa bb Dd Pp
Aa Bb Dd Pp

In diesem Beispiel wäre aa bb Dd Pp doppelt. Ich möchte also erreichen dass ich nacher folgende Liste habe:

aa bb Dd Pp
Aa bb Dd Pp
Aa Bb Dd Pp

Noch eine weitere frage:

ist es möglich Werte von mehreren Zellen mit einer Formel in eine Zelle zu kriegen?
Anhand des Beispieles habe ich ja die Buchstabenpaare in 4 Zellen
also aa bb Dd Pp, was nicht anders ging wegen der erstellung der verschiedenen möglichen Kombinationen.

 

Ich bin halt ein Excelfreak :-)
Die Tabelle hatte ich eigentlich schnell. Habe sie für bis zu 64 Kombinationen erstellt.

Ein Zuchtprogramm hab ich auch schon, dort kann man auch Verpaarungen planen, nur ist das dort nicht wirklich aussagekräftig weil es nicht alle Farben ausgibt die bei einem Wurf fallen können.

Kennt hier denn jemand zufällig eine Freeware die mögliche Buchstabenkombinationen auswirft?

 

Hi Amidala,

versuche es mit diesem Code

Code:

Sub doppelte_eliminieren()
    Dim raZelle As Range
    Dim strStartadresse As String
    Dim loLetzte As Long
    Dim loZeile As Long
    With ActiveSheet
        loLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
        For loZeile = loLetzte To 5 Step -1
        '   von Peter Haserodt
            Set raZelle = .Columns(1).Find(.Cells(loZeile, 1), .Cells(loLetzte, 1), , xlWhole, , xlNext, True)
        '   *****
            strStartadresse = raZelle.Address
            Do
                Set raZelle = .Columns(1).FindNext(raZelle)
                If raZelle.Address = strStartadresse Then Exit Do
                If .Cells(raZelle.Row, 2).Value = .Cells(loZeile, 2).Value And .Cells(raZelle.Row, 3).Value = .Cells(loZeile, 3).Value And .Cells(raZelle.Row, 4).Value = .Cells(loZeile, 4).Value And raZelle.Row <> loZeile Then
                    .Range(.Cells(raZelle.Row, 1), .Cells(raZelle.Row, 4)).ClearContents
                End If
                If raZelle.Row = loLetzte Then Exit Do
            Loop While Not raZelle Is Nothing
        Next loZeile
    End With
    Set raZelle = Nothing
End Sub

Werte stehen in Spalte A bis D von Zeile 5 an.

Um Werte aus mehreren Zellen zu kombinieren kannst du folgende prinzipielle Formel verwenden

=A5&B5&C5&D5

 

Danke für den Code. ich weiss nur nicht wo ich den hinpacken muss.

 

Hi Amidala,

kopiere ihn in ein allgemeines Modul. Dann kannst du ihn über Extras -> Makro -> Makros starten.

 

Auf die Gefahr mich hier total zu blamieren aber:

Was ist ein allgemeines Modul?

 

Hi Amidala,

mache einen Rechtsklick auf einen Tabellenreite -> Code anzeigen und du gelangst in die VBA-Umgebung. In der Symbolleiste gehst du auf Einfügen -> Modul (nicht Klassenmodul!). In das Codefenster rechts (das obere, falls da 2 sind) kopierst du den Code. Jettz steht er in einem allgemeinen Modul.

Noch was: keine Angst, du blamierst dich ganz gewiss nicht, denn "dumme" Fragen gibt es nicht.

 

Vielen Dank!

ich habs geschafft es reinzukopieren, aber irgendwie funktioniert das nicht.
Es kommt die Meldung Syntaxfehler.

Da auf der Tabelle noch andere Dinge sind ausser der Kombinationsliste von der ich die doppelten raushaben will, sollte ich doch auch irgendwie angeben wo er da die doppelten rausnehmen soll, oder?

Irgendwie raff ich das nicht, seufz

 

Hi Hascheff,

es muss auch nur B bis D verglichen werden, da mittels Find-Next bereits nach Dopplungen in Spalte A gesucht wird. Erst dann, wenn in Spalte A eine Dopplung gefunden wird, wird geprüft, ob auch B bis D übereinstimmen.