kann man die Spalte die den MAX Wert enthält in ein neues Arbeitsblatt kopieren.
Danke für die Hilfe
Gruß
Konrad
Sub Copy_max()
Dim c As Range
Dim m As Double
m = Application.Max(Cells)
Set c = Cells.Find(m)
Columns(c.Column).Copy Tabelle2.Columns(1)
End Sub