Bestehenden Datensatz ändern/ überschreiben
17.04.2016 22:01:21
Robby
also ich habe jetzt eine Lösung gefunden mir nach einem bestimmten Wert ein bestimmtes Tabellenblatt zu durchsuchen. Das gefundene wird mir dann in angezeigt und auch alle anderen Werte aus anderen Spalten (des selben Tabellenblattes), werden z.B. in Listboxen ausgegeben. Soweit, so gut. Aber jetzt will ich den gefundenen Datensatz verändern und in die bestehende Zeile speichern bzw. überschreiben.
Momentaner Code:
Option Explicit
Private Sub CommandButton1_Click()
' Hier soll der Code zum Ändern des Datensatzes stehen
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
' Das ist der Bereich der wunderbar für das Suchen funktioniert
Dim WkSh As Worksheet
Dim rZelle As Range
Set WkSh = ThisWorkbook.Worksheets("Teilnehmer")
If TextBox2.Value "" Then
With WkSh.Columns(2)
Set rZelle = .Find(TextBox2.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox1.Value = WkSh.Cells(rZelle.Row, 1).Value
ListBox4.Value = WkSh.Cells(rZelle.Row, 3).Value
ListBox1.Value = WkSh.Cells(rZelle.Row, 4).Value
ListBox2.Value = WkSh.Cells(rZelle.Row, 5).Value
ListBox3.Value = WkSh.Cells(rZelle.Row, 6).Value
Else
MsgBox "Der gesuchte Begriff """ & TextBox2.Value & _
""" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
TextBox2.SetFocus
End If
End With
Else
MsgBox "Sie müssen einen Suchbegriff eingeben - danke." & _
48, " Hinweis für " & Application.UserName
TextBox2.SetFocus
End If
End Sub