Thema Datum  Von Nutzer Rating
Antwort
Rot 2 Werte in einer Spalte suchen und in anderes Sheet kopieren
01.07.2021 14:21:44 Bernd
Solved

Ansicht des Beitrags:
Von:
Bernd
Datum:
01.07.2021 14:21:44
Views:
70
Rating: Antwort:
 Nein
Thema:
2 Werte in einer Spalte suchen und in anderes Sheet kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot 2 Werte in einer Spalte suchen und in anderes Sheet kopieren
01.07.2021 14:21:44 Bernd
Solved