|
Ich hatte dei Frage bereits gestern gestellt, nehme aber an das das für viele die die Überschrift gelesen haben zu Langweilig war.
Ich denke Ihr Leset die Überschrift und denken "Das ist schon 100 mal beantwortet."
Ich habe aber tatsächlich außer ein paar sehr aufgeblasenen und komplizierten Codes mit denen ich nicht viel anfangen konnte nichts gefunden.
Sollte ich gegen etwas verstoßen, bitte ich um Entschuldigung. Ich wollte es jetzt aber nicht in ein anderes Forum stellen, sondern es nochmal hier versuchen.
Mein Problem:
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.
Die Variable Ort habe ich vorher im Code definiert.
Dim QName As Workbook
Dim QSheet As Worksheet
'Set QPath = ActiveWorkbook.Path
Set QName = ActiveWorkbook 'Erstellt sich aus aktiver Quelldatei
Set QSheet = ActiveSheet 'Erstellt sich aus aktiven Quellsheet
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
|