Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

ComboBox +TextBox (UserForm)



Excel-Version: 9.0 (Office 2000)

Betrifft: ComboBox +TextBox (UserForm)
von: Daniele
Geschrieben am: 03.06.2002 - 09:14:09

Hallo

weiteres Problem mit UserForm:
In einer UserForm gibt es ein Combobox mit der ich eine bestimmte Zeile auswähle. Wie kriegt man nicht nur den ausgewählten Wert, sondern verschiedene Werte der betreffenden Zeile in TextBoxes geschrieben?
Habe es irgendwie so versucht, allerdings gibt das nur die Zeilennummer wieder:
Me.TextBox1.Value = ComboBox2.ListIndex + 1

Die so eingeblendeten Werten möchte ich ändern und in den Datensatz schreiben , oder auch die ganze Zeile löschen.

Danke üfr eure ideen
Gruss, Daniele

  

Re: ComboBox +TextBox (UserForm)
von: L.Vira
Geschrieben am: 03.06.2002 - 09:31:15

Der Listindex ist ja auch eine Zahl, du musst
TextBox1 = ComboBox2 eingeben.

  

Re: ComboBox +TextBox (UserForm)
von: Daniele
Geschrieben am: 03.06.2002 - 09:42:01

Hi L.Vira

Ich möchte aber nicht nur der Wert der ComboBox alleine, sondern verschiedene Werte aus dieser Zeile (in mehreren TextBoxes natürlich)

Gruss, Daniele


  

Re: ComboBox +TextBox (UserForm)
von: Michael Scheffler
Geschrieben am: 03.06.2002 - 10:01:30

Hallo,

was heißt: verschiedene Werte aus der Combobox? Sind dort in einer Zeile Strings mit Leerzeichen?

Gruß

Micha

  

Re: ComboBox +TextBox (UserForm)
von: Daniele
Geschrieben am: 03.06.2002 - 11:03:27

Hallo Michael

in der ComboBox wird ein Artikel von der Datenbank gewählt. nun möchte ich die dazugehörigen Werte dieser Auswahl (Zeile) in ebensoviele textboxen übertragen.
ziel ist es die datenbank-einträge ändern oder löschen zu können.

danke, daniele


  

Re: ComboBox +TextBox (UserForm)
von: guenter
Geschrieben am: 03.06.2002 - 11:09:21

hm....

Private Sub UserForm_Initialize()


Sheets("Tabelle1").Select
ComboBox1.Clear
Dim i%
    i = 3
    Do Until IsEmpty(Cells(i, 1))
        ComboBox1.AddItem Cells(i, 1)
        i = i + 1
    Loop
    
End Sub

Private Sub ComboBox1_Change()
'füllt die cobobox mit den Datensätzen
Dim r%
    r = ComboBox1.ListIndex + 3
    TextBox1.Text = Cells(r, 1)
    TextBox2.Text = Cells(r, 2)
    TextBox3.Text = Cells(r, 3)
    TextBox4.Text = Cells(r, 4)
    TextBox5.Text = Cells(r, 5)
End Sub


als beispiel ,kann dir die mappe auch schicken
Hans seine cd oder sein Tutorial zu empfehlen
mfg guenter

  

Re: ComboBox +TextBox (UserForm)
von: Daniele
Geschrieben am: 03.06.2002 - 11:26:24

Hallo Guenter

in diesem Sinne habe ich es gemeint. nur klappt es nicht so ganz. ich wäre dir dankbar wenn du mir die Mappe schicken könntest.

Danke
Gruss, daniele


 

Beiträge aus den Excel-Beispielen zum Thema "ComboBox +TextBox (UserForm)"