VBA Tekst uit menu naar koptekst excel aanvullen

[Bosswilly]

Hallo allemaal,

Wie kan mij helpen, daar ik nog niet helemaal thuis ben in de VBA.

Ik heb net een klein formuliertje gemaakt (klad) en daar moeten mijn gegevens ingevuld worden.

Deze gegevens moeten achter de benaming van de koptekst komen te staan.

Vraag 1: Hoe doe ik dit?

Vraag 2: Is het ook mogelijk om de antwoorden in 1 lijn te krijgen?

Hierbij mijn voorbeeld.

PS. Formulier staat op de achtergrond in Basic.

Wie kan mij hierbij helpen?

Alvast bedankt.
Bekijk bijlage voorbeeld.xlsm

 

[edmoor]

Wat bedoel je met:
De benaming van de koptekst
1 lijn

 

[Bosswilly]

Met 1 lijn bedoel ik zoals hieronder, nl.:

Klant : Dit moet 1 lijn zijn
Project : Dit moet 1 lijn zijn
Projectnummer : Dit moet 1 lijn zijn

Dus alles onder elkaar hetzelfde.

 

[edmoor]

Sorry, ik begrijp nog niet wat je bedoeld met 1 lijn. Bv. Klant : is gewoon een label object met als tekst "Klant :"

 

[Bosswilly]

Ik zie nu dat je het niet begrijpt, sorry had dit niet gezien op de forum als voorbeeld.

De tekst 1 lijn moeten allemaal onder elkaar staan (net als bij 1 tab).

 

[edmoor]

Je bedoeld dus dit maar dan in je formulier?

Klant 	     : Dit moet 1 lijn zijn
Project      : Dit moet 1 lijn zijn
Projectnummer: Dit moet 1 lijn zijn

 

[HSV]

Bv.

Private Sub CommandButton2_Click()
[a1].Resize(3) = Application.Transpose(Array(Klant_txt, Project_txt, Projectnummer_txt))
End Sub

 

[edmoor]

Ik denk dat je dit bedoeld?

 

[Bosswilly]

Juist ja.

Misschien dat ik het nog niet goed begrijp.

Ik wil nu de desbetreffende gegevens achter de de gegevens klant: zetten in de koptekst. (Dus de gegevens achter de klant:, projectnaam: en projectnummer:. Deze gegevens moeten blijven staan en daarachter de gegevens uit de test open.

Kan dat en hoe?

Of is dat met de VBA code die al aangegeven is. Dan spijt het me om deze vraag opnieuw te stellen

 

[edmoor]

Ik wil nu de desbetreffende gegevens achter de de gegevens klant: zetten de koptekst.

Bij wat ik laat zien vul je toch het gegeven voor de klant al achter Klant in?

De VBA code die HSV plaatste is om de ingevulde gegevens naar een regel in het werkblad te schrijven.

 

[Bosswilly]

Precies Edmoor, maar nu wil ik dit verwerkt hebben in de koptekst.

 

[edmoor]

En wat bedoel je met koptekst?

 

[HSV]

Je schrijft steeds over koptekst, waar staat die dan?

Ik ga toch naar bed, maar misschien @Ed nog niet.

 

[Bosswilly]

Jawel, in excel heb je net zoals in worden kop/voettekst. Dit is een stukje van een formulier, waarbij dit op elke bladzijde terug komt.

 

[edmoor]

in excel heb je net zoals in worden kop/voettekst.

???

Als je koptekst voor het werkblad bedoeld dan kan je dit gebruiken:

Sub KlantgegevensNaarWerkbladHeader()
    ActiveWindow.View = xlPageLayoutView
    With ActiveSheet.PageSetup
        .LeftHeader = Klant_txt
        .CenterHeader = Project_txt
        .RightHeader = Projectnummer_txt
    End With
End Sub