ich habe folgendes Problem:
Ich habe eine Tabelle mit zwei Spalten. In Spalte A sind verschiedene Namen und in Spalte B verschiedene Codes aufgelistet. Jedem Code sind unterschiedlich viele Namen zugeordnet. Zum Beispiel gehören zum Code 509080 die Namen Hans, Otto udn Gustav.
Ich habe zwei Userforms erstellt. Mit der ersten Userform soll mit einer Textbox ein jeweiliger Code eingebenen werden und die dazugehörigen Namen in einer Listbox in einer zweiten Userform aufgelistet werden.
Den Code zur ersten Userform (siehe unuten) hab ich schon hinbekommen und der funktioniert auch soweit, aber mit der zweiten weiß ich gerade absolut keinen Anfang wie cih das in der Syntax so darstellen kann, dass nur die Werte der Spalte A (Namen) welche den gleichen Code haben angezeigt werden.
Vielen Dank im Voraus für eure Unterstützung.
Private Sub Button1_Click()
Dim x As String
Z = Sheets(1).UsedRange.Rows.Count
x = TextBox1
temp = 0
For i = 2 To Z
If Cells(i, 2) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
zeile = i
UserForm2.Show
Else
MsgBox "Commodity Code nicht vorhanden!", vbExclamation
TextBox1 = ""
End If
End Sub