ich hatte schonmal gepostet und mir ist von Karl Doppler geholfen worden.
Hier das Macro welches er mir geschickt hatte:
Public Sub Auswerten()
Dim lngRow As Long, lngRowDest As Long
Dim intCounter As Integer, intCopyCount As Integer
Dim varKrit As Variant, varFind As Variant
Application.ScreenUpdating = False
varKrit = Worksheets("Startseite").Range("A70").Value
If varKrit = "" Then Exit Sub
With Worksheets("Simpati-Daten").Range("D:D")
Set varFind = .Find(What:=varKrit, After:=Range("D1"), _
LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious, _
MatchCase:=True)
If Not varFind Is Nothing Then
intCounter = 1
lngRow = varFind.Row
With Worksheets("Auswert").Range("D:D")
lngRowDest = .Range("D65536").End(xlUp).Row - 1
End With
Do
If Cells(lngRow - 5 * intCounter, varFind.Column).Value = varFind Then
intCopyCount = intCopyCount + 1
Rows(lngRow - 5 * intCounter).Copy _
Destination:=Worksheets("Auswert").Range("A" & _
lngRowDest + 1 + intCopyCount)
End If
intCounter = intCounter + 1
If intCopyCount = 5 Then Exit Do
Loop Until lngRow - 5 * intCounter < 1
Else: MsgBox "Sollwert 1 """ & varKrit & """ wurde nicht gefunden"
End If
End With
Application.ScreenUpdating = True
Call Auswerten_1
End Sub
Anforderung war den letzten Wert "X" in der Spalte D zufinden und von dort 5Zeilen im Abstand von je 5Zeilen zu kopieren.
Wie gesagt das ging ja auch super nun habe ich aber ein Problem
die Anforderung hat sich wie folgt geändert :
Es sollen nun 2 werte in den Spalten D:E in der gleichen Zeile gefunden werden und dann wie oben kopiert werden.
Ich habe schon mehrere Sachen ausprobiert komme aber nie zum Ergebnis.
Wer Kann mir helfen????