ComboBox-Daten verändert in Zelle zurückschreiben

Hallo alle zusammen,
ich hoffe mein Problem vernünftig rüberbringen zu können.
Ich öffne per Klick auf einen im Tabellenblatt erstellten Button eine ComboBox, in welcher automatisch die Daten der Zellen A1:A20 zur Auswahl stehen.
Ich möchte jetzt den in der ComboBox selektierten Wert (z.B. der aus Zelle A1) überschreiben. Am liebsten würde ich in einem Textfeld direkt daneben den neuen Text eingeben und anschließend nur noch "OK" drücken müssen und der Zellinhalt ist geändert.
Wenn also vorher in A1 ein Wert 45 stand, ich in der ComboBox 45 ausgewählt habe und in dem Texteingabefeld daneben 77 eingegeben habe, soll nun auch 77 in A1 stehen.
Bei mir scheitert es an dem Texteingabefeld neben der ComboBox und dem überschreiben der Daten der entsprechenden Zelle.
Hat da jemand eine Idee wie das zu lösen ist?
Danke schon mal im voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then If ComboBox1.ListIndex -1 Then _ Range(ComboBox1.ListFillRange).Cells(ComboBox1.ListIndex + 1) = CLng(TextBox1) End If End Sub

Private Sub ComboBox1_Change() Worksheets("Tabelle1").Range("A1:A4").Value = Me.ComboBox1.Value End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "A1:A4" End Sub

Das geht so nicht - dazu musst du die ComboBox direkt füllen und den ListIndex kann man dann auch nicht mehr so ohne weiteres verwenden. Folgender Code im UserForm:

Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_AfterUpdate()
Dim lngIndex As Long
lngIndex = ComboBox1.ListIndex
ComboBox1.Clear
UFFuellen
ComboBox1.ListIndex = lngIndex
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If ComboBox1.ListIndex  -1 Then
Cells(ComboBox1.List(ComboBox1.ListIndex, 1), 1) = CLng(TextBox1)
End If
End If
End Sub
Private Sub UserForm_Initialize()
UFFuellen
End Sub
Private Sub UFFuellen()
Dim lngZeile As Long
For lngZeile = 1 To 9
If lngZeile = 5 Then lngZeile = 6
Me.ComboBox1.AddItem Cells(lngZeile, 1)
Me.ComboBox1.List(ComboBox1.ListCount - 1, 1) = lngZeile
Next lngZeile
End Sub

Mit der Prozedur UFFuellen werden der ComboBox die Zellinhalte und die Zeile zugewiesen. Die Zeile wird nicht angezeigt, da die ComboBox nur eine Spalte hat - sie wird aber benötigt, um den textBox-Inhalt in die richtige Zeile zu schreiben. Die Prozedur wird sowohl beim Starten des UserForms aufgerufen und nachdem in die TextBox ein Wert eingtragen wurden, damit der neue Wert in der ComboBox auch angezeigt wird.

Private Sub CommandButton1_Click() Unload Me End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then If ComboBox1.ListIndex -1 Then _ Range(ComboBox1.RowSource).Cells(ComboBox1.ListIndex + 1) = CLng(TextBox1) End If End Sub Private Sub Spielernamen_aendern_Initialize() Me.ComboBox1.RowSource = "M2:M41" End Sub Private Sub UserForm_Click() End Sub

Beliebteste Forumthreads (12 Monate)

ComboBox-Daten verändert in Zelle zurückschreiben

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

333 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox-Daten verändert in Zelle zurückschreiben

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

333 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread