ich habe eine Userform mit einer Combobox einer und einer Textbox erstellt.
Ich suche mit der zweispaltigen Combobox Werte aus der Tabelle1, Spalte A:B einen Wert und will mittels Textbox in Spalte C einen weiteren Wert übergeben.
Das funktioniert nur bedingt, da die Werte in Spalte A:A doppelt vorkommen und immer nur der erste Wert gefunden wird, zweite und dritte bleiben unberücksichtigt.
Es dürfen auch keine Werte überschrieben werden. Steht in Spalte C:C also schon ein Wert muss per MsgBox drauf hingewiesen und abgebrochen werden.
Hierzu benötige ich allerdings Eure Hilfe.
mein Code dazu: Private Sub CommandButton1_Click() Dim wert As String Dim test As String wert = Me.ComboBox1 With Worksheets("Tabelle1").Range("A1:A500") Set c = .Find(wert, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address test = c.Value If test = wert Then c.Offset(0, 2).Select If Selection "" Then MsgBox "Belegt" Else c.Offset(0, 2) = Me.TextBox2 End If End If End If End With End Sub
Zur besseren Erklärung, so hoffe ich zumindest. die Beispielmappe anbei.
https://www.herber.de/bbs/user/97917.xls
Vielen Dank für Eure Bemühungen.
LG Lisa