ich habe im Forum diesen Code gefunden nur brauch ich für mein Anliegen es anderst herum. Die Werte sollen aus der Spalte und nicht aus der Zeile genommen werden.
Option Explicit
Public pubBolChanged As Boolean
Public pubLngRow As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
WriteValues
ReadValues Target
End If
If Not Intersect(Target, Range("D3:D5,G3:G5,K3:K5,B15:C16")) Is Nothing Then pubBolChanged = _
True
End Sub
Sub ReadValues(rngTarget As Range)pubLngRow = WorksheetFunction.Match(rngTarget, Sheet2.Range("A:A"), 0)
Application.EnableEvents = False
Cells(3, 4) = Sheet2.Cells(pubLngRow, 2)
Cells(4, 4) = Sheet2.Cells(pubLngRow, 3)
Cells(5, 4) = Sheet2.Cells(pubLngRow, 4)
Cells(3, 7) = Sheet2.Cells(pubLngRow, 5)
Cells(4, 7) = Sheet2.Cells(pubLngRow, 6)
Cells(5, 7) = Sheet2.Cells(pubLngRow, 7)
Cells(3, 11) = Sheet2.Cells(pubLngRow, 8)
Cells(4, 11) = Sheet2.Cells(pubLngRow, 9)
Cells(5, 11) = Sheet2.Cells(pubLngRow, 10)
Cells(15, 2) = Sheet2.Cells(pubLngRow, 11)
Cells(15, 3) = Sheet2.Cells(pubLngRow, 12)
Cells(16, 2) = Sheet2.Cells(pubLngRow, 13)
Cells(16, 3) = Sheet2.Cells(pubLngRow, 14)
Application.EnableEvents = True
End Sub Für jede Hilfe bin ich Euch sehr dankbar.
Mit freundlichen Grüßen Thomas