Office: Wert suchen, bestimmten Bereich kopieren und einfügen

Hallo zusammen,

ich habe schon in einem anderen Thread gepostet. Da dieser aber als erledigt markiert ist, probiere ich es noch mal so.

https://www.ms-office-forum.net/foru...d.php?t=357944

Ich würde gerne in dem Blatt "Daten", in der ersten Zeile einen Wert suchen, den Bereich darunter kopieren und im Blatt "Übersicht einfügen".

Der zu suchende Wert steht im Blatt "Übersicht" in der Zelle "F2".

Ich habe es schon mit dem Code aus dem verlinkten Thread versucht. Dieser kopiert aber bis zur letzten Zeile.

Im Anhang habe ich eine ganz einfache Beispieldatei angehängt.

Vielen Dank im Voraus für die Hilfe und einen schönen Nachmittag

:)

 

Hallo,

der Unterschied zwischen Zeile und Spalte ist dir bekannt?
Welchen Wert willst du in der ersten Zeile suchen? In deiner Beispielmappe hast du nur einen Wert in Zeile 1.
Meinst du hier suchen in der ersten Spalte?

Weitere Frage: Was hast du denn erwartet? Dass der Code aus dem anderen Beitrag das tut was du willst, obwohl dein Tabellenaufbau so gar nichts mit dem Tabellenaufbau im anderen Beitrag zu tun hat.

Gruß Werner

 

Hallo Werner,

vielen Dank für deine Antwort.

Bin noch ziemlich neu in diesem Bereich. Ich habe das Datenblatt der Beispielmappe erweitert. Ich möchte im Blatt "Übersicht" einen Begriff eingeben (Zelle F2).

Nun soll im Blatt "Daten", nur in ersten Zeile nach dem eingegebenen Begriff gesucht werden. Darufhin ein definierter Bereich kopiert und eingefügt werden. Der Bereich ist immer gleich groß. Aufbau der Daten ist immer gleich. Eine Verbundene Zelle mit dem zu suchenden Begriff, darunter zwei Spalten mit Werten die kopiert werden sollen.

Ein Beispiel. Es soll nach dem Begriff "Wasser" gesucht werden. Bei einem Treffer, kopiere den Bereich (in diesem Falle) A2:B7 und füge im Blatt "Übersicht" in B3 ein.

 

Hallo,

teste mal:

PHP:

         Option Explicit

Sub Schaltfläche1_Klicken()
Dim raFund As Range, i As Long, loLetzte As Long
Dim strSuch As String

Application.ScreenUpdating = False

strSuch = Worksheets("Übersicht").Range("F2")

If Not strSuch = vbNullString Then
Worksheets("Übersicht").Range("B3:C8").ClearContents
With Worksheets("Daten")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raFund = .Cells.Find(what:=strSuch, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
For i = raFund.Row + 1 To loLetzte + 1
If .Cells(i, raFund.Column + 1) = "" Then
.Range(.Cells(raFund.Row + 1, raFund.Column), .Cells(i - 1, raFund.Column + 1)).Copy
Worksheets("Übersicht").Range("B3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Exit For
End If
Next i
Else
MsgBox "nicht gefunden"
End If
End With
End If
End Sub


 

Hallo Werner,

besten Dank für den Code. Hab getestet und funktioniert wunderbar *Smilie

Vielen Dank

Nun werde ich mir den Code Stück für Stück angucken um den genau zu verstehen um ihn ggf. zu erweitern (falls mehr Spalten hinzukommen sollten).

 

Hallo,

Ich bräuchte noch mal Rat.

Ist es möglich nur in verbundenen Zellen zu suchen?

Das iProblem welches ab und an auftritt, ist das in den Spalten unter dem Suchbegriff, dieser nochmals vorkommt.