|
Hallo zusammen,
ich habe ein Problem und leider komme ich nicht weiter.
Ich möchte Daten in einer Userform (einzelne Textboxen) einlesen was auch funktioniert
Hier der Code um Daten einzulesen
Private Sub CommandButton2_Click()
Dim myRange As Range
Set myRange = Worksheets("Stammdaten").Range("A:AT")
On Error Resume Next
TextBox1.Value = ComboBox2.Text 'Namen übernehmen und in TB1
TextBox3.Value = Application.WorksheetFunction.VLookup(ComboBox2, myRange, 3, False) 'Eintritt
TextBox2.Value = Application.WorksheetFunction.VLookup(ComboBox2, myRange, 2, False) 'Kürzel
TextBox4.Value = Application.WorksheetFunction.VLookup(ComboBox2, myRange, 4, False) 'Austritt
If Err.Number <> 0 Then MsgBox ("Fehler")
End Sub
Die Daten die eingelesen wurden möchte ich aber nun auch ändern.
Mein Problem ist: ich komme einfach nicht auf den Code das die einzelnen Daten in der jeweiligen Zelle geändert werden (ich wäre auch zufrieden wenn die Zeile gelöscht wird und am Ende der Rohdaten wieder "geändert" hinzugefügt wird)
ICh hoffe es kann mir jemand helfen
Danke & VG
Daniel
|