Ich nehme an, Du hast gemeinst "wenn dieZelle (nicht Zeile) nicht leer ist". Unter dieser Voraussetzung und in der Annahme, Du willst nur die Werte, nicht etwa Formeln kopieren, sollte es so gehen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngAktZeile As Long
If Target = "" Then Exit Sub
If Target.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
With ThisWorkbook
lngAktZeile = Target.Row
.Sheets("8_Install").Cells(lngAktZeile, "B") = .Sheets("7_IA").Cells(lngAktZeile, "B")
.Sheets("8_Install").Cells(lngAktZeile, "C") = .Sheets("7_IA").Cells(lngAktZeile, "C")
.Sheets("8_Install").Cells(lngAktZeile, "D") = .Sheets("7_IA").Cells(lngAktZeile, "D")
.Sheets("8_Install").Cells(lngAktZeile, "E") = .Sheets("7_IA").Cells(lngAktZeile, "E")
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
|