Markierte Zellen & Ergebnisse anzeigen

[PetrolMaxxe]

Hallo,

du brauchst beide Ranges (selektierte Bereiche), da je nach Spalte des Paares das Offset sich ändert.
Bau es einfach so, wie ich es die aufgezeigt habe und es funktioniert so wie von dir erfragt.

Gruß Uwe

[Solevita]

Hallo Uwe,

danke für deine Hilfe und Geduld. Jetzt hab ich es hinbekommen. Finaler Code:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("rng_1")) Is Nothing Then
        Rows(2).Interior.Color = xlNone
        Columns(1).Interior.Color = xlNone
        Cells(2, Target.Column).Interior.Color = vbYellow
        Cells(Target.Row, 1).Interior.Color = vbYellow
    End If
    If Not Intersect(Target, Range("rng_2")) Is Nothing Then
        Rows(2).Interior.Color = xlNone
        Columns(1).Interior.Color = xlNone
        Cells(2, Target.Column - 1).Interior.Color = vbYellow
        Cells(Target.Row, 1).Interior.Color = vbYellow
    End If
End Sub

Range 1:

Code:

=Tabelle1!$B$3:$B$20;Tabelle1!$D$3:$D$20;Tabelle1!$F$3:$F$20;Tabelle1!$H$3:$H$20;Tabelle1!$J$3:$J$20;Tabelle1!$L$3:$L$20;Tabelle1!$N$3:$N$20;Tabelle1!$P$3:$P$20;Tabelle1!$R$3:$R$20;Tabelle1!$T$3:$T$20

Range 2:

Code:

=Tabelle1!$C$3:$C$20;Tabelle1!$E$3:$E$20;Tabelle1!$G$3:$G$20;Tabelle1!$I$3:$I$20;Tabelle1!$K$3:$K$20;Tabelle1!$M$3:$M$20;Tabelle1!$O$3:$O$20;Tabelle1!$Q$3:$Q$20;Tabelle1!$S$3:$S$20;Tabelle1!$U$3:$U$20

[PetrolMaxxe]

Hallo,

und du hast dabei was gelernt. Viel Spaß beim weiteren Exceln.

Gruß Uwe

[Solevita]

Ja, habe ich, danke.

Nun noch zur zweiten Frage. Dazu habe ich nochmal ein Bild einer einfacheren Tabelle beigefügt.

Ich möchte bei "Ergebnis" (Zelle H2) eine Zahl eintragen (im Beispiel die 90) und Excel soll mir alle passenden Gleichungen der Tabelle als Antwort darunter ausgeben.
40+50 (die Werte aus C1+A6)
50+40 (die Werte aus D1+A5)
60+30 (die Werte aus E1+A4)
usw.





Schafft man das mit der INDEX und MATCH Funktion oder mit der TEXTJOIN-Funktion oder ganz anders? Wäre für einen Ansatz sehr Dankbar.

[PetrolMaxxe]

kann man mit VBA gut lösen. Mit Formeln und Office 2019 wohl nur sehr aufwendig lösbar.

Gruß Uwe

[PetrolMaxxe]

Trage mal in die letzte Zeile
Set objDic = Nothing
ein. Hatte ich vergessen.

Gruß Uwe

[Solevita]

Leider überschreitet dies meinen Horizont. Ich habe jetzt 2 Tag lang versucht ein Ergebnis zu erzielen, leider ohne Erfolg. Ich bin jetzt so weit, zu sagen ich gebe jeder Zahleneingabe das Ergebnis vor und möchte das Excel mir diese nur anzeigt. Aber auch das scheine ich nicht hinzubekommen. Hinzu kommt, dass das Worksheet bald seine Grenzen erreicht hat und ich nicht weiß ob und wie ich es erweitern kann oder auf ein "neue Seite" übergehen kann. Die Befehle sind mittlerweile schon sehr viele geworden.

[PetrolMaxxe]

Hallo,
 
naja es ist eigentlich nicht wirklich kompliziert. 
Es wird in einer ersten 2D Schleife ermittelt wie viele Zellen (6x6=36) in ein Array eingelesen werden müssen.
An Hand des Wertes wird das Array dimensioniert.
In der 2. 2D Schleife wird der Name der Zellen und dessen Werte in das passend dimensionierte Array eingelesen.
In der letzten 2D Schleife wird jede Zellkombination des Arrays auf das vorgegebene Ergebnis von 90 geprüft.
Logischerweise ergeben sich mehrere Treffer einer Rechenkombination.
Damit jede Kombination nur einmal ausgegeben wird nutzt man die Funktionalität des Key eines Dictionarys (jedes Key ist einmalig).
Taucht jetzt 30+60 logischerweise 2-mal auf, wird der entsprechende Key einfach überschrieben.
Was du als Vorgabe (Ausgabeziel) angegeben hast war natürlich unvollständig.
 
Gruß Uwe

[Solevita]

Hallo Uwe,

bei deiner Beispieltabelle funktioniert das ganze nicht richtig. Gibt man z.B. "70" ein, kommen keine Ergebnisse obwohl es 4 verschiedene geben müsste. Gibt man "90" ein, werden nur 2 von 4 Ergebnissen angezeigt. Ich finde den Fehler im Code dazu nicht.

[PetrolMaxxe]

Schau mal ich habe da 70 eingetragen.

  schrauben-teller.xlsm (Größe: 27,05 KB / Downloads: 3)
Alle möglichen Kombinationen die 70 als Summe haben, werden ausgegeben.
Gruß Uwe