ich beisse mir gerade die Zähne aus. Ich habe ein UF mit Listbox und mehrere Textboxes. Mittels dem nachstehenden Code suche ich in der Tabelle eins die Begriffe aus den ersten beiden Textboxen. Die Werte werden dann in die TextBoxen übertragen.
Public Sub SuchenListBox1()
Dim WkSh As Worksheet
Dim rZelle As Range
Dim sFundst1 As String
Dim sFundst2 As String
Dim sSuchbegr_1 As String
Dim sSuchbegr_2 As String
Dim sSuchbegr_3 As String
Dim sSuchbegr_4 As String
Dim bGefunden As Boolean
' sSuchbegr_1 = "Akkuschrauber"
' sSuchbegr_2 = "schwarz"
sSuchbegr_1 = "01.01.2016"
sSuchbegr_2 = "1"
sSuchbegr_3 = "Test1"
sSuchbegr_4 = "1,00"
Set WkSh = Worksheets("Tabelle1") ' sFundst1
Else
MsgBox "Der Suchbegriff """ & sSuchbegr_1 & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
Exit Sub
End If
End With
If bGefunden = True Then
UserForm1.TextBox1 = sSuchbegr_1
UserForm1.TextBox2 = sSuchbegr_2
UserForm1.TextBox3 = sSuchbegr_3
UserForm1.TextBox4 = sSuchbegr_4
MsgBox "Die Suchbegriffe """ & sSuchbegr_1 & " / " & sSuchbegr_2 & _
""" wurden in Zeile """ & rZelle.Row & """ gefunden." & Chr(10) & _
Chr(10) & "Der Preis beträgt " & _
Format(WkSh.Cells(rZelle.Row, 4).Text, "#,##0.00 "), _
64, " Hinweis für " & Application.UserName
Else
MsgBox "Die Suchbegriffe """ & sSuchbegr_1 & " / " & sSuchbegr_2 & _
""" wurden NICHT gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End Sub
Nun möchte ich eine oder mehrere Werte in den Textboxen ändern und die geänderten Werte in der richtigen Zeile wieder eintragen. Und genau hier ist das Problem.
Ich weiss nicht, wie ich die Daten wieder an die richtige Stelle zurück bekomme.
Ich bitte Euch um Hilfe.
Besten Dank
Gruss
Peter