26.07.2016, 12:44
Hallo liebe VBA-Experten,
mit diesem Projekt wurde mir in diesem Forum bereits unglaublich viel geholfen. Ich versuche nun noch, ein kleines Problem auszubügeln. Die Datei befindet sich im Anhang.
Mit dem Userform (Eingabefeld AJ1 im Masterreiter) kann man hervorragend Datensätze eingeben, suchen und updaten. Wenn ich jedoch Datensätze händisch eingebe, kann ich sie via Userform suchen, aber nicht updaten. Weiß zufällig jemand, wie man den Code ändern muss, damit ich auch händisch eingegebene Daten upgedatet werden können?
Hier der betreffende Code:
Private Sub CommandButton4_Click()
Dim i As Integer
Dim rngFound2 As Range
With Sheets("Master")
For i = 1 To 35
.Cells(rngFound.Row, i) = Controls("TextBox" & i).Text
Next
End With
With Sheets("Projekt X")
Set rngFound2 = .Columns(1).Find(TextBox1.Text, _
LookIn:=xlValues, _
lookat:=xlWhole)
For i = 1 To 35
.Cells(rngFound2.Row, i) = Controls("TextBox" & i).Text
Next
End With
Unload Me
End Sub
Ich würde mich riesig über jegliche Hilfe/ Tipps freuen!
Vielen Dank und beste Grüße,
David
mit diesem Projekt wurde mir in diesem Forum bereits unglaublich viel geholfen. Ich versuche nun noch, ein kleines Problem auszubügeln. Die Datei befindet sich im Anhang.
Mit dem Userform (Eingabefeld AJ1 im Masterreiter) kann man hervorragend Datensätze eingeben, suchen und updaten. Wenn ich jedoch Datensätze händisch eingebe, kann ich sie via Userform suchen, aber nicht updaten. Weiß zufällig jemand, wie man den Code ändern muss, damit ich auch händisch eingegebene Daten upgedatet werden können?
Hier der betreffende Code:
Private Sub CommandButton4_Click()
Dim i As Integer
Dim rngFound2 As Range
With Sheets("Master")
For i = 1 To 35
.Cells(rngFound.Row, i) = Controls("TextBox" & i).Text
Next
End With
With Sheets("Projekt X")
Set rngFound2 = .Columns(1).Find(TextBox1.Text, _
LookIn:=xlValues, _
lookat:=xlWhole)
For i = 1 To 35
.Cells(rngFound2.Row, i) = Controls("TextBox" & i).Text
Next
End With
Unload Me
End Sub
Ich würde mich riesig über jegliche Hilfe/ Tipps freuen!
Vielen Dank und beste Grüße,
David