Listbox-Problem
10.12.2014 23:49:44
Vic
komme allein nicht weiter und muss meine Frage von vorgestern noch mal aufwärmen. Lade mir mit folgendem Code Daten in Listbox1
Sub UserForm_Initialize()
Tabelle1.Activate
With ListBox1
.RowSource = "Daten1"
.ColumnCount = 15
.ColumnHeads = True
End With
End Sub
um eine Zeile zu löschen benutze ich:Sub CommandButton4_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 4
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub
Das funktioniert super. ABER: Wenn ich den selben Code (angepasst auf ein neues Tabellenblatt mit Userform2 ff.) nutze, schmiert mir Excel an der markierten Stelle ab.Fehlermeldung: Die Methode delete für das Objekt Range ist fehlgeschlagen bzw. Eigenschaft RowSource konnte nicht gesetzt werden - je nachdem, von wo aus ich komme.
Das Ganze ist nicht nur ziemlich unfair, sondern für mich auch unlogisch - funktioniert die UserForm1 alleinstehend doch hervoragend. Einen Zusammanhang zum Counter im jeweiligen Tabellenblatt konnte ich auch nicht feststellen.
Ich wäre sehr dankbar für eure Hilfe.
Das ganze Drama hier nochmal zur Demo:
Die Datei https://www.herber.de/bbs/user/94338.xlsm wurde aus Datenschutzgründen gelöscht