У меня есть таблица, похожая на это:

opg nr..... ansvar.......status......færdig
1 ..........Flemming ..  Opstart..  ....10
2...........Daniel  .....I gang.......  30
3 ......... Kasper  .....I gang .......70

Последние 3 столбца являются выпадающими списками.

У меня есть кнопка с этим макросом:

Dim row
row = InputBox("Row number below which new row will be inserted", "Input row number")
If Not row = vbNullString Then
    ActiveSheet.Range("A" & row).EntireRow.Insert
End If

Если я вставляю в строку 4, она работает нормально, но если я вставляю в строку 2, я не получаю список dropDown в столбце 2-4 вставленной строки.

Может кто-нибудь мне помочь ?

0