Ich habe ein Problem mir einer Inventar liste
Im Userform sollte ich die Daten in der Tabelle ändern können.
Das geb nicht mehr kann mir jemand helfen.
https://www.herber.de/bbs/user/80385.xls
Für helfe Danke ich schon im voraus
Gruß Fredy
Private Sub ComboBox1_Change()
If ComboBox1.Tag = "" Then
a = ComboBox1.ListIndex + 3
With Sheets("Inventar")
Me.TextBox1 = .Cells(a, 2).Value
Me.TextBox2 = .Cells(a, 3).Value
Me.TextBox3 = .Cells(a, 4).Value
Me.TextBox4 = .Cells(a, 5).Value
Me.TextBox5 = .Cells(a, 6).Value
Me.TextBox6 = .Cells(a, 7).Value
Me.TextBox7 = .Cells(a, 8).Value
End With
End If
End Sub
Private Sub CommandButton1_Click()
ComboBox1.Tag = 1
With Sheets("Inventar")
.Cells(a, 2).Value = Me.TextBox1
.Cells(a, 3).Value = Me.TextBox2
.Cells(a, 4).Value = Me.TextBox3
.Cells(a, 5).Value = Me.TextBox4
.Cells(a, 6).Value = Me.TextBox5
.Cells(a, 7).Value = Me.TextBox6
.Cells(a, 8).Value = Me.TextBox7
End With
ComboBox1.Tag = ""
End Sub
Private Sub CommandButton1_Click()
Me.ComboBox1.RowSource = ""
With Sheets("Inventar")
.Cells(a, 2).Value = Me.TextBox1
.Cells(a, 3).Value = Me.TextBox2
.Cells(a, 4).Value = Me.TextBox3
.Cells(a, 5).Value = Me.TextBox4
.Cells(a, 6).Value = Me.TextBox5
.Cells(a, 7).Value = Me.TextBox6
.Cells(a, 8).Value = Me.TextBox7
End With
Me.ComboBox1.RowSource = "'" & Worksheets("Inventar").Name & "'!" & rngSorte.Address
End Sub
rngSorte As Range