Variablenübergabe von UF zu UF klappt nicht
09.12.2003 15:51:11
LotharR
in einer (sehr komplexen) UF_1 habe ich u.a. eine Variable "aa" (integer) für die aktive Zeile (aus Scrollereignis) innerhalb der UF als Public definiert. Über eine Anzeige Sub werden dann die benötigten Felder des Tabellenblattes ausgewählt und angeezeigt:
Schnipsel Scrollereignis:
Private Sub ScrollBar1_change()
Worksheets("Aktuelle Preise").Activate
aa = Me.ScrollBar1.Value
Anzeigen
End Sub
Schnipsel Anzeigen:
Private Sub Anzeigen()
Me.MatNr.Value = Cells(aa, 1)
Me.Kurztext.Value = Cells(aa, 2)
Me.Code.Value = Cells(aa, 3)
Me.Wert_kum.Value = Format(Cells(aa, 4), "0,000.00")
Me.Menge_kum.Value = Format(Cells(aa, 5), "0,000.0")
End Sub
---
Soweit so gut.
Nun möchte ich in einer zweiten UF weitere Details darstellen. Dazu wollte ich entweder die Variable "aa" oder zumindest die aktive Zeile der UF_1 an die UF_2 übergeben. Leider schlagen alle Versuche fehl:
'Button auf der UF_1:
Private Sub CommandButtonZeigeDetails_Click() '*** s. unten
Dim aad As Integer
aad = ActiveCell.Row 'entweder so oder: aad = aa
'Me.Hide
Load UserForm3d
UserForm3d.Show
'Me.Show
End Sub
*** (aad is Integer) ergibt: ... entspricht nicht dem definierten Typ
*** () 'leer' ergibt: Laufzeitfehler 1004 beim Load bzw. Show
Me.Hide bringt auch nichts ...
Bin für jeden Tipp dankbar
Liebe Grüsse
Lothar