UF- Wenn Combobox Wert dann TextBox

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

Betrifft: UF- Wenn Combobox Wert dann TextBox
von: Heinz H
Geschrieben am: 16.08.2015 13:43:44

Hallo Leute im Forum
Habe in einer UF eine Combobox,die ich mit Werten aus Sheets"Allgemeiner Spielplan"
füllen möchte.
In Sheets Allgemeiner Spielplan steht in B4 "Runde 1", in B10 "Runde 2" bis B214 "Runde 36"
Also immer 6 Zellen darunter, B4,B10,B16, bis B214
Nun möchte ich wenn ich mit der CommboBox zb. "Runde 1" auswähle,sollten mir die Werte
von E4 in einer Textbox erscheinen.
Es geht um einen Spielplan,wo ich die Spiele jeder Runde in eine UF reinladen kann.
Habe ein JPG dazugehängt,Datei ist leider zu groß
Könnte bitte mir dazu jemand weiterhelfen?
Gruß, Heinz
Userbild

Bild

Betrifft: AW: UF- Wenn Combobox Wert dann TextBox
von: Sepp
Geschrieben am: 16.08.2015 13:48:21
Hallo Heinz,
freihändig! (Name der ComboBox anpassen!)

If ComboBox1.ListIndex > -1 Then
TextBox4 = Sheets("Allgemeiner Spielplan").Cells(ComboBox1.ListIndex * 6 + 4, 5).Text
End If
Gruß Sepp


Bild

Betrifft: AW: UF- Wenn Combobox Wert dann TextBox
von: Heinz H
Geschrieben am: 16.08.2015 18:25:27
Hallo Josef
Recht herzlichen Dank.
gruß Heinz

Bild

Betrifft: AW: UF- Wenn Combobox Wert dann TextBox
von: Heinz H
Geschrieben am: 16.08.2015 20:17:55
Hallo Sepp
Leider funktioniert es doch nicht wie es sollte.
Habe nun ein kleines Beispiel hochgeladen.
Gruß Heinz
https://www.herber.de/bbs/user/99629.xlsm

Bild

Betrifft: AW: UF- Wenn Combobox Wert dann TextBox
von: Sepp
Geschrieben am: 16.08.2015 20:25:20
Hallo Heinz,
deine ComboBox musst du natürlich schon füllen!

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub ComboBox1_Change()

With Sheets("Allgemeiner Spielplan")
  If ComboBox1.ListIndex > -1 Then
    TextBox1 = .Cells(ComboBox1.ListIndex * 6 + 4, 5).Text
    TextBox2 = .Cells(ComboBox1.ListIndex * 6 + 4, 6).Text
  End If
End With

End Sub


Private Sub UserForm_Activate()
Dim lngI As Long

For lngI = 1 To 36
  ComboBox1.AddItem "Runde " & lngI
Next

End Sub


Gruß Sepp


Bild

Betrifft: AW: UF- Wenn Combobox Wert dann TextBox
von: Heinz H
Geschrieben am: 16.08.2015 20:28:04
Hallo Sepp
Einfach G E N I A L !!!
Recht herzlichen DANK
gruß Heinz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "UF- Wenn Combobox Wert dann TextBox"