geänderte Werte aus Userform zurückspeichern
27.02.2019 11:14:08
Robert
ich habe mir eine Userform erstellt. Darin werde mittels Suchkriterium "ID" alle der gewählten _
ID zugehörigen Werte der Zeile ausgewählt und ausgegeben. Die ID wird dabei in einem Label _
ausgegeben und alle anderen Werte in Textfeldern. Nun möchte ich bei Änderungen in den _
Textfeldern, dass diese in die Tabelle übernommen werden und die bestehenden Werte ersetzen (zu _ der zugehörigen ID aus Label). Anbei der Code mit welchen die Werte anhand des Kriteriums ID gesucht und ausgegeben werden.
Private Sub Suchen_ID_Click()
Dim rZelle As Range
Dim sSuchbegriff As String
If Trim$(Combo_ID.Value) "" Then
sSuchbegriff = Trim$(Combo_ID.Value)
Else
MsgBox "Sie müssen einen Suchbegiff eingeben - danke.", _
48, " Hinweis für " & Application.UserName
Exit Sub
End If
With ThisWorkbook.Worksheets("Istkalkulation").Columns(1)
Set rZelle = .Find(What:=sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
Label_ID.Caption = .Range("A" & rZelle.Row).Value
Text_Kostenstelle.Text = .Range("B" & rZelle.Row).Value
Text_Bemerkungen.Text = .Range("C" & rZelle.Row).Value
Text_Anzahl.Text = .Range("D" & rZelle.Row).Value
Combo_Einheit.Text = .Range("E" & rZelle.Row).Value
Text_EP.Text = .Range("F" & rZelle.Row).Value
Label_GP.Caption = .Range("G" & rZelle.Row).Value
Else
MsgBox "Der Begriff """ & sSuchbegriff & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
With Combo_ID
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End With
Set rZelle = Nothing
End Sub
Ich würde mich über Hilfe freuen.
Viele Grüße
Robert