UF + Modulzugriff
29.01.2004 11:16:06
andrea
kann mir jemand sagen wie ich einer variablen in meiner UF einen Wert gebe, den ich dann in einem Modul weiterverwenden kann.
hier mein code dazu:
Private Sub CheckBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim eingabe
eingabe = 1
Application.Run "index.xls!meine_prozedur"
End Sub
und hier das modul in der selben mappe
Sub meine_prozedur()
Select Case eingabe
Case 1, 2 'fuer den fall Nr
arr = Array("Nr", "tan")
Case 3, 4 'fuer den fall No
arr = Array("No", "tan")
End Select
For i = 0 To 1
Cells.Find(What:=arr(i), After:=[A1], LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, MatchByte:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0) = "[keine]"
Next
End Sub
aber in "meine_prozedur" ist eingabe nicht = 1 sondern leer?
wie kann ich die variable übergeben?
mit public hab ich es auch schon probiert, funktioniert leider nicht.
danke andrea