Bruger input til VBA script

strStreng = Input("Skriv dit navn")

//>Rune

Så vidt jeg kan se kan input ikke anvendes til det her -hvis den kan bliver du nok nødt til at udvide beskrivelsen lidt....

Det jeg egentlig ønsker, scriptet prompter brugeren for en action og derefter overgiver kontrollen til Excel således at brugeren kan markerer en celle. Efter brugeren har valgt en celle, skal scriptet fortsætte udførslen.

Noget i retning af nedenstående.

>dummy = MsgBox("vælg en celle", vbInformation)
>vent på brugeren vælger en celle
>set cell = ActiveCell
>gør noget med cell

Mit problem er linien "vent på brugeren vælger en celle"...

Jeg har fundet en løsning jeg kan bruge -ikke det mest elegante men....

Sub Dummy_Function()
    Call Active_Function(True)
End Sub

Sub Active_Function(Mode As Boolean)
    Static Semafore As Boolean
    Dim dummy As Variant
   
    If Semafore = True Then
        dummy = MsgBox("Du har markeret " & ActiveCell.Address, vbInformation)
        Semafore = False
    End If
    If Mode = True Then
        dummy = MsgBox("Vælg en celle ", vbOKCancel)
        If dummy = 1 Then
            Semafore = True
        End If
    End If
End Sub

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Call Active_Function(False)
End Sub

Dummy funktionen er der kun fordi man tilsyneladende ikke kan afvilke funktioner med variabeloverførsel som makroer fra Excel -> man kan ikke tilkytte den til en knap f.eks.

Jeg lader spg stå lidt, det kan være nogen har en bedre / mere elegant løsning.

Nå vi lukker..