hallo alle zusemmen,
Ich bräuchte eure hilfe. Ich habe eine Liste von Zahlen in einem Worksheet und möchte die 50 grössten Werte ermitteln. Jedoch will ich nicht nur die Werte haben sondern die dazugehörige Row, diese dann kopieren und in ein anderes Sheet kopieren. Bis hierhin bin ich gekommen und ich denke es ist einiges falsch in meinem code. Ich kann einfach nicht von dem Wert der bei .Large ermittelt wird die dazugehörige Row ermitteln um diese zu kopieren.
Option Explicit
Sub MaxValues()
Dim Wks1 As Worksheet
Dim Wks2 As Worksheet
Dim R As Range
Dim Max As Double
Dim MaxReihe As Double
Dim n As Double
Dim s As Double
Dim Count As Double
ThisWorkbook.Worksheets.Add
Set Wks1 = ActiveWorkbook.Sheets(2)
Set Wks2 = ActiveWorkbook.Sheets(1)
MaxReihe = 50
Application.ScreenUpdating = False
With Wks1
For n = 1 To MaxReihe
Wks1.Activate
Max = Application.WorksheetFunction.Large(Wks1.Range("D2:D" & Cells(Rows.Count, 1).End(xlUp)), n)
Count = WorksheetFunction.Match(Max)
Wks1.Rows(Count, 4) = Wks1.Activate
Wks1.EntireRow.Copy
Wks2.Activate
With Selection
Wks2.Paste
End With
ActiveCell.Offset(1, 0).Select
Next n
End With
Bitte Bitte hílft jemand ich verzweifle nämlich und habe langsam den Verdacht dass ich den falschen Ansatz wähle.
Dank Bart