Ich habe eine Tabelle in der in Spalte "J" Zahlen bis 62 stehen.
Mehrere Zahlen kommen auch mehrfach vor.
Mich Interessieren alle Zeilen die eine 31 oder 61 sind.
Die möchte ich in ein anderes Sheet mit der Variablen Ort kopieren.
Aus dem Internet habe ich mir auch etwas zusammengebastelt, das dies erledigen sollte.
Ich habe es erst einmal mit 31 Testen wollen, würde danach die Suche nach 61 laufen lassen.
Ich würde mich aber freuen, wenn esmit beiden Argumenten bei einem Durchlauf erledigt werden könnte.
Aus irgendeinem Grund funktioniert es aber schon mit der 31 nicht, wobei ich auch noch nicht gefunden habe, wie ich es auf die Spalte "J" begrenzen könnte.
With Worksheets(QSheet.Name)
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With Worksheets(QSheet.Name)
Set KopieBereich = .Rows(1)
For SuchZeile = 1 To loLetzte
If .Cells(SuchZeile, 2).Value = 31 Then
Set KopieBereich = Union(KopieBereich, Rows(SuchZeile))
End If
Next SuchZeile
KopieBereich.Copy Destination:=Worksheets(Ort).Range("A1")
End With
es wird bei mir immer nur die erste Zeile kopiert, aber die Range KopieBereich wird bei der Suche nicht gefüllt.
Ich habe zwar im Internet viele Codes gefunden, die aber meist mit MSGBoxes oder anderen Tabellen geht oder so kompliziert geschrieben sind, das ich sie nicht auf meines umschreiben kann.
Ich bitte um Hilfe
|