SVERWEIS
Thomas
Ich benötige bitte euere Hilfe!
Über eine Benutzerplattform erfasse ich Daten lt. folgenden VBA-Code. Ich suche über die Combo- _ Box eine Person aus, trage den Wert in ein TextBox ein und klicke auf einen Optionsbutton. Die Daten werden dann in dem richtigen Feld eingelesen. Nun möchte ich aber, dass in einen Bezeichnungsfeld, oder weiteren Textfeld der berechnete Wert gleich rechts daneben mit angezeigt wird. Wie muss unten angegebener Code ergänzt werden, damit das geschieht?
Private Sub cmderfassen_Click()
Dim frm As UserForm
Dim iKenn As Integer
Dim index As Long
Dim Nachname As String
Dim Werte As Variant
Set frm = UserForm2
index = frm.ComboBox1.ListIndex
On Error Resume Next
Nachname = frm.ComboBox1.List(index)
Werte = frm.TextBox1.Text
If frm.OptionButton1.Value Then iKenn = 1 'FO
If frm.OptionButton2.Value Then iKenn = 2 'BO
If frm.OptionButton3.Value Then iKenn = 8 'Prod.
Sheets("Daten").Activate
Columns("A:A").Select
On Error GoTo fehler
Selection.Find(What:=Nachname, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Select Case iKenn
Case 1
ActiveCell.Offset(0, 3).Select
Case 2
ActiveCell.Offset(0, 5).Select
Case 3
ActiveCell.Offset(0, 3).Select
Case Else
MsgBox "Fehlursache konnte nicht ermittelt werden!"
End Select
ActiveCell.Value = Werte
Exit Sub
fehler:
MsgBox "Es konnte keine Mitarbeiter gefunden werden!"
End Sub
Vielen Dank vorab für euere Hilfe!!!