Inputbox

[fibban23]

Hurkan jag få ett stränginnehåll i en Inputbox kopierad till en cell i ett makro?

Hej och tack

 

[Gäst idgadmin]

[KOD]

Public Sub demo()

ActiveSheet.Range("A1")=InputBox("Skriv något", "Hej")

End Sub

[/KOD]

 

Det som står till vänser om "=" skall vara något slags cell-adress, det kan naturligtvis vara en absolut adress också.

 

[fibban23]

Tack för svar!

men det var inte så jag hade tänkt mig. Jag har alltså en Inputbox, där man uppmanas skriva in ett datum och det detta datum som jag vill ha kopierat till en cell, när jag trycker på OK.

Hej och tack

 

[Gäst idgadmin]

Tja, det är ju det jag tror att jag svarat på...

 

Var kommer din inputbox ifrån? Så vitt jag vet måste man använda VBA. Eller pratar du om någonting helt annat?

 

om vi antar att din inputbox skall fråga efter ett datum så kan det se ut någonting i den här stilen:

svar = InputBox("ange ett datum")

då kommer variabeln "svar" att innehålla dit datum i form av en sträng, sedan kopierar du helt enkelt "svar" till en cell, exempel cell A1:

Range("A1") = CDate(svar)

där CDate omvandlar strängen till ett datum.

eller ett töntigt exempel med goto och allt :-) :

 

[KOD]Public Sub demo()

Line1:

svar = InputBox("ange ett datum")

'hämta in svar från användaren

If svar = "" Then Exit Sub

'Om användaren trycker avbryt, ähhh avbryt

 

If IsDate(svar) = False Then

MsgBox ("felaktigt datumformat, försök igen")

GoTo Line1

End If

' om datumet är inmatat på felaktigt sätt, börja om

 

Range("A1") = CDate(svar)

'se till att cell A1 får samma värde som "svar" (fast omvandlat till datum)

End Sub[/KOD]

 

 

[fibban23]

Tack för att Du satte mig på spåret.

Hej och tack