25.07.2016, 10:22
Hallo zusammen,
ich habe ein wahrscheinlich sehr einfach zu lösendes Problem:
Ich habe ein Userform mit mehreren Buttons. Nun möchte ich, dass einer dieser Buttons eine Updatefunktion erfüllt (klappt schon) und zusätzlich das Userform schließt. Ich weiß, dass das ganze mit dem Code Unload Me funktioniert... Ich weiß nur leider nicht genau, wie ich ihn einbaue. (Tut mir leid, ich bin völliger Neuling in Sachen VBA)
Hier mein Code:
Ich würde mich riesig freuen, wenn mir hier jemand weiterhelfen könnte!
Danke und mit besten Grüßen,
David
ich habe ein wahrscheinlich sehr einfach zu lösendes Problem:
Ich habe ein Userform mit mehreren Buttons. Nun möchte ich, dass einer dieser Buttons eine Updatefunktion erfüllt (klappt schon) und zusätzlich das Userform schließt. Ich weiß, dass das ganze mit dem Code Unload Me funktioniert... Ich weiß nur leider nicht genau, wie ich ihn einbaue. (Tut mir leid, ich bin völliger Neuling in Sachen VBA)
Hier mein Code:
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
End SubIch würde mich riesig freuen, wenn mir hier jemand weiterhelfen könnte!
Danke und mit besten Grüßen,
David