Textbox aus Combobox füllen

Private Sub ComboBox1_Change() Sheets("Tabelle1").Activate Dim lngZeile As Long lngZeile = ComboBox1.ListIndex + 3 If lngZeile > 0 Then TextBox2.Value = Cells(lngZeile, 1).Value TextBox3.Value = Cells(lngZeile, 4).Value End If If ComboBox1.MatchFound = True Then ComboBox2.ListIndex = ComboBox1.ListIndex End If End Sub

Private Sub ComboBox2_Change() Sheets("Tabelle1").Activate Dim lngZeile As Long lngZeile = ComboBox2.ListIndex + 3 If lngZeile > 0 Then TextBox2.Value = Cells(lngZeile, 1).Value TextBox3.Value = Cells(lngZeile, 4).Value End If If ComboBox2.MatchFound = True Then ComboBox1.ListIndex = ComboBox2.ListIndex End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
vielen Dank für Deine Hilfe.
Ich hab wohl woanders ein Problem. Ich hatte bei beiden TB ControlSource angegeben.
Hab das jetzt mal rausgenommen und mir folgendes "zusammengebaut".
Das ist bestimmt nicht illegant, funktioniert aber erst mal. Hast Du oder vielleicht jemand anderer eine bessere Lösung?


Private Sub ComboBox1_Change()
Sheets("Tabelle1").Activate
Dim lngZeile As Long
lngZeile = ComboBox1.ListIndex + 3
If lngZeile > 0 Then
TextBox2.Value = Cells(lngZeile, 1).Value
TextBox3.Value = Cells(lngZeile, 4).Value
Sheets("Tabelle2").Select
Range("B11").Value = TextBox1.Text
Range("F11").Value = TextBox3.Text
End If
If ComboBox1.MatchFound = True Then
ComboBox2.ListIndex = ComboBox1.ListIndex
End If
End Sub


Private Sub ComboBox2_Change()
Sheets("Tabelle1").Activate
Dim lngZeile As Long
lngZeile = ComboBox2.ListIndex + 3
If lngZeile > 0 Then
TextBox2.Value = Cells(lngZeile, 1).Value
TextBox3.Value = Cells(lngZeile, 4).Value
Sheets("Tabelle2").Select
Range("B11").Value = TextBox1.Text
Range("F11").Value = TextBox3.Text
End If
If ComboBox2.MatchFound = True Then
ComboBox1.ListIndex = ComboBox2.ListIndex
End If
End Sub

Vielen Dank für jede Hilfe
Grüße
Gisela

Private Sub ComboBox1_Change() Sheets("Tabelle1").Activate Dim lngZeile As Long lngZeile = ComboBox1.ListIndex + 3 If lngZeile > 0 Then TextBox2.Value = Cells(lngZeile, 1).Value TextBox3.Value = Cells(lngZeile, 4).Value Sheets("Tabelle2").Select Range("B11").Value = TextBox2.Text Range("F11").Value = TextBox3.Text End If If ComboBox1.MatchFound = True Then ComboBox2.ListIndex = ComboBox1.ListIndex End If End Sub

Private Sub ComboBox2_Change() Sheets("Tabelle1").Activate Dim lngZeile As Long lngZeile = ComboBox2.ListIndex + 3 If lngZeile > 0 Then TextBox2.Value = Cells(lngZeile, 1).Value TextBox3.Value = Cells(lngZeile, 4).Value Sheets("Tabelle2").Select Range("B11").Value = TextBox2.Text Range("F11").Value = TextBox3.Text End If If ComboBox2.MatchFound = True Then ComboBox1.ListIndex = ComboBox2.ListIndex End If End Sub

Hallo Gisela,
ich habe nur drei kleine Anmerkungen welche sich vor allem auszahlen wenn der Code grösser wird:
- Deklarationen immer zuerst in den Prozeduren vornehmen
- Offsets (wie die drei bei dir) als Konstanten ablegen wenn später in der Tabelle etwas ändert musst du nur diese Konstante ändern und nicht suchen wo sie überall im Code benutzt wird.
- Activate / Select sollten nicht verwendet werden da dies meistens auch nicht nötig ist
Ich bin selber nur Anfänger möchte aber diese Tipps (welche ich auch erhalten habe weitergeben)
Der Code auf diese Weise bereinigt sieht so aus:

Option Explicit
Const Zeilenoffset = 3
Private Sub ComboBox1_Change()
Dim lngZeile As Long
lngZeile = ComboBox1.ListIndex + Zeilenoffset
With Worksheets("Tabelle1")
    .TextBox2.Value = Cells(lngZeile, 1).Value
    .TextBox3.Value = Cells(lngZeile, 4).Value
End With
With Workscheets("Tabelle2")
    .Range("B11").Value = TextBox1.Text
    .Range("F11").Value = TextBox3.Text
End With
If ComboBox1.MatchFound = True Then
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Gruss
Daniel

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textbox aus Combobox füllen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread