Office: Wert finden und ganze Zeile ausgeben

Hallo,

ich hab mal wieder ein Problem! Und zwar hab ich einen Datensatz in Tabelle1 von Zeile 3 beginnend und in Zeile 697 endend und von Spalte A bis AX! Jetzt will ich nach einem bestimmten Wert suchen der in Spalte E vorkommt und wenn dieser Wert gefunden wurde, hätte ich ganz gern, dass die komplette Zeile in Tabelle2 ausgegeben wird!

Kann mir geholfen werden???

Besten Dank im voraus!!

:)

 

Hallo mister_bean,

 

danke für die antwort, so ganz bringt es aber doch nicht das gewünschte ergebnis. ich hab mein problem wohl auch nicht vollständig erklärt! der wert den ich suche, kommt in Tabelle1 mehrmals vor und alle Zeilen die das Suchkriterium dieses Wertes erfüllen sollen ausgegeben werden!

 

Hallo mister_bean,

dann so:

 

wunderbar! danke schön

 

Hallo Leute, (mein erstes Hallo in diesem Forum)
ihr schein ja eine sehr kompetente Community zu sein.
Bei mir ist es schon sehr lange her das ich mit mit Excel und VBA beschäftigt habe jedoch benötige ich es jetzt wieder.

Und dazu muss ich diesen alten Thread wieder ausgraben.

Und zwar brauche ich eigentlich genau diese Funktion jedoch habe ich dazu noch zwei Fragen bzw. Anregungen.

1. der zu suchende Wert ist bei mir "76". Wie kann ich definieren das er NUR danach sucht? also ich meine zurzeit gibt er mir die Zeile z.b. auch aus wenn in der Zelle "y76x" steht (rein theorehtisch). Konkret handelt es sich bei mir um den Fall das ich mithilfe von 76.1 usw. z.b. Optionen definieren möchte.

2. Im Code oben kopiert er mit der funktion "entirerow.copy" die gesamte Zeile - kann ich auch nur einen bestimmten bereich also von A bis E z.b. kopieren?

Vielen Vielen Dank schonmal

Beste grüße

 

Set rng = Worksheets("Tabelle1").Range("E:E").Find(loDeinWert, LookAt:=xlWhole)

Range("A" & rng.Row &":E" & "E" & rng.Row ).copy

ungetestet.

 

Vielen Dank für die schnelle Antwort!

Die Funktion um genau nach dem Wert zu suchen hat in dem Fall super funktioniert!

Aber das mit dem Bereich bekomme ich noch nicht ganz auf die Reihe.

 

ich sehe es nicht. Der Code ist korrekt.

 

Na ich versuch mal weiter *Smilie
Danke.

 

\@Ingolf

ich hab deinen Code hier verwendet und er sieht wie folgt aus.

Option Explicit


Sub SuchenUndKopieren()

Dim rng As Range
Dim GesuchterVs As Long
Dim sFirstAdress As String

GesuchterVs = Worksheets("Mitarbeiter").Range("D5")

Set rng = Worksheets("Datenblatt").Range("L:L").Find(GesuchterVs)

If rng Is Nothing Then
MsgBox "Vertriebsschlüssel " & GesuchterVs & " nicht gefunden!"
Else

sFirstAdress = rng.Address
Do
rng.EntireRow.Copy

Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlValues

Set rng = Worksheets("Datenblatt").Range("L:L").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address sFirstAdress
End If

End Sub

Allerdings werden die gefunden Zeilen in der Zieltabelle(Tabelle1) alle in eine Zelle kopiert. Die Ausgabe ist dann die zuletzt kopierte Zeile.
Sie sollten in diesem Fall aber alle untereinander stehen.
Kann mir jemand dabei weiterhelfen?

 

Hallo!
Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
dürfte helfen.

Ich würde aber nicht per Schleife kopieren, dies dauert bei großen Datenmengen schon mal recht lang.
Ich würde Spalte N nach dem VS filtern und den sichtbaren Bereich unter der Überschrift im Block kopieren.

Gruß Ralf

 

Danke erst mal für die schnelle Antwort Ralf.

Allerdings tritt bei Abänderung des Offsets-Bereichs von 0 auf 1 das selbe Problem in der Zeile darunter auf.
Er durchläuft weiterhin den kompletten Kopiervorgang innerhalb einer Zeile.

 

Moin!
Das Makro kopiert die jeweilige komplette Fundzeile an das jeweilige Ende der Tabelle1.
Wenn Du etwas anderes willst, solltest Du genauer beschreiben.

Gruß Ralf

 

Ergänzung:
In Spalte A muss immer ein Wert vorhanden sein!
Ansonsten tausche A mit einer Spalte die IMMER gefüllt ist.
Bei Dir logischerweise Spalte L

Gruß Ralf