Infoga rader och kolumner

Infoga rader & kolumner

Här demonstreras tekniker för att infoga tomma rader och kolumner i det aktiva arbetsbladet.

I det första exemplet demonstreras hur vi, mha en InputBox, kan infoga antal önskade rader.

Sub Infoga_Rader()
'© 2001 Alla rättigheter XL-Dennis
Dim sTitel As String, sMedd As String
Dim iAntalRader As Integer

sTitel = "Infoga rader"
sMedd = "Ange antal rader som ska infogas:"

'Här tas först arbetsbladskyddet bort.
ActiveSheet.Unprotect

'Här erhålls antal önskade rader.
iAntalRader = Application.InputBox _
                  (prompt:=sMedd, Title:=sTitel, Default:="", Type:=1)
If iAntalRader < 1 Then Exit Sub

'Här infogas raderna under den aktiva cellen.
Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
             Resize(rowsize:=iAntalRader).Insert Shift:=xlDown

'Här återställs den sista använda cellen och arbetsbladskyddet sätts på igen.
With ActiveSheet
       .UsedRange
       .Protect
End With
End Sub

I nästa exempel demonstreras hur vi kan infoga nya kolumner i det aktiva arbetsblad.

Sub Infoga_Kolumner()
'© 2001 Alla rättigheter XL-Dennis
Dim sTitel As String, sMedd As String
Dim iAntalRader As Integer

sTitel = "Infoga kolumner"
sMedd = "Ange antal kolumner som ska infogas:"

ActiveSheet.Unprotect

iAntalRader = Application.InputBox _
                  (prompt:=sMedd, Title:=sTitel, Default:="", Type:=1)
If iAntalRader < 1 Then Exit Sub

'Här infogas antal önskade kolumner till höger om den aktiva cellen
Selection.Resize(rowsize:=2).Columns(2).EntireColumn. _
             Resize(columnsize:=iAntalRader).Insert

With ActiveSheet
      .UsedRange
      .Protect
End With
End Sub