Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1440to1444

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

UF- Wenn Combobox Wert dann TextBox

Forumthread: UF- Wenn Combobox Wert dann TextBox
5 Beiträge zu diesem Forumthread
Anzeige
387 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

16.08.2015 13:43:44

Heinz

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 13:48:21

Sepp
AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 18:25:27

Heinz
AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 20:17:55

Heinz
AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 20:25:20

Sepp
AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 20:28:04

Heinz

AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 13:48:21

Sepp

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

AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 18:25:27

Heinz

Hallo Josef
Recht herzlichen Dank.
gruß Heinz

AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 20:17:55

Heinz

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

AW: UF- Wenn Combobox Wert dann TextBox

16.08.2015 20:25:20

Sepp

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