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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen