Zeile durchsuchen und zugehörige Spalte kopieren

Hallo,

ich kenne mich ein wenig mit VB aus, habe aber noch keine Makros geschrieben.

Ich möchte im Sheet Blatt_2 die Zeile 3 nach dem Wert aus dem Sheet Diagramm Zelle C4 durchsuchen.
Wenn der Wert in der Zeile 3 gefunden wurde, sollen die zugehörigen Zellen 4-26 aus Blatt_2 ins Sheet Diagramm Zellen C5:C27 kopiert werden.
Hoffentlich könnt ihr mir helfen.
Vielen Dank schonmal. :smile:

Ich möchte im Sheet Blatt_2 die Zeile 3 nach dem Wert aus dem
Sheet Diagramm Zelle C4 durchsuchen.
Wenn der Wert in der Zeile 3 gefunden wurde, sollen die
zugehörigen Zellen 4-26 aus Blatt_2 ins Sheet Diagramm Zellen
C5:C27 kopiert werden.

Hallo Wbg,

Sub tt()
Dim Zelle As Range
Set Zelle = Worksheets(„Blatt_2“).Rows(3).Find(Worksheets(„Diagramm“).Range(„C4“).Value)
If Not Zelle Is Nothing Then Zelle.Offset(1, 0).Resize(23, 1).Copy Worksheets(„Diagramm“).Range(„C5“)
Set Zelle = Nothing
End Sub

Gruß
Reinhard

ohne vba
Hallo WBG,

auch ich kenne mich ein wenig mit VB aus und habe sogar schon Makros geschrieben :wink:
In diesem Fall würde es aber auch ohne vba gehen. Probiere ´mal sverweis bzw. wverweis dafür! ( Anleitung in der Hilfe Deiner Excel-Version )

Viel Erfolg

Thomas