Zeile finden und überschreiben VBA
19.08.2020 11:00:04
Anne
ich benötige einmal Ihre Hilfe und ich hoffe, Sie können mir helfen.
Ich ermittle mit Hilfe des Inhaltes einer Combobox eine Zeile in einer Tabelle. Die Daten werden aus der Zeile ausgelesen und in andere Comboboxen und Textboxen übertragen. Die gefüllten Comboboxen und Textboxen können geändert werden. Diese Änderungen sollen nun in die angesteuerte Zeile übertragen werden. allerdings ändert sich nur immer die erste Änderung und nicht alle, die ich mache.
Mit diesem Code fülle ich die Comboboxen:
Private Sub ComboBox_DSA_KFZKZ_Change()
'Userform je nach Kennzeichen füllen
If ComboBox_DSA_KFZKZ.Value = "" Then
ComboBox_DSA_RG.Value = ""
ComboBox_DSA_RT.Value = ""
Else
ComboBox_DSA_RG.Value = ComboBox_DSA_KFZKZ.Column(3)
ComboBox_DSA_RT.Value = ComboBox_DSA_KFZKZ.Column(4)
End If
End Sub
Mit diesem Code suche ich die entsprechende Zeile und versuche diese zu überschreiben:Private Sub Uebertragung()
'Datensatz in Liste finden und überschreiben
Dim r As Integer
Sheets("Lager").Select
r = Me.ComboBox_AL_KFZKZ.ListIndex + 2
Cells(r, 4).Value = ComboBox_DSA_RG
Cells(r, 5).Value = ComboBox_DSA_RT
End Sub
Ich habe es auch mit einer "Schleife" probiert, allerdings weiß ich nicht, ob ich das richtig gemacht habe.Private Sub Uebertragung()
'Datensatz in Liste finden und überschreiben
Dim r As Integer
With Worksheets("Lager")
For r = 2 To Me.ComboBox_DSA_KFZKZ.ListIndex + 2
Cells(r, 4).Value = ComboBox_DSA_RG
Cells(r, 5).Value = ComboBox_DSA_RT
Next r
End With
End Sub
Ich hoffe, mir kann jemand helfen.Mit freundlichen Grüßen
Anne