Hallo zusammen,
ich bin gerade dabei VBA kennenzulernen und arbeite an meinem ersten Projekt.
Ich habe eine Tabellenblatt mit Daten (Daten1).
Über eine UserForm möchte ich durch eine ID in Spalte A zunächst angezeigt bekommen
welche zugehörige Wert in Spalte "R" steht.
Danach möchte ich diesen Wert in Spalte R durch einen neuen aus einer Combobox ersetzen.
Gleichzeitig sollte sich der dazugehörige Wert in Spalte S (die Werte in Spalte R sind in 3 Kategorien eingeteilt die in Spalte S stehen)ändern.
Die Zuordnung der Kategorien zu den Werten aus der Combobox stehen in einem sparaten Tabellenblatt.
Ich habe bereits folgenden Code:
Dim Suchwert
Suchwert = InputBox("Suche")
If Suchwert = "" Then Exit Sub
With ThisWorkbook.Worksheets("Daten1").Range("A1:U2000")
Set Suchergebnis = .Find(Suchwert, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
ThisWorkbook.Worksheets("Cockpit").Range("C7").Value = Suchergebnis
[E7] = WorksheetFunction.VLookup([Suchergebnis], Sheets("Daten1").[A:U], 11, False)
'Suchergebnis.Row
Else
MsgBox "Wert nicht vorhanden"
End If
End With
und bekomme auch ein Ergebnis in die Zelle C7. aber ich kann es weder auf einen Userform übertragen noch bekomme ich das Ergebnis des VLookup überschrieben.
Es wäre toll wenn Ihr helfen könntet.
p.s.: Für einen Tipp für ein VBA Buch mit dem ich mir vieles selbst erschliessen kann wäre ich ebenfalls dankbar.
Gruß
Tobi