ich habe folgendes Problem:
Letztens hatte mir "ransi" hier aus dem Forum schon mit folgendem Code geholfen.
Dabei ging es um folgende Situation:
Ich habe eine Tabelle mit drei 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 und Gustav. Des Weiteren sind in der Spalte C noch Kategorien zugeordnet. Beispielsweise gehört der Code 509080 zur Kategorie Männer.
Option Explicit
Private Sub Button1_Click()
Dim Z As Long, temp As Long, i As Long, zeile As Long
Dim x As String
Z = Sheets(1).UsedRange.Rows.Count
x = TextBox1
temp = 0
Redim Liste(temp)
For i = 2 To Z
If Cells(i, 2) = x Then
Redim Preserve Liste(temp)
Liste(temp) = Cells(i, 1).Value
temp = temp + 1
End If
Next
If temp > 0 Then
Unload Me
With UserForm2
.ListBox1.List = Liste
.Show
End With
Else
MsgBox "Code nicht vorhanden!", vbExclamation
TextBox1 = ""
End If
End Sub
Punkt 1: 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.
Punkt 2: Der eingegebene Code soll gleichzeitig auch mit der Spalte Kategorie _
abgeglichen werden und die Dazugehörige in einer Textbox ebenfalls auf der Userform2 ausgegeben _
_
werden.
--> Punkt 1 funktioniert durch die Hilfe von ransi (siehe Code oben) super, aber bei Punkt 2 _
steh ich nach Tagen des Versuchens einfach nur auf dem Schlauch.
Vielen Dank im Voraus für eure Unterstützung.