Macro med Input box

Lidt at arbejde videre med:

Sub CopyRange()
    Dim StartCell As Range
    Dim SlutCell As Range
    Dim FullRange As Range
    Dim TilCell As Range
   
    On Error GoTo ErrorHandler
   
    Set StartCell = Application.InputBox(prompt:="Vælg de tal du vil kopiere", _
                    Type:=8, Title:="Copy From Range 1")
    Set SlutCell = Application.InputBox(prompt:="Vælg de tal du vil kopiere", _
                    Type:=8, Title:="Copy From Range 2")
                   
    Set FullRange = Range(StartCell, SlutCell)

    Set TilCell = Application.InputBox(prompt:="Vælg stedet du vil kopiere dem til.", _
                    Type:=8, Title:="Copy To Range")

    FullRange.Copy Destination:=StartCell
   
ErrorHandler:
   
End Sub

Problem: Hvis der byttes om på vælget Start og Slut celle?
Så der skal valideres?

Lavede lidt om på det så det passede mig...

Tak for det..
Kom med et svar så du kan få dine fortjente points :)

Velbekomme... :-)

Ahh glemte at spørge om en ting mere... Formlen virker efter hensigten. Er det muligt at inkorporere at den åbner et andet excel fil bestem ark i excel filen og derefter kopiere og erstatter i den nuverende excel fil hvor macroen er placeret?

Public Sub CopyRange3()
 
    Dim StartCell As Range
    Dim SlutCell As Range
    Dim FullRange As Range
    Dim TilCell As Range
   
    On Error GoTo ErrorHandler
   
    Set StartCell = Application.InputBox(prompt:="Vælg de tal du vil kopiere", _
                    Type:=8, Title:="Copy From Range 1")
   
    'Variablen CorrectAnswer bruges til at huske om vi har svaret
    'rigtigt og er derfor af typen Boolean, som kan være sand og falsk
    Dim CorrectAnswer As Boolean
    'Vi laver et loop - dvs. en del af programmet vil nu blive
    'udført igen og igen indtil en betingelse bliver opfyldt
    Do
        Set SlutCell = Application.InputBox(prompt:="Vælg de tal du vil kopiere", _
                    Type:=8, Title:="Copy From Range 2")
                   
        If SlutCell > StartCell Then
            CorrectAnswer = True
            MsgBox "Det er flot - du valgte rigtigt!"
        Else
            CorrectAnswer = False
            MsgBox "Det var skidt - men vi prøver bare igen!"
        End If
    'Der loopes indtil vi har svaret rigtigt på spørgsmålet
    Loop Until CorrectAnswer
   
    Set FullRange = Range(StartCell, SlutCell)

    Set TilCell = Application.InputBox(prompt:="Vælg stedet du vil kopiere dem til.", _
                    Type:=8, Title:="Copy To Range")

    FullRange.Copy Destination:=TilCell
   
ErrorHandler:
End Sub

Merci..

Kom så med et svar...

Ok...Et 'Svar'

Ang. #4
Kan helt sikkert laves, ved bare ikke lige hvordan :-(

Ups...
Her er et 'Svar'