Problem bei Nutzung zweier Userforms
02.10.2017 15:55:37
Holger
ich habe eine Userform(UsrListe) programmiert, in der alle Funktionen auch funktionieren. Sie wird mit daten aus Tabelle1 gefüllt und über einen Commandbutton gestartet.
Für eine weitere Funktion habe ich eine zweite Userform(UsrImport) programmiert, die über einen anderen Button gestartet wird. In dieser ist eine Listbox, die aus Tabelle 5 mit Daten gefüllt wird. In dieser soll der Nutzer einen Datensatz auswählen.
Dann soll sich die erste Userform(Usrliste) zur Bearbeitung der Daten öffnen und die Daten aus _
Tabelle 5 in die Textfelder einfügen. Dazu habe ich in der Userform UsrImport folgende Prozedur _ geschrieben:
Private Sub ListBox1_Click()
Dim lngzeile1 As Long
lngzeile1 = Me.ListBox1.Column(4, Me.ListBox1.ListIndex)
UsrListe.Show
With UsrListe
.TextBox19.Value = Tabelle5.Cells(lngzeile1, 1).Value
.TextBox20.Value = Tabelle5.Cells(lngzeile1, 2).Text
.TextBox1.Value = Tabelle5.Cells(lngzeile1, 3).Value
.TextBox2.Value = Tabelle5.Cells(lngzeile1, 4).Value
.TextBox3.Value = Tabelle5.Cells(lngzeile1, 5).Value
.TextBox4.Value = Tabelle5.Cells(lngzeile1, 6).Value
.TextBox5.Value = Tabelle5.Cells(lngzeile1, 7).Value
end with
End Sub
Leider zeigt er mir die Userform Usrliste leer an.
Hat jemand eine Idee, wie ich die Daten in die UsrListe hineinbekomme?
Vielen DAnk im Voraus für Eure Antworten.
Gruß
Holger