Ergänzung, Zeile aus Bereich neues TB Bereich ein
28.05.2017 14:54:12
Gisela
oder auch Hallo Hajo,
Hajo hat mir heute schon sehr viel weitergeholfen mit folgendem Makro:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And UCase(Target) = "NEU" Then
With Worksheets("Zieltabelle")
Application.EnableEvents = False
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp). _
Row, _
.Rows.Count) + 1
Range("b" & Target.Row & ":I" & Target.Row).Copy .Range("B" & Loletzte)
Range("b" & Target.Row & ":I" & Target.Row).Delete
Application.EnableEvents = True
End With
End If
End Sub
Der jeweilige Tabellenblattname (Zieldatei) steht in Spalte J.
Was muss ich ändern. Kann mir bitte jemand helfen.
Hatte es in meinem ersten Tread so beschrieben, ist aber von mir auch bei der Antwort von Hajo übersehen worden.
Vielen Dank und Grüße
Gisela