Textboxen ändern und in Tabelle zurückschreiben
01.02.2017 12:58:30
Christian
Zu meinem Anliegen:
Ich habe eine Userform auf der habe ich eine Listbox ("Listbox3"), welche über ein Dropdownmenü gesteuert wird. Das funktioniert alles wunderbar.
Die Listbox zeigt nur 4 Spalten an Daten an, es ist nur ein Bruchteil da das Tabellenblatt 22 Spalten beinhaltet. Die Listbox ist auch nur als Navigationshilfe gedacht. Ich lese die Werte mittels Textboxen aus. Auch das funktioniert einwandfrei.
Nun zum Problem. Ich möchte es ermöglichen, dass die Inhalte der Textboxen editierbar sind, so dass diese nach Anpassung auch ihren neuen Wert genau dort ablegen, an dem sie ihn gefunden haben.
Mein bisheriger Code (gekürzt)
'Zum Auslesen der Listbox3 für die Textboxen damit alle 22 Spalten angezeigt werden können - Es sind nicht alle Textboxen aufgelistet - habe dies aus optischen Gründen gekürzt.
_____________________________________________________________________________________
Private Sub ListBox3_Click()
With ListBox3
EG_Alle.TextBox58 = .List(.ListIndex, 0)
End With
Dim varTMP As Variant
With Tabelle10 'Ist ein zusätzliches Tabellenblatt auf dem 2 Informationen abgegriffen werden
varTMP = Application.Match(TextBox58.Text, .Range("A:A"), 0)
If Not IsError(varTMP) Then
TextBox60.Text = .Cells(varTMP, 2).Value
TextBox59.Text = .Cells(varTMP, 3).Value
End If
End With
With Tabelle12 ' Dieses Tabellenblatt enthält die Werte, die auch angepasst werden sollen
varTMP = Application.Match(TextBox58.Text, .Range("A:A"), 0)
If Not IsError(varTMP) Then
TextBox64.Text = .Cells(varTMP, 2).Value
TextBox66.Text = .Cells(varTMP, 3).Value
TextBox67.Text = .Cells(varTMP, 4).Value
TextBox65.Text = .Cells(varTMP, 6).Value
TextBox61.Text = .Cells(varTMP, 8).Value
TextBox73.Text = .Cells(varTMP, 12).Value
TextBox68.Text = .Cells(varTMP, 5).Value
TextBox76.Text = .Cells(varTMP, 7).Value
TextBox78.Text = .Cells(varTMP, 13).Value
TextBox69.Value = .Cells(varTMP, 10).Value
TextBox71.Value = .Cells(varTMP, 11).Value
End If
End With
End Sub
_____________________________________________________________________________________
Auf Knopfdruck werden die Textboxen auf "Locked = False" gesetzt und können angepasst werden. Aber wie bringe ich den Textboxen bei, den angepassten Wert auch wieder dahinzuschreiben wo sie den alten gefunden haben?
Ich hoffe das ich es verständlich geschrieben habe :-D
Vielen Dank und viele Grüße
Christian Heinz