een range naar textbox in userform brengen

hansluca · 13 jul 2015

Hallo, kan iemand me helpen in mijn zoektocht?

Gegeven : een werkblad met gegevens over 10 kolommen en onbepaald aantal rijen. (naam,adres,telnr,geboortedatum enz....)
Gegeven : een userform met tekstvak.

Gevraagd : vba-code om -1- : het bereik in het werkblad te definiëren ; dat bereik is dynamisch in rijen.

-2- : dit bereik in het tekstvak van een userform weer te geven.

Dank bij voorbaat

Hansluca

zapatr · 13 jul 2015

Code:

Sub macro1()
Dim mijnbereik As Range
With Sheets("Blad1")
Set mijnbereik = .Range("A1:J" & .Range("A" & .Rows.Count).End(xlUp).Row)
UserForm1.TextBox1.Text = mijnbereik.Address
End With
UserForm1.Show
End Sub

een range naar textbox in userform brengen

hansluca

Nieuwe gebruiker

zapatr

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy