habe lange in der recherche gesucht und siehe da auch das passende Makro für meine Problenmlösung gefunden. Bräuchte aber eine klitzekleine Änderung welche mich aber doch vor etwas größere Probleme stellt. Folgendes makro hat Harald Kapp ins Forum gestellt.
In allen mappen ausser tabelle3 wird in Spalte A der name gesucht welcher in tabelle3 in Zelle D1 vermerkt ist. In dem makro wird die komplette gefundene zeile kopiert. das möchte ich nicht. Wenn der zellwert gefunden wurde soll bitte nur der Bereich der spalten F bis AA in Tabelle3 Zeile 8 Spalte Y kopiert werden. Habe bei Destination meine mühe. Wär jemand so nett und kann sich das mal anschauen. Danke Frank
Sub test()
Dim Tabelle As Worksheet
Dim Name As String
Dim Zeile As Long
Dim firstAddress As String
Dim Suchzelle As Range
Zeile = 8
Name = Worksheets("Tabelle3").Range("D1").Text
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name "Tabelle3" Then
Tabelle.Activate
With Tabelle.Range("A:A")
Set Suchzelle = .Find(Name, LookIn:=xlValues)
If Not Suchzelle Is Nothing Then
firstAddress = Suchzelle.Address
Do
Rows(Suchzelle.Row).Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Tabelle3").Range(Zeile & ":" & _
Zeile)
Zeile = Zeile + 1
Set Suchzelle = .FindNext(Suchzelle)
Loop While Not Suchzelle Is Nothing And Suchzelle.Address firstAddress
End If
End With
End If
Next Tabelle
End Sub