Sowohl Listbox- und Tabelleneinträge löschen
23.02.2016 11:03:45
Hadi
ich habe folgendes Problem. Ich habe mithilfe von "Textboxes" eine Tabelle gefülllt. Anschließend lasse ich diese Tabelle in meinem Userform über ein Listbox anzeigen. Nun möchte ich beim anklicken auf Listboxinhalt, den Inhalt löschen. Das bedeutet, dass der Inhalt auch in der Tabelle entsprechend entfernt wird.
Ich habe dazu schon etwas zusammengestellt, doch leider werden immer die Inhalte, die über den markierten Inhalt im Listbox sind, gelöscht. Der Code befindet sich unten. Entschuldigen Sie bitte die Rechtschreibschwächen und Grammatik, ich bin noch nicht so lange in Deutschland und befinde mich im Lernprozess.
Private Sub CommandButton1_Click()
With Tabelle6.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = CStr(TextBox6)
.Offset(1, 1) = CDbl(TextBox1)
.Offset(1, 3) = CDate(TextBox2)
.Offset(1, 4) = CDbl(TextBox3)
.Offset(1, 5) = CStr(TextBox4)
.Offset(1, 2) = CDbl(TextBox5)
.Offset(1, 6) = CStr(TextBox7)
.Offset(1, 7) = CDate(TextBox8)
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox5 = ""
TextBox6.SetFocus
End Sub
Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub
Private Sub userform_initialize()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "5cm;5cm;5cm;5cm;5cm;5cm;5cm;5cm;5cm"
.ColumnHeads = True
ListBox1.RowSource = "Tabelle2!A2:AI54"
'oder:
'ListBox1.RowSource = "Tabelle1!A2:C" & loletzte
End With
End Sub
Private Sub ListBox1_Click()
klick = ListBox1.ListIndex
End Sub
Private Sub CommandButton3_Click()
Sheets("Tabelle2").Rows(klick + 2).Delete Shift:=xlUp
UserForm1.Repaint
End Sub
Anzeige