Thema Datum  Von Nutzer Rating
Antwort
Rot 2 Werte in einer Spalte suchen, in anderes Sheet kopieren funktioniert nicht.
02.07.2021 10:22:58 Bernd
Solved
02.07.2021 12:55:08 Bernd
Solved

Ansicht des Beitrags:
Von:
Bernd
Datum:
02.07.2021 10:22:58
Views:
57
Rating: Antwort:
 Nein
Thema:
2 Werte in einer Spalte suchen, in anderes Sheet kopieren funktioniert nicht.

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


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, in anderes Sheet kopieren funktioniert nicht.
02.07.2021 10:22:58 Bernd
Solved
02.07.2021 12:55:08 Bernd
Solved