Ombyt to celler eller områder

Nedenstående makro bytter to celler eller områders indhold med hinanden. Antag fx følgende, Her vil vi gerne ombytte Vare 3 og Vare 4. Dette kan gøres ved et simpelt træk med musen, men altså også med makroen, som giver flere muligheder end brug af musen.

Når makroen afspilles, vises to inputbokse. I den første markeres den første celle eller celleområde, der skal ombyttes, i den anden den anden celle eller område.

Når der klikkes OK i den anden inputboks, byttes de to cellers indhold rundt:

Der kan også arbejdes med områder, som fx

Her markeres først beløbene, og dernæst varenavne:

Og resultatet bliver

Makroen vil også virke, selv om de celler/områder, der skal ombyttes ikke står i nærheden af hinanden.

Før:

Efter:

Pas på at de to områder, der skal byttes har samme størrelse og facon, ellers foretages der utilsigtede kopieringer. Og koden ser således ud:

Sub OmbytCelleindhold()
'Ombytter indholdet af to markerede områder.
'Områderne angives via to inputbokse
    Dim Omr1 As Range, Omr2 As Range
    Dim Mat1 As Variant, Mat2 As Variant

    Set Omr1 = Application.Selection
    Set Omr1 = Application.InputBox("Marker første celle eller område:", "Første område", Omr1.Address, Type:=8)
    Set Omr2 = Application.InputBox("Marker anden celle eller område:", "Andet område", Type:=8)

    Application.ScreenUpdating = False
    Mat1 = Omr1.Value
    Mat2 = Omr2.Value
    Omr1.Value = Mat2
    Omr2.Value = Mat1
    Application.ScreenUpdating = True

End Sub

- Tilbage til makroer -
- Tilbage til Excel -