Mit Listbox Datensätze löschen
#1
Guten Abend!
In einem Userform habe ich eine ListBox stehen, in der Datensätze angezeigt werden. Über einen Command Button innerhalb dieses Userforms versuche ich nun den jeweilig ausgewählten Datensatz zu löschen. Das sieht dann so aus:


Code:
Private Sub CommandButton2_Click()
Dim lngZeile As Long

If Me.ListBox1.ListIndex >= 0 Then
 
  lngZeile = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
  If MsgBox("Wirklich löschen?", vbYesNo + vbQuestion) = vbYes Then
    Tabelle4.Rows(lngZeile).Delete 'wie stelle ich es an, dass anstelle einer ganzen Zeile, einzelne Zellen der jeweiligen Zeile geleert werden?
 End If 
 End If

End Sub

In der ersten Spalte dieser Listbox steht dabei die Zeilennummer als Zahl, so wird immer die Zeile gelöscht, welche in der Listbox ausgewählt worden ist. 
Das funktioniert soweit gut, aber wie stelle ich es an, dass anstelle einer ganzen Zeile, einzelne Zellen der jeweiligen Zeile gelöscht werden?

Vielen Dank und noch einen schönen Abend!
Antworten Top
#2
Hallo,

z.B. so:
'Zelle der 2. Spalte (B) wird geleert
Tabelle4.Cells(lngZeile, 2) = ""
'Zelle der 5. Spalte (E) wird geleert
Tabelle4.Cells(lngZeile, 5) = ""
Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • diving_excel
Antworten Top
#3
Vielen Dank!
Schönen Abend noch!

Gruß
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste