Zeile kopieren außer Wert in Spalte E
11.12.2017 14:33:08
Nati
es soll eine Zeile kopiert werden; die kopierte Zeile soll dann unten wieder eingefügt werden. Falls aber in Spalte E ein Wert eingetragen ist, soll dieser entweder:
- in der zu kopierenden Spalte nicht mit kopiert werden oder
- in der kopierten und eingefügten Spalte gelöscht werden (--> wie bekomme ich eine Referenz auf die kopierte und eingefügte Spalte ? :/)
mein Ansatz:
Sub newIndex()
Dim lRow As Long
lRow = ActiveCell.Row
Application.ScreenUpdating = False
ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Insert Shift:=xlDown
'-> hier liegt das Problem, nicht die ganze zeile soll kopiert werden, sondern nur die ganze _
Zeile wenn E leer ist, ansonsten alles außer E kopieren
Application.CutCopyMode = False
With Range("B" & lRow & " :" & "IK" & lRow).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B" & lRow & " :" & "IK" & lRow).Locked = True
Range("IM" & lRow & ":" & "IM" & lRow).Value = 1
Application.ScreenUpdating = True
End Sub
Nati
Anzeige