Brug af userform

din kode virker fint, men i toppen af userformens kodemodul skal du lige declarere din variabel (Klump) ellers kan den ikke ses fra den ene sub til den anden i modulet.

Dim klump

Dim Klump

Private Sub Indholdd_Change()
klump = Indholdd.Value
End Sub

Private Sub CommandButton2_Click()
Call Test(klump)
End Sub

Ang. Dim klump
Placeringen virker uklar på mig. man kan da ikke sætte dim klump Før Private Sub Indholdd_Change()

Hej

Dim Variabel " kan ses af alle nedenstående Sub/Function"

sub Test
  Dim variabel " kan kun ses inden for sub'en

end sub


Mvh Jan

Jo, det kan man sagtens. Med den placering kan den ses af alle subs indenfor samme kodemodul. (her er det så userformen)

Tak for svar men min forvirring er steget til "digitalistiske" højder
Hvad mener i:

Nu har jeg lavet koden således:

"Indholdet af selve userformen:"
Private Sub UserForm_Initialize()  (skal der bruges initialize)
Dim klump    (efter råd fra jer, tror jeg nok - men det virker ikke)
End Sub

"Den indholdsdims jeg indskriver bogstaver og tal i:"
Private Sub Indholdd_Change()
klump = Indholdd.Value
End Sub

"Knappen der bør starte programmet TestBørge"
Private Sub CommandButton2_Click()
Call TestBørge(klump)
End Sub

"Programmet hvor jeg vi bruge de indskrevene bogstaver/tal"
Public Sub TestBørge(klump)
Debug.Print "Teksten= "; klump
End Sub

Jeg kan ikke udskrive klump med debug.print

hvis du nu fjerner sub initialize og bare skriver Dim klump, så virker det.
Det skal ikke stå inden i en sub, den skal stå alene i toppen af Userformens kode.

------------- userformens kode
Dim Klump

Private Sub Indholdd_Change()
klump = Indholdd.Value
End Sub

Private Sub CommandButton2_Click()
Call Test(klump)
End Sub
---------------------------------------

--------i alm kodemodule-------
"Programmet hvor jeg vi bruge de indskrevene bogstaver/tal"
Public Sub TestBørge(klump)
Debug.Print "Teksten= "; klump
End Sub
-------------------------------------

Private Sub CommandButton2_Click()
Call Test(klump)
End Sub

ændres til

Private Sub CommandButton2_Click()
Call TestBørge(klump)
End Sub

Skriver jeg:
Private Sub UserForm_Dim klump()
'Dim klump
End Sub
Får jeg fejlen
Compile error:
Expected: end of statement

Fjerner jeg
Private sub UserForm_initialize
End Sub
Og skriver jeg
Dim klump

Så optræder Dim Klump
Som en del af

Private Sub UserForm_Click()
End Sub
Dim klump

Og der har den da intet at gøre.

Hvad ser du som jeg ikke kan fatte?

Endelig har jeg fattet det. Jeg skrev "dim klump" øverst i Userform modulet og det dannede selv et afsnit.
Men hvorfor forsætter programmet så.
Teksten afleveres i debug.print og så ville jeg tro at programmet slutter.
Men når jeg ser min tekst i editoren og vil klikke på selve arket så er alt frosset.
"Continuo" er gostet
Hvordan slutter man det så?

'Vi prøver engang til:

'Program/Modul start

Dim Klump 'sæt variabel

Private Sub Indholdd_Change()
klump = Indholdd.Value 'Tildel variabel indhold
End Sub

Private Sub CommandButton2_Click()
Call TestBørge 'Kalde sub'en, (klump) er overflødig
End Sub

Public Sub TestBørge
Debug.Print "Teksten= "; klump 'printer variablen
End Sub

'Program/Modul slut

'Hvis du kopierer alt ind i di userform-modul så virker det

'Mvh Jan

Private Sub CommandButton2_Click()
Call TestBørge(klump)
End Sub

Program/Modul slut
programlinjen bliver rød og skråstregen er fremhævet med blåt
hvad sker der?
jeg går udfra at der ikke skal være apostrof før 'Program/Modul slut
linjen danner heller ikke "sit eget afsnit"
suk.

ups lille forglemmelse

' Program/Modul slut

det er en kommentar, alle kommentarer startes med '

mvh Jan

Tak for hjælpen !

Velbekomme