Textfelder füllen
26.04.2002 07:41:14
Georg
ich habe Probleme mit Textfelder füllen aus einer Listenauswahl.
Mit nachfolgendem Makro versuche ich das zu lösen.
Erhalte aber immer eine Fehlermeldung (Methode oder Datenobjekt nicht gefunden) bei der Auswahl "ListIndex".
weiss jemand Rat. Bin für jeden Hinweis dankbar.
Private Sub ListBox1_Click()
Dim auswahl As Integer
auswahl = _
Me.TextBox1.ListIndex
With Me
.TextBox1 = ListBox1.Value
.TextBox2 = [a2].Offset(auswahl, 1)
.TextBox3 = [a2].Offset(auswahl, 2)
.TextBox4 = [a2].Offset(auswahl, 3)
End With
End Sub
Vielen Dank und Gruß; Georg
Anzeige