Zeile kopieren und nur Teile entsperren
18.02.2020 20:46:26
Longo
Ich möchte in einer Tabelle (A:R) mittels Button jeweils unterhalb der aktiven Zelle einen neue Zeile einfügen. Die aktive Zeile ist komplett gesperrt. Die neu eingefügte Zeile soll mit Ausnahme von zwei Zellen (H und K) entsperrt werden.
Das Einfügen funktioniert mit folgendem Code gut:
Sub Macro3(Control As IRibbonControl)
'Zeile einfügen
Dim iCount As Integer
With Selection
iCount = .Rows.Count
Rows(.Row + iCount & ":" & _
.Row + (iCount * 2) - 1).Rows.Insert
Rows(.Row + 1).Locked = False
End With
End Sub
Vielen Dank für eure Unterstützung.