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!