Hallo Stephan,
warum ist es schwierig, eine genaue Beschreibung eines Problems zu schreiben? Man bekommt nur das, was man ausdrückt. Ist dies nicht eindeutig, wird Beliebiges erzeugt. Das trifft nicht nur auf deine Spezifikation zu, sondern bei sehr, sehr vielen Beiträgen muss man länger überlegen, was der Schreiber eigentlich will, als Zeit für die Lösung gebraucht wird. Oft fange ich deshalb gar nicht erst an zu überlegen.
Das müsste dein Problem lösen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Cells(3, 10), Cells(Rows.Count, 3))) Is Nothing Then
If LCase(Target.Value) = "x" Then
Sheets("Tabelle2").Cells(4, 7) = Sheets("Tabelle1").Cells(Target.Row, 2)
Sheets("Tabelle2").Cells(11, 4) = Sheets("Tabelle1").Cells(Target.Row, 6)
Sheets("Tabelle2").Cells(11, 7) = Sheets("Tabelle1").Cells(Target.Row, 7)
End If
End If
End Sub
Gruß
Holger
|