Zeilen durchsuchen und alle Spalten auslesen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 And Target.Row >= 2 And Target.Row 

In der anderen Tabelle stehen 7 Ergebnisse die allerdings durch Summenformel errechnet werden.
Nun war mein erster Ansatz mir die Spalten aller MAXWERTE in die 7 linksliegenden Zellen von TARGET zu schreiben folgender:

Sub MAXSEARCH()
Dim SBER
Zählen = 1
Do While Zählen 

Das funktioniert aber nicht weil eben Formeln darin stehen und keine Werte.
Ich kann schlecht eine Datei hochladen, hoffe ihr habt Verständnis dafür und könnt nachvollziehen was ich machen möchte.
Liebe Grüsse und Danke im Vorraus
Lothar