verborgen tekst zichtbaar??

[math1]

In een Excel sheet heb ik met VBA een UserForm aangemaakt waarop bij opening diverse gegevens uit dat sheet verschijnen.
Dat werkt goed totdat ik in het sheet een kolom (in dit geval kolom S) verberg waarin gegevens staan die op het UserForm moeten verschijnen.
Betreffende gegegevens zijn dan op het UserForm ook niet meer zichtbaar.

de code die ik gebruik:

Private Sub UserForm_Initialize()
TxtWeektaak.Text = Range("Basis!S12").Text
TxtAanstelling.Value = Range("Basis!S13").Text
TxtWtf.Value = Range("Basis!S14").Text
End Sub

Is hier een oplossing voor????

 

[Roncancio]

In een Excel sheet heb ik met VBA een UserForm aangemaakt waarop bij opening diverse gegevens uit dat sheet verschijnen.
Dat werkt goed totdat ik in het sheet een kolom (in dit geval kolom S) verberg waarin gegevens staan die op het UserForm moeten verschijnen.
Betreffende gegegevens zijn dan op het UserForm ook niet meer zichtbaar.

de code die ik gebruik:

Private Sub UserForm_Initialize()
TxtWeektaak.Text = Range("Basis!S12").Text
TxtAanstelling.Value = Range("Basis!S13").Text
TxtWtf.Value = Range("Basis!S14").Text
End Sub

Is hier een oplossing voor????

:shocked::shocked:
Ik kan de inhoud van de cellen nog op de userform zien nadat ik de kolom heb verborgen.

Kan je eventueel een voorbeeld sturen zonder gevoelige informatie?

Met vriendelijke groet,


Roncancio

 

[math1]

Hallo Roncancio,

ik heb een gedeelte van het sheet waar deze vraag betrekking op heeft bijgevoegd.

met kolom S zichtbaar zie je wel gegevens in het UserForm
verberg je kolom S is er niets meer zichtbaar.

ik hoop dat je hier iets mee kunt.

 

[Roncancio]

Zo lukt het wel:

Private Sub UserForm_Initialize()
    TxtWeektaak.Text = Application.WorksheetFunction.Text(Range("Basis!S12").Value, "[hh]:mm")
    TxtAanstelling.Value = ""
    TxtWtf.Value = ""
End Sub

Met vriendelijke groet,


Roncancio

 

[math1]

dit is de oplossing.

heel hartelijk dank :thumb::thumb:

 

[Wigi]

Nu je hier toch bent, graag even de vraag op opgelost zetten aub.

EDIT: heb niets gezegd