Variablenübergabe von Ufrm an Modul
Ufrm
wie wird eine Variable von einer Userform an ein Modul übergeben?
z.B. die Variable z
Danke Peter
Private Sub SpinDatNr_Change()
Dim Sh As Worksheet
Dim DatenCounter
Dim MaxDatenCounter
Dim sDaten
Dim rng
On Error Resume Next
lblDatenNr.Caption = SpinDatNr.Value
sDaten = SpinDatNr.Value
Set rng = Worksheets("Tmp").Columns(1).Find(sDaten, _
lookat:=xlPart, LookIn:=xlValues)
z = rng.Row
TxtArtNr.Text = rng.Offset(0, 2).Value '
z.B. Im Modul:
Sub Ziel()
Set ShZ=Worksheets(Ziel)
Shz.cells(z,1)= ufrm1.TxtArtName.Text
End Sub