ich arbeite gerade an einer Simulation. Dafür muss ich viele Zufallszahlen generieren. Deswegen habe ich eine Schleife programmiert und einen Filter eingebaut.
Wenn ich also die Schleife starte, werden Zufallszahlen generiert und der Filter filtert entsprechend meinen Kriterien. Soweit so gut.
Nur wird bei der Filterung jedes mal die Überschrift auch übertragen und genau da liegt das Problem. Kann man das irgenwie rational lösen, da ich die Schleife sehr oft wiederholen muss.
Ich habe auch ein Beispiel hinzugefügt um mein Problem zu verdeutlichen. Im Tabellenblatt "Ergebnisse" auf den Button klicken und zB 10 mal ausführen,
dann erkennt ihr mein Problem.
https://www.herber.de/bbs/user/119611.xlsm
Hier der Code
Sub Filter_Simulation()
Dim lngLastRowSi As Long
Dim lngLastRowAw As Long
Dim lngLastRowEg As Long
Dim i As Integer
Dim i2 As Variant
lngLastRowSi = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowAw = Sheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowEg = Sheets("Ergebnisse").Cells(Rows.Count, 1).End(xlUp).Row
i2 = InputBox("Wie oft soll kopiert werden?")
If i2 = 0 Or i2 = " " Then Exit Sub
For i = 1 To i2
Application.Calculate
lngLastRowEg = Sheets("Ergebnisse").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle1").Range("A1:B" & lngLastRowSi).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Auswertung").Range("A1:B" & lngLastRowAw), CopyToRange:=Sheets(" _
Ergebnisse").Range("A" & lngLastRowEg + 1), _
Unique:=False
'Sheets("Simulation").Range("DL1:EI" & lngLastRowSi).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Auswertung").Range("A1:X" & lngLastRowAw), CopyToRange:=Sheets(" _
Ergebnisse").Range("A" & lngLastRowEg + 1), _
Unique:=False
Next i
Range("B1").Select
End Sub
Besten Dank für die Hilfe