wenn zelle nicht leer ausschneiden...
13.05.2020 10:22:51
Haller
Gerne würde ich wenn die spalte "Q" der mappe "Auf Areal" nicht leer ist, diese ausschneiden und in der Mappe "Journal" in die nächste freie Zeile einfügen.
Was ich bis jetzt habe:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$Q$4" Or Target.Address = "$C$1" Then
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 3
For i = 3 To 100
With Worksheets("Auf Areal")
If .Cells(i, "S") = "" Then
.Rows(i).Copy _
Destination:=Worksheets("Journal").Rows(a)
a = a + 1
End If
End With
Next i
End If
End Sub
Liebe Grüsse Haller
Anzeige
