Navigation

Mine evner indenfor VBA er begrænsede og jeg er ramt en mur som jeg ikke kan komme forbi. Jeg har et excel ark hvor jeg ønsker at indsætte en række med forskellige formler og formateringer ovenover en bestemt række, denne række varier dog i række nummer og jeg har defor benyttet mig af at skrive en tekst i rækken som makro'en så finder for derved at indsætte rækken ovenover. 

Sub Indsæt_række01()
'
' Indsæt_række01 Makro
'
    Dim FindString As String
    Dim Rng As Range
    FindString = "Celletest"
    If Trim(FindString) <> "" Then
        With Sheets("Del Afsnit 01").Range("A:AR")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                .Range("M1:BC1").Copy
                ActiveCell.EntireRow.Insert
                Insert.Selection
                Application.CutCopyMode = False
                Cells(1, 1).Select
            Else
            MsgBox "Nothing found"
            End If

        End With
    End If
End Sub

Således ser makro'en ud, men jeg har et problem i at jeg får en "Run-Time error 424 - Object Required" når jeg benytter makro'en, dog fungere makro'en tildels da den indsætter det markerede område på trods af fejlmeddelsen.

Desuden kan jeg ikke få makro'en til at rydde det kopierede område og derefter stille sig i celle A1.

Til sidst, er det så muligt at kopiere alt i mit markede område (Formler, Formatering etc.), men dog at udelade de "konstante værdier" som jeg har indtastet i det markede område?

Al hjælp er værdsat! 

Navigation

Indsætning af række ud fra variende række