Wenn dann neue zeile
24.11.2016 11:52:31
Andre
kann mir jemand erklären was soll ich machen damit folgender Code nur in einer Spalte und nicht _
für die ganze Tabelle gilt?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NextLine As Long
With Target
If IsDate(.Value) Then
NextLine = .Row + 1
If WorksheetFunction.CountA(Cells(NextLine, 1).Resize(1, Columns.Count)) Then
Rows(NextLine).Insert Shift:=xlDown
End If
End If
End With
End Sub
Danke im Voraus!
Anzeige