cellen samenvoegen

[Djang]

hoi , waarom geeft hij als file naam alleen de inhoud van B1 en niet B1+B5 ?
de fout zit in myRange=Range("B1", "B5")

Private Sub toetsOpslaan2_Click()
Dim invoer As Integer
Dim invoerFam As Integer
Dim myRange As String, myname As String


Sheets(1).Range("B1").Value = Me.invoer.Value
Sheets(1).Range("B5").Value = Me.invoerFam.Value


mysheets = Array("Blad1", "Blad2", "Blad3", "Blad4")
myRange = Range("B1", "B5")

myname = myRange
myname = LCase(myname)
myname = Replace(myname, " ", "_")

Sheets(mysheets).Copy
With ActiveWorkbook
.SaveAs "C:\Documents and Settings\Gebruiker\Mijn documenten\Excel\" & myname & ".xlsx"
.Close True
End With
Unload Me

End Sub

 

[Haije]

probeer eens:

myRange = Range("B1") & " " & Range("B5")

 

[Djang]

hoi , Haije Bedankt

dit is dan waarschijnlijk de enige code die ik nog niet geprobeerd had !!! wel vergelijkbare .

waarom pakt hij B5 niet in myRange=Range("B1", "B5") ??

 

[Haije]

Omdat de syntax anders is....