Indæst værdi og udskriv

Public Sub Billag()
svar = InputBox("indtast billagsnummer", "Billagsnummer")
Range("A5") = svar  ' ret A5 til din celle
ActiveSheet.PrintOut
End Sub

Det er fint, men hvordan får jeg den til at skrive "Bilag" & "Svar"?

Public Sub Billag()
dim navn as string
svar = InputBox("indtast billagsnummer", "Billagsnummer")
navn = "Bilagsnummer " & svar
Range("A5") = svar  ' ret A5 til din celle
ActiveSheet.PrintOut
End Sub

kredit til kabbak

Jeg har ændret lidt i makroen - måske til noget forkert, for der skrives kun "Svar":

Private Sub CommandButton1_Click()
Dim navn As String
svar = InputBox("Indtast bilagsnr.:", "Bilag")
navn = "Bilag " & svar
Range("H24") = svar
ActiveSheet.PrintOut
End Sub

Har selv fundet fejlen:
Private Sub CommandButton1_Click()
Dim navn As String
svar = InputBox("Indtast bilagsnr.:", "Bilagsnummer")
navn = "Bilag " & svar
Range("H24") = navn
'ActiveSheet.PrintOut
End Sub

Range("h24") = "Svar" er ændret til "Navn"

Men ellers ok!

Kabbak - vil du iflg. moba ligge et svar, så du kan få point!

ups ja der sneg sig vist lige en lille fehler ind :-) Sådan går det når man ikke lige tester det af!

Et svar, ja test er en god ting. ;-))

h s > husk at lukke