Diskontinuerligt cellområde

Erhålla ett diskontinuerligt
cellområde

I detta tips demonstreras hur vi kan fånga upp ett diskontinuerligt cellområde.
Exemplet har sin utgångspunkt i att vi ska erhålla den första tomma kolumnen för två cellområden. Den första tomma kolumnen antas här vara endera densamma för båda cellområdena eller inte.

I exemplet utgör cellområdena A9:A11 och A15:A17 de områden där den första tomma kolumnen ska erhållas för.

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»

(© 2002 - 2004 All rights Colo - Used by permission)

Option Explicit

Sub Diskontinuerligt_Cellomrade()

   '© 2004 Alla rättigheter XL-Dennis

   Dim rnTarget As Range

   Dim i As Long

   'Här skapar vi startcelladressen.

   Set rnTarget = Range("A9").End(xlToRight).Offset(0, 1)

   'Och här lägger vi till de övriga celladresserna.

   For i = 10 To 17

      Select Case i

      Case 10, 11, 15, 16, 17: Set rnTarget = Application.Union(rnTarget, _

            Range("A" & i).End(xlToRight).Offset(0, 1))

      End Select

   Next i

   Debug.Print rnTarget.Address

End Sub