wenn Listboxeintrag markiert, dann
29.04.2022 17:52:08
Hans-Jörg
ich habe Namen in einer Listbox, die aus Tabelle 1 Spalte B geladen werden. Wenn ich einen Namen in der Listbox anklicke, möchte ich, dass der Text in der Textbox in der
Zeile Tabelle 1, wo der Name in Spalte B steht, in die Zelle Spalte H gleichen Zeile wo der Name steht hineinkopiert wird.
Ich gebe also Text in die Textbox, klicke auf den Namen in der Listbox und per Button "Übertrag" möchte ich den Inhalt der Textbox in oben genannte Zeile Spalte H, Zeile wo der Name in Spalte B steht. Der folgende naive Code führt leider nicht zum Ziel. Ich wäre sehr dankbar, wenn ihr mir helfen könntet.
Private Sub Übertrag_Click()
Dim c As Range
Dim I As Long
With Worksheets("Tabelle1")
Set c = .Range("B:B").Find(ListBox1.Selected(I), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
c.Offset(0, 8) = TextBox1
End If
End With
End Sub
Hans-Jörg