AW: Maximalwerte mit 2 Filter
05.03.2019 12:25:21
Peter
Guten Tag,
ich habe mal weiter an meinem VBA Code geschrieben und würde mich über Feedback freuen.
Die For schleife weist noch Probleme auf und optimal geschrieben ist es sicherlich nicht aber da fehlt mir die Expertise.
Sub Maximalwerte()
Dim longZ?hler1 As Long
Dim longZ?hler2 As Long
Dim longZ?hler3 As Long
Dim longfor As Long
Dim Sortierspalte1 As String
Dim Bereich1 As String
longZ?hler1 = 2
longZ?hler2 = 2
longZ?hler3 = 2
Do While IsEmpty(Cells(longZ?hler1, 6)) = False
If Cells(longZ?hler1, 8) = "Nicht-HLZ" Then
Cells(longZ?hler2, 9).Value = Cells(longZ?hler1, 6).Value
longZ?hler1 = longZ?hler1 + 1
longZ?hler2 = longZ?hler2 + 1
End If
If Cells(longZ?hler1, 8) = "HLZ" Then
Cells(longZ?hler3, 10).Value = Cells(longZ?hler1, 6).Value
longZ?hler1 = longZ?hler1 + 1
longZ?hler3 = longZ?hler3 + 1
End If
Loop
Bereich1 = "I1:I35041"
Sortierspalte1 = "I"
Bereich2 = "J1:J35041"
Sortierspalte2 = "J"
ActiveSheet.Range(Bereich1).Sort _
Key1:=Range(Sortierspalte1 & "1"), Order1:=xlDescending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
ActiveSheet.Range(Bereich2).Sort _
Key1:=Range(Sortierspalte2 & "1"), Order1:=xlDescending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
For longfor = 101 To 201
Cells(longfor, 9).Value = Cells(longfor, 10).Value
Next
Range("J2:J35041").ClearContents
Range("I202:I35041").ClearContents
End Sub