Hi Gast8903,

werde das andere Forum natürlich informieren / hierher verlinken sobald ich mein Problemchen gelöst habe :)
Aber vielen Dank vorweg für Deine Hilfe.
Versuche mich gerade durch den Code durchzuarbeiten :P
(Denn derzeit, auf die Schnelle, funktioniert es noch nicht)

Ich hatte folgenden Code im Sinn, schaffe ihn aber nicht "ins Target" miteinzubinden (Code funktioniert also derzeit nur über Button und in einem allgemeinen Modul ohne SelectionChange):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim c As Range
    Dim firstAddress As String, Find As String
    Dim wksMA1 As Worksheet
    Dim iSheet As Integer
    Dim iRowL As Long, iRow As Long

    Set wksMA1 = ThisWorkbook.Sheets("MA1")
    iRowL = wksMA1.Cells(Rows.Count, 1).End(xlUp).Row

    For iRow = 2 To iRowL
        If wksMA1.Cells(iRow, 3) > 0 Then
            Find = wksMA1.Cells(iRow, 1)
                For iSheet = wksMA1.Index + 1 To Worksheets.Count
                    With Worksheets(iSheet).Range("A1:A500")
                        Set c = .Find(Find, LookAt:=xlWhole)
                            If Not c Is Nothing Then
                                firstAddress = c.Address
                                MsgBox (Find & " gefunden bei " & Worksheets(iSheet).Name & c.Address)
                                c.Offset(0, 1).Value = wksMA1.Cells(iRow, 2)
                                c.Offset(0, 4).Value = wksMA1.Cells(iRow, 5)
                                c.Offset(0, 5).Value = wksMA1.Cells(iRow, 6)
                                c.Offset(0, 6).Value = wksMA1.Cells(iRow, 7)
                            End If
                    End With
                Next iSheet
        End If
    Next iRow
End Sub

Glg Matthias