Daten aus Userform in Tabelle übergeben

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim wert As String Dim firstAddress As String wert = Me.ComboBox1 With Worksheets("Tabelle1").Range("A1:A500") Set c = .Find(wert, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then firstAddress = c.Address Do If c.Offset(0, 2) "" Then MsgBox "Belegt" Exit Do Else c.Offset(0, 2) = IIf(IsNumeric(Me.TextBox2), CDbl(Me.TextBox2), Me.TextBox2) End If Set c = .FindNext(After:=c) Loop Until c.Address = firstAddress End If End With End Sub

Hallo Franz, vielen Dank für deine Hilfe.
Ich denke das ich mich falsch ausgedrückt habe, bitte entschuldige.
Es hat auch mit meiner Antwort etwas länger gedauert, da ich mir ersteinmal Excel Jaenie installieren musste.
Das hat funktioniert, ich hoffe das ich damit mein Anliegen etwas besser darstellen kann.
Hier der Versuch einer Erklärung meines Anliegens.
Tabelle1

	A	B	C	D
1	Linie	Bezeichnung
2	Linie 1	ddd	12A	mit der Userform und einer Listbox suche ich aus dieser Liste einen Wert BSP: Linie 1 ddd
3	Linie 1	GP		in der TextBoxder Userform gebe ich hierzu einen Wert ein BSP: 12A, um ihn dann zu übergeben.
4	Linie 1	LP		Dieser Wert darf dann auch nur in der dazugehörigen Zelle C1 geschrieben werden
5	Linie 1	GKP		C2 und C3 müssen leer bleiben, da in Spalte B ja ein anderer Wert als der ausgesuchte steht.
6	Linie 10	KP
7	Linie 10	LP		Wenn aber in C2 schon ein Text steht, darf dieser nicht überschrieben werden, sondern es muss ein Hinweis kommen MSGBOX BELEGT!
8	Linie4	VP		das gleich würde für alle eingaben zutreffen.
9	Linie5	77
10				Die Listbox ist zweizeilig, da in Spalte A die gleichen Werte stehen und ich dachte, dass ich, wenn die Spalte B auch angezeigt wird, dann immer genau die richtige Zeile sehe, auswähle und auch beschreibe, leider funktioniert es aber nicht.

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
https://www.herber.de/bbs/user/97928.xls
Ich hoffe du/ihr könnt es so besser nachvollziehen.
LG Lisa

Private Sub CommandButton1_Click() Dim Zeile As Long With Me.ComboBox1 If .ListIndex = -1 Then MsgBox "Bitte erst in Combobox einen Wert auswählen" Else Zeile = .ListIndex + 1 With Worksheets("Tabelle1") Set c = .Cells(Zeile, 1) If c.Offset(0, 2) "" Then MsgBox "Belegt" Else If IsNumeric(Me.TextBox2) Then c.Offset(0, 2) = CDbl(Me.TextBox2) Else c.Offset(0, 2) = Me.TextBox2 End If End If End With End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Daten aus Userform in Tabelle übergeben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Userform in Tabelle übergeben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread