Hallo community,

bin quasi Neuling und möchte eine Maske für ein Excel-Tabellenblatt erstellen. Versuche es anhand des Screenshots zu erklären. Es geht um eine "Pseudo"-Datenbank. Die Maske soll die Eingabe für Leute vereinfachen, die nicht so mit Excel vertraut sind.

"Listenfeld "FLA"": Hier sollen Daten aus einer Spalte ausgelesen werden. In den Textfeldern werden dann in der Zeile die zugehörigen Daten aus anderen Spalten angezeigt. Das habe ich dank eurer Hilfe bereits hinbekommen.

Über einen CommandButton ("OK") sollen über die Maske vollzogene Änderungen in den Textfeldern in das Tabellenblatt übernommen worden. Seltsamerweise funktioniert das bisher nur in dem Textfeld, das die identischen Daten des Listenfelds anzeigt (Textfeld3).

Filter "Status": In einer anderen Spalte ist jede Person mit einem bestimmten Status beschrieben (es gibt nur zwei verschiedene). Dieser Status soll quasi als Filter für das Listenfeld vorgeschaltet werden. Wählt man als Status A, sollen im Listenfeld nur die Personen angezeigt werden, die diesen Status haben.

Füge unter dem Screenshot mal den bisherige Code ein und hoffe eure Hilfe. Danke.

Private Sub ComboBox1_Click()
spalte = 21
zeile = (ComboBox1.ListIndex + 2)
End Sub


Private Sub ListBox1_Click()
spalte = 3
zeile = (ListBox1.ListIndex + 2)
Me.TextBox3 = Worksheets(10).Cells(zeile, spalte)
Me.TextBox4 = Worksheets(10).Cells(zeile, spalte + 1)
Me.TextBox5 = Worksheets(10).Cells(zeile, spalte + 2)
Me.TextBox6 = Worksheets(10).Cells(zeile, spalte + 3)
Me.TextBox7 = Worksheets(10).Cells(zeile, spalte + 4)
Me.TextBox8 = Worksheets(10).Cells(zeile, spalte + 5)
Me.TextBox9 = Worksheets(10).Cells(zeile, spalte + 6)
Me.TextBox10 = Worksheets(10).Cells(zeile, spalte + 7)
Me.TextBox11 = Worksheets(10).Cells(zeile, spalte + 8)
Me.TextBox14 = Worksheets(10).Cells(zeile, spalte + 11)
Me.TextBox17 = Worksheets(10).Cells(zeile, spalte + 14)
Me.TextBox18 = Worksheets(10).Cells(zeile, spalte + 15)
Me.TextBox19 = Worksheets(10).Cells(zeile, spalte + 16)
Me.TextBox30 = Worksheets(10).Cells(zeile, spalte + 27)
Me.TextBox32 = Worksheets(10).Cells(zeile, spalte + 29)
Me.TextBox33 = Worksheets(10).Cells(zeile, spalte + 30)
Me.TextBox34 = Worksheets(10).Cells(zeile, spalte + 31)
Me.TextBox35 = Worksheets(10).Cells(zeile, spalte + 32)
Me.TextBox36 = Worksheets(10).Cells(zeile, spalte + 33)
Me.TextBox37 = Worksheets(10).Cells(zeile, spalte + 34)
Me.TextBox38 = Worksheets(10).Cells(zeile, spalte + 35)
Me.TextBox39 = Worksheets(10).Cells(zeile, spalte + 36)
Me.TextBox40 = Worksheets(10).Cells(zeile, spalte + 37)
Me.TextBox41 = Worksheets(10).Cells(zeile, spalte + 38)
Me.TextBox42 = Worksheets(10).Cells(zeile, spalte + 39)
Me.TextBox43 = Worksheets(10).Cells(zeile, spalte + 40)
Me.TextBox44 = Worksheets(10).Cells(zeile, spalte + 41)
End Sub

Private Sub CommandButton1_Click()
spalte = 3
zeile = (ListBox1.ListIndex + 2)
Worksheets(10).Cells(zeile, spalte) = Me.TextBox3
Worksheets(10).Cells(zeile, spalte + 1) = Me.TextBox4
Worksheets(10).Cells(zeile, spalte + 2) = Me.TextBox5
Worksheets(10).Cells(zeile, spalte + 3) = Me.TextBox6
Worksheets(10).Cells(zeile, spalte + 4) = Me.TextBox7
Worksheets(10).Cells(zeile, spalte + 5) = Me.TextBox8
Worksheets(10).Cells(zeile, spalte + 6) = Me.TextBox9
Worksheets(10).Cells(zeile, spalte + 7) = Me.TextBox10
Worksheets(10).Cells(zeile, spalte + 8) = Me.TextBox11
Worksheets(10).Cells(zeile, spalte + 11) = Me.TextBox14
Worksheets(10).Cells(zeile, spalte + 14) = Me.TextBox17
Worksheets(10).Cells(zeile, spalte + 15) = Me.TextBox18
Worksheets(10).Cells(zeile, spalte + 16) = Me.TextBox19
Worksheets(10).Cells(zeile, spalte + 27) = Me.TextBox30
Worksheets(10).Cells(zeile, spalte + 29) = Me.TextBox32
Worksheets(10).Cells(zeile, spalte + 30) = Me.TextBox33
Worksheets(10).Cells(zeile, spalte + 31) = Me.TextBox34
Worksheets(10).Cells(zeile, spalte + 32) = Me.TextBox35
Worksheets(10).Cells(zeile, spalte + 33) = Me.TextBox36
Worksheets(10).Cells(zeile, spalte + 34) = Me.TextBox37
Worksheets(10).Cells(zeile, spalte + 35) = Me.TextBox38
Worksheets(10).Cells(zeile, spalte + 36) = Me.TextBox39
Worksheets(10).Cells(zeile, spalte + 37) = Me.TextBox40
Worksheets(10).Cells(zeile, spalte + 38) = Me.TextBox41
Worksheets(10).Cells(zeile, spalte + 39) = Me.TextBox42
Worksheets(10).Cells(zeile, spalte + 40) = Me.TextBox43
Worksheets(10).Cells(zeile, spalte + 41) = Me.TextBox44
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub