Textfelder füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox TextBox


Excel-Version: 7
nach unten

Betrifft: Textfelder füllen
von: Georg
Geschrieben am: 26.04.2002 - 07:41:14

Hi
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


nach oben   nach unten

Re: Textfelder füllen
von: Michael Scheffler
Geschrieben am: 26.04.2002 - 08:45:30

Hallo, als erstes solltest Du das Change-Ereignis für eine Listbox benutzen. In der eigenen Form kannst Du Dir "Me" und Dein "With" sparen. Und eine Textbox hat keinen Listindex! Gruß Micha

nach oben   nach unten

Re: Textfelder füllen
von: Georg
Geschrieben am: 26.04.2002 - 09:39:33

Hallo, Micha vielen Dank für Deine Hilfe. Funktioniert. Als Anfänger in VBA muss ich noch ne Menge lernen. Schönes Wochenende und Gruß; Georg

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Textfelder füllen"