Hallo, das Problem ist das folgende:
-Ich mache über eine Userform "Abschnittsabfrage" eine Abschnittsabfrage an den User
-danach wird der User automatisch in eine weitere Userform "Wertabfrage" weitergeleitet, in der Werte aus dem abschnitt eingelesen werden sollen anhand der vorher gestellten abfrage!
- Die Abschnittsvariable AB wurde wie folgt in Modul 1 deklariert:
Global AB As Integer
Option Explicit
Private Sub Workbook_Open()
End Sub
Die abschnittsabfrage wurde dann so in der Userform "Abschnittsabfrage" definier
Public Sub uebernehmen_Click()
AB = TextBox1.Value
'Cells(5, 70) = ActiveSheet.UsedRange.Rows.Count
x = (ActiveSheet.UsedRange.Rows.Count - 4) / 13
If AB > x Or AB < 1 Then
Unload Me
MsgBox ("Der angegebene Abschnitt existiert nicht!")
Else
Unload Me
Wertabfrage.Show (AB)
End If
End Sub
und die Werabfrage soll dann ermal nur der einfachheit halber folgenden code aus führen:
Public Sub Wertabfrage_Activate(AB As Integer)
Label17.Caption = "Abschnitt" + AB.tostring.Text
TextBox8.Value = AB
Cells(10, 70) = AB
End Sub
Also den Wert AB der vorher eingegeben wurde soll in verschiedenen Formen zurück gegeben werden.
Leider Funktioniert die Rückgabe des wertes garnicht! Alle ausghaben sind leer! Nun vermute ich, das ich da irgendetwas bei der übergabe falsch gemacht habe.
Ich wäre sehr dankbar über jede information die ich bekommen könnte!
|