Selectie omkeren

[franzeman]

Hallo VBA 'ers,

Ik heb van het internet een stukje code 'geplukt' , waarmee ik in staat ben een selectie op een werkblad om te keren. (De code staat hieronder en werkt bij mij.)

En nu mijn vraag:
Hoe pas ik de code aan, om dit ook voor een rij, kolom of een Range (groter dan de selectie natuurlijk) voor elkaar te krijgen?

Graag jullie hulp,

Groetjes van Franzeman

'Sub InvertSelection()
'
''selectie omkeren
'    Dim rBig As Range
'    Dim rSmall As Range
'    Dim Cell As Range
'    Dim rNew As Range
'
'    If TypeName(Selection) = "Range" Then
'        Set rBig = Selection.Parent.UsedRange
'        Set rSmall = Selection
'    End If
'
'    Selection.Parent.UsedRange.Select
'
'    If Not rSmall Is Nothing Then
'        For Each Cell In rBig.Cells
'            If Intersect(Cell, rSmall) Is Nothing Then
'                If rNew Is Nothing Then
'                    Set rNew = Cell
'                Else
'                    Set rNew = Union(rNew, Cell)
'                End If
'            End If
'        Next Cell
'    End If
'
'    If Not rNew Is Nothing Then
'        rNew.Select
'    End If
'
'End Sub

 

[Wigi]

Je zou bv. deze procedure kunnen aanspreken gebruik makende van een parameter, die je meegeeft. Dan kan je bv. zelf een range definiëren en die doorgeven aan de procedure.

Wigi

 

[franzeman]

Je zou bv. deze procedure kunnen aanspreken gebruik makende van een parameter, die je meegeeft. Dan kan je bv. zelf een range definiëren en die doorgeven aan de procedure.

Wigi

Ja, maar dat is nu net het probleem! Dat lukt mij niet.
Kun je me niet een eindje op weg helpen?

Groetjes van Franzeman

 

[Wigi]

Hier is het idee:

Sub voerdituit()

    Call selecteerCellen(Range("A1:H10"))

End Sub

Sub selecteerCellen(r As Range)

    r.Select

End Sub

Wigi

 

[franzeman]

Hier is het idee:

Sub voerdituit()

    Call selecteerCellen(Range("A1:H10"))

End Sub

Sub selecteerCellen(r As Range)

    r.Select

End Sub

Wigi

Hallo Wigi,

Ik kom er nog altijd niet uit.

De oorspronkelijke code uit mijn eerste vraagstelling heb ik iets aangepast en het is mogelijk om binnen een 'UsedRange' van selectie te wisselen. Maar nu zou ik op een of andere manier de selectie willen beperken tot bijvoorbeeld rij 7 of kolom F zonder de overige cellen te hoeven wissen.

Ik krijg jouw code voorstel niet aan die van mij geknoopt. Daarom heb ik een bestandje toegevoegd.

Met vriendelijke groet,

Franzeman