nochmalige Codeänderung
12.09.2017 19:41:12
Guesa
Nachfolgender Code funktioniert eigentlich wunderbar, nochmals Danke an Gerd und Klaus. Jetzt habe ich leider festgestellt das ich zusätzlich noch ein Kriterium für die Spalte A brauche und zwar: Wenn z.B. in Spalte A = "Haus" steht. Hab es mehrmals probiert mit eben einer if Anweisung, ich kriege es einfach nicht hin.
Für Eure Hilfe und Mühe schon mal ein Danke schön
Gruß, Guesa
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 7 Then Exit Sub 'Hier wenn Spalte G größer nichts ist
If IsEmpty(Target) Then Exit Sub
Dim iRow As Long, iRowL As Long
iRow = Target.Row
With Worksheets("Tabelle2")
If IsEmpty(.Range("A1")) Then
iRowL = 1
Else
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Range(Cells(iRow, 1), Cells(iRow, 10)).Copy
.Cells(iRowL, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'.Columns.AutoFit
End With
End Sub
Anzeige